PSJCOMV ;BIR/CML-FINISH COMPLEX IV ORDERS ENTERED THROUGH OE/RR ;02 Feb 2001 12:20 PM
Source file <PSJCOMV.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IV | ; Move IV data in local variables to ^TMP
|
|
| VFYIV | ;
|
|
| PTD531 | ; Move drug data from local array into ^TMP
|
|
| NEWIV | ;Create new IV order in appropriate file format
|
|
| PTD5312 | ; Move drug data from local array into ^TMP
|
|
| NEWAIV | ;Creates new IV order in the file 55 format
|
|
| PUTD55 | ; Move drug data from local array into 55
|
| 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+3, VFYIV+4, VFYIV+5, NEWIV+1 |
| ^TMP("PSJCOM" | IV+2*, IV+7*, IV+8*, IV+9*, IV+10*, VFYIV+3*, VFYIV+5*, VFYIV+10*, VFYIV+12, VFYIV+14* , VFYIV+23*, VFYIV+24*, VFYIV+29*, PTD531+1!*, PTD531+3, PTD531+4*, NEWIV+2* |
| ^TMP("PSJCOM2" | VFYIV+9, VFYIV+10*, VFYIV+12, VFYIV+14, VFYIV+15*, VFYIV+24*, VFYIV+29*, NEWIV+1*, NEWIV+7*, NEWIV+8* , NEWIV+9, NEWIV+10*, PTD5312+1!*, PTD5312+3, PTD5312+4*, NEWAIV+6*, NEWAIV+7*, NEWAIV+8*, NEWAIV+9*, NEWAIV+10* , NEWAIV+11*, NEWAIV+12*, PUTD55+1!*, PUTD55+3, PUTD55+4* |
| ^TMP("PSODAOC" | IV+13*, VFYIV+25* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | NEWAIV+2 |
| CHILD | VFYIV+4~ |
| DA | NEWAIV+1~ |
| >> DFN | IV+5, VFYIV+2, VFYIV+13, NEWIV+5 |
| DIK | NEWAIV+1~ |
| DIR | VFYIV+27! |
| DIR(0 | VFYIV+27* |
| >> 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+13*, PUTD55+1, PUTD55+2, PUTD55+3, PUTD55+4 |
| DUZ | VFYIV+23, NEWAIV+11 |
| ND | IV+4!, NEWAIV+1~ |
| ND( | IV+9, NEWIV+8, NEWAIV+4*, NEWAIV+5*, NEWAIV+6 |
| ND(0 | IV+4*, IV+5*, NEWIV+4*, NEWIV+5*, NEWAIV+3*, NEWAIV+5* |
| ND(1 | NEWAIV+5* |
| ND(2 | IV+5*, NEWIV+5* |
| ND(3 | NEWAIV+5* |
| ND(4 | IV+5*, NEWIV+5* |
| ND(8 | IV+6*, NEWIV+6* |
| ND(9 | IV+6*, NEWIV+6* |
| >> ON | IV+1, IV+2, IV+4, IV+7, IV+8, IV+9, IV+10, IV+12, IV+13, IV+14 , VFYIV+2, VFYIV+3, VFYIV+6, VFYIV+8, VFYIV+9, VFYIV+10, VFYIV+11, VFYIV+12, VFYIV+13, VFYIV+14 , VFYIV+15, VFYIV+17, VFYIV+18, VFYIV+21, VFYIV+23, VFYIV+24, VFYIV+29, 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+8, NEWAIV+9, NEWAIV+10, NEWAIV+11, NEWAIV+12, PUTD55+1, PUTD55+3 , PUTD55+4 |
| ORDER | VFYIV+4~*, VFYIV+5 |
| >> P( | NEWAIV+3 |
| >> P("21FLG" | NEWAIV+3* |
| >> P("APPT" | IV+8 |
| >> P("CLIN" | IV+7, NEWIV+7, NEWAIV+9 |
| >> P("CLRK" | IV+5, NEWIV+5, NEWAIV+8 |
| >> P("DO" | IV+10, NEWIV+9, NEWAIV+5 |
| >> P("FRES" | NEWAIV+7 |
| >> P("INS" | NEWAIV+4 |
| >> P("IVRM" | NEWAIV+7 |
| >> P("LOG" | IV+5, NEWIV+5, NEWAIV+7 |
| >> P("MR" | IV+4, NEWIV+4, NEWAIV+5 |
| >> P("NAT" | IV+10, NEWIV+9, NEWAIV+5 |
| >> P("NEWON" | IV+5, NEWIV+5 |
| >> P("NINIT" | NEWAIV+10 |
| >> P("NINITDT" | NEWAIV+10 |
| >> P("OLDON" | IV+5, NEWIV+2*, NEWIV+5 |
| >> P("OPI" | IV+6, NEWIV+6, NEWAIV+5 |
| >> P("OT" | IV+4, NEWIV+4 |
| >> P("PD" | IV+10, NEWIV+9, NEWAIV+5 |
| >> P("PRNTON" | NEWIV+10, NEWAIV+5 |
| >> P("PRY" | NEWAIV+5 |
| >> P("REM" | IV+6, NEWIV+6, NEWAIV+5 |
| >> P("REN" | IV+5, NEWIV+5 |
| >> P("RES" | IV+5, NEWIV+2*, NEWIV+5, NEWAIV+7 |
| >> P("SYRS" | IV+6, NEWIV+6, NEWAIV+7 |
| >> P(11 | IV+5, NEWIV+5 |
| >> P(15 | IV+5, NEWIV+5 |
| >> P(17 | IV+3*, IV+4, VFYIV+7*, VFYIV+10, NEWIV+4 |
| >> P(2 | IV+5, NEWIV+5 |
| >> P(21 | IV+4, NEWIV+4, NEWAIV+3* |
| >> P(22 | NEWAIV+3* |
| >> P(23 | IV+6, NEWIV+6 |
| >> P(3 | IV+5, NEWIV+5 |
| >> P(4 | IV+6, NEWIV+6 |
| >> P(5 | IV+6, NEWIV+6 |
| >> P(6 | IV+4, NEWIV+4 |
| >> P(7 | IV+6, NEWIV+6 |
| >> P(8 | IV+6, NEWIV+6 |
| >> P(9 | IV+5, NEWIV+5 |
| PSGALFN | VFYIV+19! |
| >> PSGDT | VFYIV+23, NEWAIV+2*, NEWAIV+11 |
| >> PSGODDD(1 | VFYIV+20 |
| >> PSGONF | VFYIV+20 |
| >> PSGORDP | VFYIV+8* |
| PSGRFD | VFYIV+9*, VFYIV+18*, VFYIV+19! |
| PSGRSD | VFYIV+9*, VFYIV+16, VFYIV+17*, VFYIV+19! |
| PSGX | VFYIV+9~* |
| PSIVACT | NEWAIV+1~ |
| >> PSIVENO | IV+17 |
| >> PSJCOM | IV+1, VFYIV+1, VFYIV+4 |
| >> PSJIRNF | IV+16 |
| >> PSJORD | IV+17, VFYIV+25 |
| >> PSJSPEED | VFYIV+26, VFYIV+27 |
| >> PSJSYSP0 | IV+12, IV+15, IV+16, NEWIV+3 |
| >> PSJSYSU | IV+12, IV+15, IV+16, VFYIV+11, VFYIV+21, VFYIV+22, VFYIV+23, NEWAIV+11, NEWAIV+12 |
| U | IV+4, IV+5, IV+6, IV+8, IV+10, IV+15, IV+16, IV+17, VFYIV+9, VFYIV+22 , 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+8, NEWAIV+10, PUTD55+3, PUTD55+4 |
| >> VAIN(4 | NEWAIV+3, NEWAIV+7 |
| >> VALMBCK | VFYIV+28* |
| >> VND2P5 | VFYIV+13*, VFYIV+14, VFYIV+15 |
| >> VND4 | VFYIV+12*, VFYIV+21, VFYIV+22*, VFYIV+23*, VFYIV+24 |
| X | IV+9*, VFYIV+20~*, VFYIV+21, 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* |