Code |
I +ROOT D Q:+TIUY .D ISEDITOR^TIUSRVT(.TIUY,ROOT,USER) .I +TIUY S TIUY=3 .E S TIUY=0 S TIUY=$$GET^XPAR(USER_";VA(200,","TIU PERSONAL TEMPLATE ACCESS",1,"I") ;ICR 2263 I TIUY="" D .N TIUCLLST,TIUERR,IDX,TMP .D GETLST^XPAR(.TIUCLLST,"SYS","TIU TEMPLATE ACCESS BY CLASS","Q",.TIUERR) ;ICR 2263 .I TIUERR>0 Q .S IDX=0 .F S IDX=$O(TIUCLLST(IDX)) Q:'IDX D ..I $$ISA^USRLM(USER,$P(TIUCLLST(IDX),U),.TIUERR) D ;ICR 1544 ...S TMP=+$P(TIUCLLST(IDX),U,2) ...I +TIUY'>TMP S TIUY=TMP I TIUY="" D .N XPARSRCH,SERVICE .I +$G(LOC) S XPARSRCH=LOC_";SC("_U .E S XPARSRCH="" .;S SERVICE=$P($G(^VA(200,USER,5)),U) .S SERVICE=$$GETSRV(USER) .I +SERVICE>0 S XPARSRCH=XPARSRCH_SERVICE_";DIC(49,"_U .S XPARSRCH=XPARSRCH_"DIV^SYS" .S TIUY=$$GET^XPAR(XPARSRCH,"TIU PERSONAL TEMPLATE ACCESS") I TIUY="" S TIUY=0
|