©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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^