Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
811 bytes
|
Line | |
---|
1 | AAQJCHK ;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."
|
---|
8 | 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
|
---|
9 | I %=-1 D WARN G EXIT
|
---|
10 | G EXIT
|
---|
11 | WARN 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
|
---|
14 | EXIT K %,AAQUCI,X,Y Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.