PSJDSS ;ALB/JRC-REGENERATE DSS EXTRACT DATA FILE (#728.113) & (728.904) ; 10/8/08 1:53pm
Source file <PSJDSS.m>
Package | Total | Call Graph |
---|---|---|
DSS Extracts | 2 | ^ECXPIV1 ^ECXUD1 |
Kernel | 2 | ^%ZTLOAD $$FMTE^XLFDT |
Inpatient Medications | 1 | $$CODES^PSIVUTL |
MailMan | 1 | ^XMD |
VA FileMan | 1 | ^DIR |
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Entry Point
|
|
START | ;Start recompile after queue
|
|
DATE() | ;Prompt user for start date
|
|
CHECK(X) | ;Check intermediate file for existing entries in selected time frame
|
|
IV | ;Process iv records to be recreated for intermediate file
|
|
UD | ;Process ud records to be recreated for intermediate file
|
|
IVUPDATE | ;Update dss intermediate file (#728.113)
|
|
UDUPDATE | ;Update unit dose extract data file (#728.904)
|
|
MSG | ; send message to mail group 'DSS-ECGRP'
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | IVUPDATE+1, UDUPDATE+1 |
^ECX( | CHECK+4 |
^PS( | IVUPDATE+8 |
^PS(55 - [#55] | IV+5, IV+6, IV+7, IV+8, IV+9, IV+10, IV+12, UD+5, UD+7, UD+8 , UD+10, UD+11, UD+12, IVUPDATE+4, IVUPDATE+5, IVUPDATE+6, IVUPDATE+7, IVUPDATE+11 |
^TMP($J | START+7!, IVUPDATE+3!, IVUPDATE+11* |
Name | Field # of Occurrence |
---|---|
^( | CHECK+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | IVUPDATE+2~, IVUPDATE+5* |
ADSTR | IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+10 |
ADUNITS | IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+9*, IVUPDATE+10 |
B | IVUPDATE+2~, IVUPDATE+5* |
COST | UD+2~, UD+13*, UDUPDATE+2 |
COUNT | START+1~, UD+4*, IVUPDATE+11*, UDUPDATE+2*, MSG+8 |
DATE | IV+2~, IV+4*, IV+5*, IV+6, IV+7, UD+2~, UD+4*, UD+6*, UD+7*, UD+8 |
DCST | IVUPDATE+2~, IVUPDATE+8*, IVUPDATE+10 |
DDATE | UD+2~, UD+13*, UD+14, UDUPDATE+2 |
DDRG | IVUPDATE+2~, IVUPDATE+8*, IVUPDATE+10, IVUPDATE+11 |
DFN | IV+2~, IV+6*, IV+7, IV+8, IV+9, IV+10, IV+12, UD+2~, UD+4*, UD+5* , UD+7, UD+8, UD+10, UD+11, UD+12, IVUPDATE+4, IVUPDATE+5, IVUPDATE+6, IVUPDATE+7, IVUPDATE+10 , IVUPDATE+11, UDUPDATE+2 |
DIR | DATE+1~, DATE+8! |
DIR("A" | DATE+3*, DATE+10* |
DIR(0 | DATE+2*, DATE+9* |
DIRUT | DATE+1~, DATE+5, DATE+12 |
DISP | UD+2~, UD+10*, UD+11 |
DRG | IVUPDATE+2~, IVUPDATE+6*, IVUPDATE+7 |
DRGTYP | IVUPDATE+2~, IVUPDATE+6*, IVUPDATE+7, IVUPDATE+8, IVUPDATE+9 |
DRUG | UD+2~, UD+13*, UDUPDATE+2 |
DSDATE | IVUPDATE+2~, IVUPDATE+5*, IVUPDATE+11 |
ECGRP | MSG+1~, MSG+3*, MSG+4 |
ECMSG | MSG+1~ |
ECMSG(1 | MSG+5* |
ECMSG(2 | MSG+6* |
ECMSG(3 | MSG+7* |
ECMSG(4 | MSG+8* |
ECMSG(5 | MSG+9* |
ECUD | IVUPDATE+2~, IVUPDATE+10*, IVUPDATE+11*, UDUPDATE+2* |
ENDDATE | EN+3~, EN+7, DATE+13*, CHECK+4, IV+4*, IV+11, UD+4*, UD+14, MSG+6 |
>> EXTRACT | EN+2, EN+6, EN+7, START+3, MSG+2, MSG+3, MSG+5 |
FILE | CHECK+2~*, CHECK+3*, CHECK+4 |
HOW | UD+2~, UD+13* |
>> I | EN+8* |
IVROOM | IVUPDATE+2~, IVUPDATE+5*, IVUPDATE+11 |
LABN | IV+2~, IV+8*, IV+9, IV+10, IV+12 |
ND | IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+8*, IVUPDATE+9 |
NODE | UD+2~, UD+11*, UD+13 |
ON | IV+2~, IV+7*, IV+8, IV+9, IV+10, IV+12, UD+2~, UD+8*, UD+10, UD+11 , UD+12, IVUPDATE+4, IVUPDATE+5, IVUPDATE+6, IVUPDATE+7, IVUPDATE+10, IVUPDATE+11, UDUPDATE+2 |
PROV | IVUPDATE+2~, IVUPDATE+4*, IVUPDATE+10 |
PROVIDER | UD+2~, UD+13*, UDUPDATE+2 |
PSGSTRT | UD+2~, UD+12*, UDUPDATE+2 |
PSIVC | IV+2~, IV+9*, IVUPDATE+10 |
PSIVI | IV+2~, IV+13* |
PSIVNOW | IV+2~, IV+10*, IV+11, IVUPDATE+10 |
PSIVQTY | IV+2~, IV+12*, IV+13 |
QTY | UD+2~, UD+13*, UDUPDATE+2 |
SOLSTR | IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+10 |
START | IVUPDATE+2~, IVUPDATE+4*, IVUPDATE+11 |
STDATE | EN+3~, EN+7, DATE+6*, CHECK+4, IV+4, IV+11, UD+4, UD+14, MSG+6 |
TYP | IVUPDATE+2~, IVUPDATE+4*, IVUPDATE+10 |
U | IV+9, IV+10, IV+12, UD+13, IVUPDATE+4, IVUPDATE+8, IVUPDATE+9, IVUPDATE+10, IVUPDATE+11 |
WARD | UD+2~, UD+13*, UDUPDATE+2 |
X | DATE+1~, DATE+8!, CHECK~, CHECK+3, CHECK+5, IVUPDATE+1*, IVUPDATE+2~, IVUPDATE+4*, UDUPDATE+1* |
XMDUZ | MSG+1~, MSG+3* |
XMSUB | MSG+1~, MSG+2* |
XMTEXT | MSG+1~, MSG+10* |
XMY | MSG+1~, MSG+4! |
XMY("G.DSS-" | MSG+4* |
Y | DATE+1~, DATE+6, DATE+8!, DATE+13, IVUPDATE+2~, IVUPDATE+9* |
>> ZTDESC | EN+7* |
>> ZTIO | EN+7* |
>> ZTRTN | EN+7* |
>> ZTSAVE( | EN+8* |
>> ZTSK | EN+10, EN+11 |