AQAZI001.m

AQAZI001 ; ; 29-APR-1993

 ;;1;QA PATCHES;;APR 29, 1993

 F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^UTILITY(U,$J,"DIBT",2679,0)

 ;;=AQAQ ACCESS SORT^2930429.0627^^200^^^^

 ;;^UTILITY(U,$J,"DIBT",2679,2,1)

 ;;=200.051^^KEY^@".01^

 ;;^UTILITY(U,$J,"DIBT",2679,2,1,200)

 ;;=51

 ;;^UTILITY(U,$J,"DIBT",2679,2,1,"CM")

 ;;=S Y(1)=$S($D(^VA(200,D0,51,D1,0)):^(0),1:"") S X=$S('$D(^DIC(19.1,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D1>0 S X(1)=X

 ;;^UTILITY(U,$J,"DIBT",2679,2,1,"F")

 ;;=AQAQZMENTz^AQAQZMENU

 ;;^UTILITY(U,$J,"DIBT",2679,2,1,"T")

 ;;=AQAQZMENU^AQAQZMENU

 ;;^UTILITY(U,$J,"DIBT",2679,2,2)

 ;;=200^.01^NAME^^

 ;;^UTILITY(U,$J,"DIBT",2679,2,2,"IX")

 ;;=^VA(200,"B",^VA(200,^2

 ;;^UTILITY(U,$J,"DIPT",2442,0)

 ;;=AQAQ ACCESS HEADING^2930429.0635^^200^^^^

 ;;^UTILITY(U,$J,"DIPT",2442,"F",1)

 ;;="USERS WITH ACCESS TO CREDENTIAL TRACKING SYSTEM";C1~S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;L18;Z;"NOW"~

 ;;^UTILITY(U,$J,"DIPT",2442,"F",2)

 ;;=S X="PAGE ",DIP(1)=X,X=$S($D(DC)#2:DC,1:"") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;Z;""PAGE "_PAGE"~"KEY NAME";C1~"USER NAME";C12;Y3~"KEY GIVEN BY";C40~

 ;;^UTILITY(U,$J,"DIPT",2442,"F",3)

 ;;="DATE GIVEN";C65~

 ;;^UTILITY(U,$J,"DIPT",2442,"F",4)

 ;;=S X="-",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="" Q:X1=""  S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;"DUP("-",IOM)"~

 ;;^UTILITY(U,$J,"DIPT",2442,"F",5)

 ;;="AQAQZMENU";C1;S1~"Allows access to the Staff Credentials file menu.";C25~" ";C1~

 ;;^UTILITY(U,$J,"DIPT",2442,"H")

 ;;=@

 ;;^UTILITY(U,$J,"DIPT",2442,"SUB")

 ;;=1

 ;;^UTILITY(U,$J,"DIPT",2443,0)

 ;;=AQAQ ACCESS PRINT^2930429.0636^^200^^^^

 ;;^UTILITY(U,$J,"DIPT",2443,"F",2)

 ;;=.01;C12;L25~51,1;C40;L20~51,2;C65~

 ;;^UTILITY(U,$J,"DIPT",2443,"H")

 ;;=[AQAQ ACCESS HEADING]

 ;;^UTILITY(U,$J,"PKG",216,0)

 ;;=QA PATCHES^AQAZ^USED TO SEND PATCHES REQUIRING INITS FOR QI PACKAGES

 ;;^UTILITY(U,$J,"PKG",216,22,0)

 ;;=^9.49I^1^1

 ;;^UTILITY(U,$J,"PKG",216,22,1,0)

 ;;=1^2930429

 ;;^UTILITY(U,$J,"PKG",216,22,"B",1,1)

 ;;=

 ;;^UTILITY(U,$J,"PKG",216,"DIBT",0)

 ;;=^9.48^1^1

 ;;^UTILITY(U,$J,"PKG",216,"DIBT",1,0)

 ;;=AQAQ ACCESS SORT^200

 ;;^UTILITY(U,$J,"PKG",216,"DIPT",0)

 ;;=^9.46^2^2

 ;;^UTILITY(U,$J,"PKG",216,"DIPT",1,0)

 ;;=AQAQ ACCESS PRINT^200

 ;;^UTILITY(U,$J,"PKG",216,"DIPT",2,0)

 ;;=AQAQ ACCESS HEADING^200

 ;;^UTILITY(U,$J,"PKG",216,"INIT")

 ;;=AQAZPOST^

AQAZI001  ; ; 29-APR-1993

 +1       ;;1;QA PATCHES;;APR 29, 1993

 +2        FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT 

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT 

 +1       ;;^UTILITY(U,$J,"DIBT",2679,0)

 +2       ;;=AQAQ ACCESS SORT^2930429.0627^^200^^^^

 +3       ;;^UTILITY(U,$J,"DIBT",2679,2,1)

 +4       ;;=200.051^^KEY^@".01^

 +5       ;;^UTILITY(U,$J,"DIBT",2679,2,1,200)

 +6       ;;=51

 +7       ;;^UTILITY(U,$J,"DIBT",2679,2,1,"CM")

 +8       ;;=S Y(1)=$S($D(^VA(200,D0,51,D1,0)):^(0),1:"") S X=$S('$D(^DIC(19.1,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1)) I D1>0 S X(1)=X

 +9       ;;^UTILITY(U,$J,"DIBT",2679,2,1,"F")

 +10      ;;=AQAQZMENTz^AQAQZMENU

 +11      ;;^UTILITY(U,$J,"DIBT",2679,2,1,"T")

 +12      ;;=AQAQZMENU^AQAQZMENU

 +13      ;;^UTILITY(U,$J,"DIBT",2679,2,2)

 +14      ;;=200^.01^NAME^^

 +15      ;;^UTILITY(U,$J,"DIBT",2679,2,2,"IX")

 +16      ;;=^VA(200,"B",^VA(200,^2

 +17      ;;^UTILITY(U,$J,"DIPT",2442,0)

 +18      ;;=AQAQ ACCESS HEADING^2930429.0635^^200^^^^

 +19      ;;^UTILITY(U,$J,"DIPT",2442,"F",1)

 +20      ;;="USERS WITH ACCESS TO CREDENTIAL TRACKING SYSTEM";C1~S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S Y=X D DT K DIP;L18;Z;"NOW"~

 +21      ;;^UTILITY(U,$J,"DIPT",2442,"F",2)

 +22      ;;=S X="PAGE ",DIP(1)=X,X=$S($D(DC)#2:DC,1:"") S Y=X,X=DIP(1),X=X S X=X_Y W X K DIP;Z;""PAGE "_PAGE"~"KEY NAME";C1~"USER NAME";C12;Y3~"KEY GIVEN BY";C40~

 +23      ;;^UTILITY(U,$J,"DIPT",2442,"F",3)

 +24      ;;="DATE GIVEN";C65~

 +25      ;;^UTILITY(U,$J,"DIPT",2442,"F",4)

 +26      ;;=S X="-",DIP(1)=X,DIP(2)=X,X=$S($D(IOM):IOM,1:80) S X=X,X1=DIP(1) S %=X,X="" Q:X1=""  S $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%) W X K DIP;C1;Z;"DUP("-",IOM)"~

 +27      ;;^UTILITY(U,$J,"DIPT",2442,"F",5)

 +28      ;;="AQAQZMENU";C1;S1~"Allows access to the Staff Credentials file menu.";C25~" ";C1~

 +29      ;;^UTILITY(U,$J,"DIPT",2442,"H")

 +30      ;;=@

 +31      ;;^UTILITY(U,$J,"DIPT",2442,"SUB")

 +32      ;;=1

 +33      ;;^UTILITY(U,$J,"DIPT",2443,0)

 +34      ;;=AQAQ ACCESS PRINT^2930429.0636^^200^^^^

 +35      ;;^UTILITY(U,$J,"DIPT",2443,"F",2)

 +36      ;;=.01;C12;L25~51,1;C40;L20~51,2;C65~

 +37      ;;^UTILITY(U,$J,"DIPT",2443,"H")

 +38      ;;=[AQAQ ACCESS HEADING]

 +39      ;;^UTILITY(U,$J,"PKG",216,0)

 +40      ;;=QA PATCHES^AQAZ^USED TO SEND PATCHES REQUIRING INITS FOR QI PACKAGES

 +41      ;;^UTILITY(U,$J,"PKG",216,22,0)

 +42      ;;=^9.49I^1^1

 +43      ;;^UTILITY(U,$J,"PKG",216,22,1,0)

 +44      ;;=1^2930429

 +45      ;;^UTILITY(U,$J,"PKG",216,22,"B",1,1)

 +46      ;;=

 +47      ;;^UTILITY(U,$J,"PKG",216,"DIBT",0)

 +48      ;;=^9.48^1^1

 +49      ;;^UTILITY(U,$J,"PKG",216,"DIBT",1,0)

 +50      ;;=AQAQ ACCESS SORT^200

 +51      ;;^UTILITY(U,$J,"PKG",216,"DIPT",0)

 +52      ;;=^9.46^2^2

 +53      ;;^UTILITY(U,$J,"PKG",216,"DIPT",1,0)

 +54      ;;=AQAQ ACCESS PRINT^200

 +55      ;;^UTILITY(U,$J,"PKG",216,"DIPT",2,0)

 +56      ;;=AQAQ ACCESS HEADING^200

 +57      ;;^UTILITY(U,$J,"PKG",216,"INIT")

 +58      ;;=AQAZPOST^