©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
XUZP8ENV ;IHS/OIRM/DSD/AEF - PATCH XU*8.0*1008 ENVIRONMENT CHECK ROUTINE [ 04/30/2003 3:59 PM ]
Source file <XUZP8ENV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ;----- ISSUE MESSAGES
|
|
| EN | ;EP -- MAIN ENTRY POINT
|
|
| NOASK | ;----- SUPPRESS ASK 'DISABLE OPTS', 'MOVE ROUTINES' PROMPTS
|
|
| P1007 | ;----- CHECK IF PATCH XU*8.0*1007 INSTALLED
|
|
| NOQUE | ;----- SET NOQUEUE FLAG
|
|
| DUZ | ;----- CHECK FOR VALID DUZ
|
|
| TM | ;----- CHECK IF TASKMAN IS RUNNING
|
|
| CHKPAT(X) | ||
| KERVER | ;----- CHECK KERNEL VERSION FOR VERSION 8
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZTSCH("RUN" | TM+2 |
| ^VA(200 - [#200] | DUZ+2 |
| ^XPD(9.7 - [#9.7] | CHKPAT+6, CHKPAT+7 |
| Name | Line Occurrences |
|---|---|
| $$CHKPAT | P1007+4 |
| DUZ | EN+2 |
| KERVER | EN+4 |
| NOASK | EN+5 |
| NOQUE | EN+3 |
| P1007 | EN+7 |
| QUIT | EN+8 |
| TM | EN+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DUZ | DUZ+2 |
| DUZ(0 | DUZ+6* |
| OK | CHKPAT+3~, CHKPAT+4*, CHKPAT+7*, CHKPAT+8 |
| U | DUZ+2, CHKPAT+7 |
| X | P1007+2~, P1007+3*, P1007+4, P1007+6, CHKPAT~, CHKPAT+6 |
| XPDA | CHKPAT+3~, CHKPAT+5*, CHKPAT+6*, CHKPAT+7 |
| >> XPDDIQ("XPZ1" | NOASK+2* |
| >> XPDDIQ("XPZ2" | NOASK+3* |
| >> XPDNOQUE | NOQUE+3* |
| >> XPDQUIT | DUZ+4*, DUZ+5, NOQUE+2, KERVER+6*, TM+5*, P1007+5*, QUIT+2, QUIT+4 |