LRARNPX ;SLC/MRH/FHS - NEW PERSON CONVERSION FOR ^LAR("Z" ; 1/23/93
Source file <LRARNPX.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Lab Service | 2 | LRAR ARCHIVE NP CONVERSION LRARCHD |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
DQ | ;
|
|
QUE | ;
; Task off JOB to convert file 63.9999 |
|
CH | ; change pointers in CHEM HEM, TOX, RIA, SER, etc. subfile 63.999904
; sub("CH") Change REQUESTING PERSON field .1 pointer ; ^LAR("Z",LRDFN,"CH",LRIDT,"NPC")=1 Indicates this record has been |
|
MI | ; change pointers in MICROBIOLOGY subfile 63.999905
; sub("MI") Change PHYSICIAN field .07 pointer ; ^LAR("Z",LRDFN,"MI",LRIDT,"NPC")=1 Indicates this record has been ; converted to File 200. This node is used when restoring arc records. ; "NPC")=2 indicates record processed but no provider number |
|
DISP | ; to display to the user the tasked job descriptions and TASK
; numbers for the different conversion routines |
|
WRAPUP | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | WRAPUP+1! |
%X | WRAPUP+1! |
%Y | WRAPUP+1! |
%ZIS | WRAPUP+1! |
DIC | WRAPUP+1! |
DUZ | EN+1 |
DUZ(0 | EN+1 |
I | WRAPUP+1! |
LRAC | EN+2~, WRAPUP+2! |
LRD0 | CH+9*, CH+12*, CH+13, WRAPUP+2! |
LRD1 | WRAPUP+2! |
LRDSC | EN+2~, QUE+3*, DISP+2, WRAPUP+2! |
LRDT | EN+2~, WRAPUP+3! |
LRFILE | DQ+2~, DQ+3*, DQ+5, DQ+6, DQ+7, DQ+10, DQ+11, WRAPUP+2! |
LRIO | EN+2~, EN+3, QUE+4, WRAPUP+2! |
LRJOB | EN+2~, DQ+3*, DQ+6, DQ+7, DQ+10, DQ+11, WRAPUP+2! |
LRLST | DQ+2~, DQ+8*, WRAPUP+2! |
LRPRV | CH+5~, CH+9*, CH+10, CH+11, CH+12, MI+5~, MI+9*, MI+10, MI+11, WRAPUP+2! |
LRSB | CH+5~, CH+12, MI+5~, MI+11, WRAPUP+3! |
LRSB(0 | CH+6*, MI+6* |
LRSORT | WRAPUP+3! |
LRST | DQ+3*, WRAPUP+3! |
LRTSK | DQ+2~, DQ+3*, WRAPUP+2! |
LRZD0 | EN+2~, DQ+2~, DQ+3*, DQ+8*, DQ+10, CH+7, CH+8, CH+9, CH+10, CH+13 , MI+7, MI+8, MI+9, MI+10, MI+11, WRAPUP+2! |
LRZD1 | CH+5~, CH+7*, CH+8, CH+9, CH+10, CH+13, MI+5~, MI+7*, MI+8, MI+9 , MI+10, MI+11, WRAPUP+2! |
POP | WRAPUP+1! |
U | DQ+11, CH+9, CH+12, MI+9, MI+11 |
X | EN+2~, WRAPUP+1! |
Y | WRAPUP+1! |
ZTDESC | QUE+3*, WRAPUP+1! |
ZTDTH | DISP+5!, WRAPUP+1! |
ZTIO | QUE+2*, WRAPUP+1! |
>> ZTQUEUED | DQ+1 |
ZTRTN | QUE+4*, WRAPUP+1! |
ZTSAVE | WRAPUP+1! |
ZTSAVE("LRIO" | QUE+4* |
ZTSK | EN+2~, DQ+3, DISP+2, DISP+5!, WRAPUP+1! |
ZTSK("D" | DISP+4 |