PSJCOMV ;BIR/CML3-FINISH COMPLEX IV ORDERS ENTERED THROUGH OE/RR ;02 Feb 2001 12:20 PM
Source file <PSJCOMV.m>
Package | Total | Call Graph |
---|---|---|
Inpatient Medications | 3 | $$ENDTC^PSGMI NEWNVAL^PSJCOM $$GETDUR^PSJLIVMD |
VA Fileman | 2 | NOW^%DTC ^DIR |
Registration | 1 | EN^VALM |
Name | Comments | DBIA/ICR reference |
---|---|---|
NEWIV | ;Create new IV order in appropriate file format
|
|
PTD531 | ; Move drug data from local array into ^TMP
|
|
PUTD55 | ; Move drug data from local array into 55
|
|
IV | ; Move IV data in local variables to ^TMP
|
|
VFYIV | ;
|
|
PTD5312 | ; Move drug data from local array into ^TMP
|
|
NEWAIV | ;Creates new IV order in the file 55 format
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(53.1 - [#53.1] | IV+2, IV+17, VFYIV+2, VFYIV+3, VFYIV+4, NEWIV+1 |
^TMP("PSJCOM" | IV+2*, IV+8*, IV+9*, IV+10, VFYIV+2*, VFYIV+4*, VFYIV+9*, VFYIV+11, VFYIV+13*, VFYIV+22* , VFYIV+23*, VFYIV+27*, PTD531+1!*, PTD531+3, PTD531+4*, NEWIV+2* |
^TMP("PSJCOM2" | VFYIV+8, VFYIV+9*, VFYIV+11, VFYIV+13, VFYIV+14*, VFYIV+23*, VFYIV+27*, NEWIV+1*, NEWIV+7*, NEWIV+8* , NEWIV+9, NEWIV+10*, PTD5312+1!*, PTD5312+3, PTD5312+4*, NEWAIV+6*, NEWAIV+7*, NEWAIV+9*, NEWAIV+10*, NEWAIV+11* , NEWAIV+12*, NEWAIV+13*, PUTD55+1!*, PUTD55+3, PUTD55+4* |
Name | Line Occurrences |
---|---|
NEWAIV | NEWIV+3 |
PTD531 | IV+11 |
PTD5312 | NEWIV+11 |
PUTD55 | NEWAIV+15 |
VFYIV | IV+15, IV+16 |
Name | Field # of Occurrence |
---|---|
^( | IV+10*, NEWIV+9* |
^(2 | NEWAIV+7* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | NEWAIV+2 |
CHILD | VFYIV+3~ |
DA | NEWAIV+1~ |
>> DFN | IV+6, VFYIV+12, NEWIV+5 |
DIK | NEWAIV+1~ |
DIR | VFYIV+25! |
DIR(0 | VFYIV+25* |
>> DRG | PTD531+3*, PTD531+4, PTD5312+3*, PTD5312+4, PUTD55+3*, PUTD55+4 |
>> DRG( | IV+11, PTD531+2, PTD531+3, PTD531+4, NEWIV+11, PTD5312+2, PTD5312+3, PTD5312+4, PUTD55+2, PUTD55+4 |
>> DRGT | IV+11*, PTD531+1, PTD531+2, PTD531+3, PTD531+4, NEWIV+11*, PTD5312+1, PTD5312+2, PTD5312+3, PTD5312+4 , NEWAIV+15*, PUTD55+1, PUTD55+2, PUTD55+3, PUTD55+4 |
DUZ | VFYIV+22, NEWAIV+12 |
ND | IV+5!, NEWAIV+1~ |
ND( | IV+9, NEWIV+8, NEWAIV+4*, NEWAIV+5*, NEWAIV+6 |
ND(0 | IV+5*, IV+6*, NEWIV+4*, NEWIV+5*, NEWAIV+3*, NEWAIV+5* |
ND(1 | NEWAIV+5* |
ND(2 | IV+6*, NEWIV+5* |
ND(3 | NEWAIV+5* |
ND(4 | IV+6*, NEWIV+5* |
ND(8 | IV+7*, NEWIV+6* |
ND(9 | IV+7*, NEWIV+6* |
>> ON | IV+1, IV+2, IV+5, IV+8, IV+9, IV+10, IV+14, VFYIV+2, VFYIV+5, VFYIV+7 , VFYIV+8, VFYIV+9, VFYIV+10, VFYIV+11, VFYIV+12, VFYIV+13, VFYIV+14, VFYIV+16, VFYIV+17, VFYIV+20 , VFYIV+22, VFYIV+23, VFYIV+27, PTD531+1, PTD531+3, PTD531+4, NEWIV+1, NEWIV+2, NEWIV+4, NEWIV+7 , NEWIV+8, NEWIV+9, NEWIV+10, PTD5312+1, PTD5312+3, PTD5312+4, NEWAIV+3, NEWAIV+6, NEWAIV+7, NEWAIV+9 , NEWAIV+10, NEWAIV+11, NEWAIV+12, NEWAIV+13, PUTD55+1, PUTD55+3, PUTD55+4 |
ORDER | VFYIV+3~*, VFYIV+4 |
>> P( | NEWAIV+3 |
>> P("21FLG" | NEWAIV+3* |
>> P("CLIN" | IV+8, NEWIV+7, NEWAIV+10 |
>> P("CLRK" | IV+6, NEWIV+5, NEWAIV+9 |
>> P("DO" | IV+10, NEWIV+9, NEWAIV+5 |
>> P("FRES" | NEWAIV+7 |
>> P("INS" | NEWAIV+4 |
>> P("IVRM" | NEWAIV+7 |
>> P("LOG" | IV+6, NEWIV+5, NEWAIV+7 |
>> P("MR" | IV+5, NEWIV+4, NEWAIV+5 |
>> P("NAT" | IV+10, NEWIV+9, NEWAIV+5 |
>> P("NEWON" | IV+6, NEWIV+5 |
>> P("NINIT" | NEWAIV+11 |
>> P("NINITDT" | NEWAIV+11 |
>> P("OLDON" | IV+6, NEWIV+2*, NEWIV+5 |
>> P("OPI" | IV+7, NEWIV+6, NEWAIV+5 |
>> P("OT" | IV+5, NEWIV+4 |
>> P("PD" | IV+10, NEWIV+9, NEWAIV+5 |
>> P("PRNTON" | NEWIV+10, NEWAIV+5 |
>> P("PRY" | NEWAIV+5 |
>> P("REM" | IV+7, NEWIV+6, NEWAIV+5 |
>> P("REN" | IV+6, NEWIV+5 |
>> P("RES" | IV+6, NEWIV+2*, NEWIV+5, NEWAIV+7 |
>> P("SYRS" | IV+7, NEWIV+6, NEWAIV+7 |
>> P(11 | IV+6, NEWIV+5 |
>> P(15 | IV+6, NEWIV+5 |
>> P(17 | IV+3*, IV+5, VFYIV+6*, VFYIV+9, NEWIV+4 |
>> P(2 | IV+6, NEWIV+5 |
>> P(21 | IV+5, NEWIV+4, NEWAIV+3* |
>> P(22 | NEWAIV+3* |
>> P(23 | IV+7, NEWIV+6 |
>> P(3 | IV+6, NEWIV+5 |
>> P(4 | IV+7, NEWIV+6 |
>> P(5 | IV+7, NEWIV+6 |
>> P(6 | IV+5, NEWIV+4 |
>> P(7 | IV+7, NEWIV+6 |
>> P(8 | IV+7, NEWIV+6 |
>> P(9 | IV+6, NEWIV+5 |
PSGALFN | VFYIV+18! |
>> PSGDT | VFYIV+22, NEWAIV+2*, NEWAIV+12 |
>> PSGODDD(1 | VFYIV+19 |
>> PSGONF | VFYIV+19 |
>> PSGORDP | VFYIV+7* |
PSGRFD | VFYIV+8*, VFYIV+17*, VFYIV+18! |
PSGRSD | VFYIV+8*, VFYIV+15, VFYIV+16*, VFYIV+18! |
PSGX | VFYIV+8~* |
PSIVACT | NEWAIV+1~ |
>> PSIVENO | IV+17 |
>> PSJCOM | IV+1, VFYIV+1, VFYIV+3 |
>> PSJIRNF | IV+16 |
>> PSJORD | IV+17 |
>> PSJSPEED | VFYIV+24, VFYIV+25 |
>> PSJSYSP0 | IV+14, IV+15, IV+16, NEWIV+3 |
>> PSJSYSU | IV+14, IV+15, IV+16, VFYIV+10, VFYIV+20, VFYIV+21, VFYIV+22, NEWAIV+12, NEWAIV+13 |
U | IV+5, IV+6, IV+7, IV+10, IV+15, IV+16, IV+17, VFYIV+8, VFYIV+21, PTD531+3 , PTD531+4, NEWIV+3, NEWIV+4, NEWIV+5, NEWIV+6, NEWIV+9, PTD5312+3, PTD5312+4, NEWAIV+3, NEWAIV+5 , NEWAIV+7, NEWAIV+9, NEWAIV+11, PUTD55+3, PUTD55+4 |
>> VAIN(4 | NEWAIV+3, NEWAIV+7 |
>> VALMBCK | VFYIV+26* |
>> VND2P5 | VFYIV+12*, VFYIV+13, VFYIV+14 |
>> VND4 | VFYIV+11*, VFYIV+20, VFYIV+21*, VFYIV+22*, VFYIV+23 |
X | IV+9*, VFYIV+19~*, VFYIV+20, PTD531+2*, PTD531+3, PTD531+4, NEWIV+8*, PTD5312+2*, PTD5312+3, PTD5312+4 , NEWAIV+3*, NEWAIV+6*, PUTD55+2*, PUTD55+4 |
>> X1 | PTD531+3*, PTD531+4, PTD5312+3*, PTD5312+4 |
>> Y | PTD531+3*, PTD531+4*, PTD5312+3*, PTD5312+4*, PUTD55+3*, PUTD55+4* |