15 lines
811 B
Mathematica
15 lines
811 B
Mathematica
AAQJCHK ;FGO/JHS-Check/Warning for Test Account ; 12/6/05 3:01am
|
|
;;1.4;AAQJ PATCH RECORD;; May 14, 1999
|
|
D UCI^%ZOSV S AAQUCI=$P(Y,",",1)
|
|
;;I AAQUCI="VAH" K AAQUCI Q ;Quit if in Production
|
|
I AAQUCI="EHR" K AAQUCI Q ;Quit if in Production
|
|
W !!,$C(7),"You are not in the Production Account. You are in "_AAQUCI_".",!,"Actual Patch Record Editing should be done only in the Production account."
|
|
W !,"If you are only testing with Patch Record editing, you may continue."
|
|
ASKCONT S %=2 W !!,"Are you using test data in the Patch Record" D YN^DICN D:%=2 WARN I %=0 D WARN G ASKCONT
|
|
I %=-1 D WARN G EXIT
|
|
G EXIT
|
|
WARN W !!,"If you are entering actual data, please Halt and use the Production Account.",!,"Answer YES, if you are only testing."
|
|
R !!,"Press RETURN to Continue.",X:DTIME
|
|
Q
|
|
EXIT K %,AAQUCI,X,Y Q
|