| 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.
