PSIVORFA ;BIR/MLM-FILE/RETRIEVE ORDERS IN 53.1 ;15-Apr-2013 19:22;PLS
Source file <PSIVORFA.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| GT531(DFN,ON) | ; Retrieve order data from 53.1 and place into local array | |
| GTPC(ON) | ; Retrieve Provider Comments and create "scratch" fields to edit | |
| PTD531 | ; Move drug data from local array into 53.1 | |
| GTDRG | ; | |
| UPD100 | ; Update order data in file 100 | |
| PUT531 | ; Move data in local variables to 53.1 | 
| FileNo | Call Tags | 
|---|---|
| ^PS(53.1 - [#53.1] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PS( | GTDRG+4 | 
| ^PS(51.1 - [#51.1] | GT531+19, GT531+20 | 
| ^PS(51.2 - [#51.2] | GT531+6 | 
| ^PS(53.1 - [#53.1] | GT531+4, GT531+7, GT531+8, GT531+9, GT531+11, GT531+13, GT531+14, GT531+15, GT531+16, GT531+21 , GT531+23, GT531+25, GT531+26, GT531+28, GTDRG+1, GTDRG+4, PUT531+6*, PUT531+7*, PUT531+8*, PUT531+9 , PUT531+10*, PUT531+11*, PUT531+12*, PUT531+13*, PUT531+14, PUT531+16!, PUT531+17!, PUT531+18*, PUT531+20*, PTD531+1!* , PTD531+3, PTD531+4* | 
| ^PS(59.5 - [#59.5] | GT531+23 | 
| ^VA(200 - [#200] | GT531+6, GT531+15 | 
| Name | Line Occurrences | 
|---|---|
| GTDRG | GT531+27 | 
| GTPC | GT531+27 | 
| PTD531 | PUT531+15 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | PUT531+14* | 
| ^(4 | GT531+9 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| DA | PUT531+16!* | 
| DFN | GT531~, PUT531+3, PUT531+9, PUT531+13, PUT531+16, PUT531+17 | 
| DIK | PUT531+16!* | 
| DRG | GTDRG+1!, GTDRG+4*, PTD531+3*, PTD531+4 | 
| DRG( | GTDRG+4*, PUT531+15, PTD531+2, PTD531+3, PTD531+4 | 
| >> DRGI | GTDRG+4* | 
| >> DRGN | GTDRG+4* | 
| >> DRGT | PUT531+15*, PTD531+1, PTD531+2, PTD531+3, PTD531+4 | 
| DUR | PUT531+9~*, PUT531+10, PUT531+11 | 
| >> FIL | GTDRG+1*, GTDRG+4 | 
| IVLIMIT | PUT531+10! | 
| NAME | GT531+10~*, GT531+11, GT531+12 | 
| ND | GTDRG+4*, PUT531+16! | 
| ND( | PUT531+12 | 
| ND(0 | PUT531+2*, PUT531+3* | 
| ND(2 | PUT531+4* | 
| ND(4 | PUT531+4*, PUT531+5* | 
| ND(8 | PUT531+5* | 
| ND(9 | PUT531+5* | 
| ND2P5 | GT531+28~*, GT531+29, GT531+30, GT531+31 | 
| NOECH | GT531+20~* | 
| ON | GT531~, GT531+4, GT531+7, GT531+8, GT531+9, GT531+11, GT531+13, GT531+14, GT531+15, GT531+16 , GT531+21, GT531+23, GT531+25, GT531+26, GT531+27, GT531+28, GTDRG+1, GTDRG+4, GTPC~, PUT531+2 , PUT531+6, PUT531+7, PUT531+8, PUT531+9, PUT531+10, PUT531+11, PUT531+12, PUT531+13, PUT531+14, PUT531+16 , PUT531+17, PUT531+18, PUT531+20, PTD531+1, PTD531+3, PTD531+4 | 
| >> P | PUT531+13 | 
| >> P( | GT531+3* | 
| >> P("21FLG" | GT531+4* | 
| >> P("APPT" | GT531+13*, PUT531+7 | 
| >> P("CLIN" | GT531+13*, PUT531+6 | 
| >> P("CLRK" | GT531+15*, PUT531+4 | 
| >> P("DO" | GT531+7*, PUT531+14 | 
| >> P("DTYP" | GT531+24* | 
| >> P("DUR" | GT531+29* | 
| >> P("FRES" | GT531+5* | 
| >> P("INS" | GT531+8*, GT531+12* | 
| >> P("IVCAT" | GT531+31* | 
| >> P("IVRM" | GT531+21*, GT531+23*, PUT531+5 | 
| >> P("LIMIT" | GT531+30*, PUT531+8 | 
| >> P("LOG" | GT531+4*, PUT531+3 | 
| >> P("MR" | GT531+6*, PUT531+2 | 
| >> P("NAT" | GT531+7*, PUT531+14 | 
| >> P("NEWON" | GT531+5*, PUT531+3 | 
| >> P("NINIT" | GT531+9*, PUT531+5 | 
| >> P("NINITDT" | GT531+9*, PUT531+5 | 
| >> P("OFFSET" | GT531+26*, PUT531+20 | 
| >> P("OLDON" | GT531+5*, PUT531+3 | 
| >> P("OPI" | GT531+23*, PUT531+5 | 
| >> P("OT" | PUT531+2 | 
| >> P("PACT" | GT531+25* | 
| >> P("PD" | GT531+7*, PUT531+14 | 
| >> P("PRNTON" | GT531+7* | 
| >> P("PRY" | GT531+7* | 
| >> P("REM" | GT531+23*, PUT531+5 | 
| >> P("REN" | GT531+15*, PUT531+4 | 
| >> P("RES" | GT531+5*, PUT531+3 | 
| >> P("SYRS" | GT531+21*, PUT531+5 | 
| >> P(11 | GT531+14*, GT531+18*, PUT531+4, PUT531+16 | 
| >> P(15 | GT531+14*, GT531+18*, PUT531+4, PUT531+16, PUT531+18 | 
| >> P(17 | GT531+4*, PUT531+2, PUT531+17 | 
| >> P(2 | GT531+14*, PUT531+4 | 
| >> P(21 | GT531+4*, PUT531+2 | 
| >> P(23 | GT531+21*, GT531+24, PUT531+5 | 
| >> P(3 | GT531+14*, PUT531+4 | 
| >> P(4 | GT531+21*, GT531+22*, GT531+24, GT531+27, PUT531+5 | 
| >> P(5 | GT531+21*, GT531+24, PUT531+5 | 
| >> P(6 | GT531+6*, PUT531+2 | 
| >> P(7 | GT531+21*, PUT531+5 | 
| >> P(8 | GT531+21*, PUT531+5 | 
| >> P(9 | GT531+14*, GT531+15, GT531+16*, GT531+18, GT531+19, GT531+20, PUT531+1*, PUT531+4 | 
| PSGOES | GT531+2~* | 
| PSGS0XT | GT531+14, GT531+18, PUT531+4, PUT531+16*! | 
| PSGS0Y | PUT531+16*! | 
| PSGSCH | GT531+20~, PUT531+1 | 
| PSGST | GT531+17! | 
| PSIVCAT | PUT531+13*! | 
| >> PSIVSN | GT531+23 | 
| >> PSIVTYPE | GT531+22 | 
| >> PSJCOM | GT531+7* | 
| >> PSJIVORF | UPD100+1 | 
| >> PSJLABEL | GT531+27 | 
| >> PSJORD | PUT531+9 | 
| >> PSJORIFN | GT531+4* | 
| >> PSJORL | UPD100+2* | 
| U | GT531+4, GT531+5, GT531+6, GT531+7, GT531+9, GT531+14, GT531+15, GT531+16, GT531+21, GT531+23 , GT531+26, GTDRG+4, PUT531+2, PUT531+3, PUT531+4, PUT531+5, PUT531+14, PUT531+18, PUT531+20, PTD531+3 , PTD531+4 | 
| >> VAIN(4 | UPD100+2 | 
| >> X | GT531+3*, GT531+15*, GTDRG+1*, GTDRG+4, PUT531+12*, PTD531+2*, PTD531+3, PTD531+4 | 
| >> X1 | PTD531+3*, PTD531+4 | 
| XT | GT531+17!, GT531+18 | 
| >> Y | GT531+4*, GT531+5, GT531+6*, GT531+7*, GT531+14*, GT531+15*, GT531+18, GT531+21*, GT531+23*, GTDRG+1* , GTDRG+4, PTD531+3*, PTD531+4* | 
| >> ZZND | GT531+14, PUT531+4 |