ORY39 ;SLC/JFR - POST-INSTALL OR*3*39 11/24/98 13:15
Source file <ORY39.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ; task AWID linetag in post-install
|
|
AWID | ; loop whole order file
; set "AW" x-ref on NKA allergy orders ; add ID's to existing orders |
|
NKA(ORDER) | ||
COMMENT(ORDER) | ; replace COMMENT prompt with ITEM
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^OR(100 - [#100] | AWID+9, AWID+10, NKA+3, NKA+4, NKA+7*, NKA+8*, COMMENT+2, COMMENT+3!, COMMENT+4*, COMMENT+5* |
Name | Field # of Occurrence |
---|---|
^(0 | COMMENT+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | AWID+11~, AWID+12* |
NKA | NKA+1~, NKA+2*, NKA+3, NKA+6*, NKA+10 |
NKADLG | AWID+4~, AWID+6*, NKA+4 |
ORDER | NKA~, NKA+3, NKA+4, NKA+7, NKA+8, COMMENT~, COMMENT+2, COMMENT+3, COMMENT+4, COMMENT+5 |
ORDLG | AWID+4~, AWID+5*, AWID+10 |
ORFTOI | AWID+4~, AWID+8*, COMMENT+4 |
ORFTXT | AWID+4~, AWID+7*, COMMENT+2 |
ORIFN | AWID+4~, AWID+9*, AWID+10, AWID+12, AWID+13 |
ORX | COMMENT+1~, COMMENT+2*, COMMENT+4* |
RESP | NKA+1~, NKA+3*, NKA+4, NKA+7, NKA+8, COMMENT+1~*, COMMENT+2*, COMMENT+3, COMMENT+4, COMMENT+5 |
U | COMMENT+2, COMMENT+4 |
ZTDESC | POST+1*, POST+4! |
ZTDTH | POST+1*, POST+4! |
ZTIO | POST+2*, POST+4! |
ZTRTN | POST+1*, POST+4! |
ZTSK | POST+3, POST+4! |