source: WorldVistAEHR/trunk/r/PATCH_MANAGEMNT-AAQ/AAQJCHK.m@ 1582

Last change on this file since 1582 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 811 bytes
Line 
1AAQJCHK ;FGO/JHS-Check/Warning for Test Account ; 12/6/05 3:01am
2 ;;1.4;AAQJ PATCH RECORD;; May 14, 1999
3 D UCI^%ZOSV S AAQUCI=$P(Y,",",1)
4 ;;I AAQUCI="VAH" K AAQUCI Q ;Quit if in Production
5 I AAQUCI="EHR" K AAQUCI Q ;Quit if in Production
6 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."
7 W !,"If you are only testing with Patch Record editing, you may continue."
8ASKCONT S %=2 W !!,"Are you using test data in the Patch Record" D YN^DICN D:%=2 WARN I %=0 D WARN G ASKCONT
9 I %=-1 D WARN G EXIT
10 G EXIT
11WARN W !!,"If you are entering actual data, please Halt and use the Production Account.",!,"Answer YES, if you are only testing."
12 R !!,"Press RETURN to Continue.",X:DTIME
13 Q
14EXIT K %,AAQUCI,X,Y Q
Note: See TracBrowser for help on using the repository browser.