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* |