PSGMMIV ;BIR/MV-IV ORDER FOR THE 7/14 DAY MAR. ;25 Nov 98 / 9:24 AM
Source file <PSGMMIV.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 |
|---|---|---|
| START | ;*** Read IV orders
|
|
| IV | ;*** Sort IV orders for 24 Hrs, 7/14 Day MAR.
|
|
| IVPRN | ;*** Set ^tmp to store IV orders that have schedule of PRN.
|
|
| SETVAR | ;***Initialize variables.
|
|
| CHK(TXT) | ;
|
|
| SETLTRT | ;*** Increment line number for left or right label on PRN sheet.
|
|
| SP(X) | ;***Set up spaces need between info on TXT for the label.
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | IV+24 |
| $$ENDTC^PSGMI | SETVAR+2 |
| $$OPI^PSGMIV | IVPRN+22 |
| SPN^PSGMMAR0 | IV+14, IV+28, IV+31 |
| LTRT^PSGMMAR3 | CHK+7, CHK+8, CHK+9, SETLTRT+3, SETLTRT+4, SETLTRT+5, SETLTRT+6 |
| INITOPI^PSGMMIVC | SETVAR+4 |
| GT531^PSIVORFA | IVPRN+4 |
| GT55^PSIVORFB | IV+1, IVPRN+3 |
| $$WRTDRG^PSIVUTL | IVPRN+15, IVPRN+18 |
| $$ONE^PSJBCMA | IV+4 |
| NAMENEED^PSJMUTL | SETVAR+14 |
| $$SETSTR^VALM1 | IVPRN+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | IV+24! |
| %H | IV+24! |
| %T | IV+24! |
| A | IV+11~, IV+12* |
| >> BL | SETVAR+20, CHK+3, CHK+4, SETLTRT+1, SETLTRT+2, SETLTRT+3, SETLTRT+5 |
| CHEMO | IVPRN+1~, IVPRN+21*, IVPRN+26, IVPRN+36 |
| >> DAOO | IVPRN+2 |
| >> DFN | IV+1*, IV+4, IVPRN+2*, IVPRN+4 |
| DRG | IV+1!, IV+10, IVPRN+1! |
| DRG("AD" | IV+10, IVPRN+15 |
| DRG("SOL" | IV+10, IVPRN+17, IVPRN+18, IVPRN+19 |
| DT | IV+24, IV+25 |
| >> INIT | IVPRN+26, IVPRN+27, IVPRN+36, IVPRN+37, SETVAR+5* |
| >> LAB | IVPRN+7, IVPRN+8, IVPRN+29, IVPRN+30, IVPRN+31, IVPRN+39, IVPRN+40, IVPRN+41, CHK+2, CHK+6 , CHK+11 |
| >> LN | IVPRN+8*, IVPRN+15, IVPRN+18, IVPRN+19, IVPRN+26, IVPRN+27*, IVPRN+29, IVPRN+30*, IVPRN+31, IVPRN+36 , IVPRN+37*, IVPRN+39, IVPRN+40*, IVPRN+41, CHK+2*, CHK+6*, CHK+7*, CHK+11* |
| >> LT | CHK+7*, CHK+9, SETLTRT+1*, SETLTRT+3, SETLTRT+6 |
| MULTIPG | START+1~, SETVAR+15*, SETVAR+20*, CHK+4, CHK+7* |
| >> NAMENEED | SETVAR+13*, SETVAR+14*, SETVAR+19 |
| >> NEED | SETVAR+14, SETVAR+15*, SETVAR+19*, SETVAR+20, SETLTRT+1, SETLTRT+2, SETLTRT+5 |
| >> ON | START+2*, START+3*, IV+4, IV+10, IV+12, IVPRN+2*, IVPRN+3, IVPRN+4, IVPRN+10, IVPRN+12 |
| ON55 | IV+1~, IVPRN+1~, IVPRN+22 |
| P | IV+1!, IVPRN+1! |
| P( | SETVAR+2* |
| P("LOG" | IVPRN+8 |
| P("MR" | IV+3, IVPRN+20 |
| P("OPI" | IVPRN+21, IVPRN+24, IVPRN+26, SETVAR+18 |
| P(11 | SETVAR+3 |
| P(2 | IV+2, IV+4, IVPRN+12, SETVAR+3 |
| P(3 | IV+4, IVPRN+12, SETVAR+3 |
| P(4 | IVPRN+21, SETVAR+18 |
| P(8 | IVPRN+20 |
| P(9 | IV+4, IV+5, IVPRN+20, SETVAR+3 |
| >> PG | IVPRN+7, IVPRN+8, IVPRN+29, IVPRN+30, IVPRN+31, IVPRN+39, IVPRN+40, IVPRN+41, CHK+2, CHK+6 , CHK+7*, CHK+11, SETLTRT+1* |
| >> PN | IVPRN+2 |
| POPI | IVPRN+32~*, IVPRN+33*, IVPRN+34*, IVPRN+35*, IVPRN+36, IVPRN+39, IVPRN+40 |
| >> PPN | IV+17, IV+18, IV+19, IV+27, IV+30, IV+35, IV+37 |
| >> PSGCLNC | IV+19 |
| PSGDEM1 | IV+22~*, IV+27, IV+30, IV+32 |
| >> PSGINCL | IV+26, IV+34 |
| >> PSGINCLG | IV+29, IV+36 |
| >> PSGINWD | IV+19 |
| >> PSGINWDG | IV+18 |
| >> PSGLFFD | SETVAR+3* |
| >> PSGLRN | SETVAR+5 |
| >> PSGLRPH | SETVAR+5 |
| >> PSGMARED | START+3* |
| >> PSGMARFD | IV+2, SETVAR+3 |
| >> PSGMAROC | CHK+3, CHK+4, CHK+7*, SETLTRT+1*, SETLTRT+2, SETLTRT+3, SETLTRT+5* |
| >> PSGMARS | IV+6, IV+7 |
| >> PSGMARSD | START+3 |
| PSGMARWC | IV+8~, IV+9*, IV+40 |
| >> PSGMARWN | IV+9, IV+12*, IV+17, IV+18, IV+19, IV+26, IV+27, IV+29, IV+30, IV+34 , IV+35, IV+36, IV+37, IV+40* |
| >> PSGMSORT | IV+17, IV+18, IV+19, IV+27, IV+30, IV+35, IV+37 |
| >> PSGP | START+3, IV+1, IV+12, IVPRN+22 |
| >> PSGP(0 | IVPRN+14 |
| >> PSGRBPPN | IV+26, IV+29, IV+34, IV+36 |
| >> PSGREP | IV+22, IV+23*, IV+25, IV+27, IV+30 |
| >> PSGSS | IV+17, IV+18, IV+19, IV+26, IV+29, IV+34, IV+36 |
| >> PSGST | IVPRN+15*, IVPRN+18*, IVPRN+19*, SETVAR+3* |
| >> PSIVLOPI | IVPRN+22* |
| PSIVOPFL | IVPRN+1~, IVPRN+22*, IVPRN+23, IVPRN+32 |
| PSIVOPIA | IVPRN+1~, IVPRN+22* |
| PSIVOPIA( | IVPRN+33, IVPRN+34 |
| PSIVOPIA("" | IVPRN+33 |
| PSJLABEL | IV+1~*, IVPRN+1~, IVPRN+2* |
| >> PSJPRB | IV+27, IV+30, IV+35, IV+37 |
| >> PSJPRT2 | IVPRN+19* |
| >> PSSN | IVPRN+14 |
| >> PST | START+3, IV+3 |
| >> QST | IV+4*, IV+5*, IV+6, IV+7, IV+17, IV+18, IV+19, IV+27, IV+30, IV+35 , IV+37 |
| >> RT | CHK+7*, CHK+8, SETLTRT+1*, SETLTRT+4, SETLTRT+5 |
| >> SUB1 | IV+12 |
| >> SUB2 | IV+12 |
| >> TM | IV+12, IV+27, IV+30, IV+35, IV+37 |
| TMSTR | SETVAR+1~, SETVAR+3* |
| TXT | IVPRN+1~, IVPRN+15*, IVPRN+16*, IVPRN+18*, IVPRN+19*, IVPRN+20*, IVPRN+26*, IVPRN+27*, IVPRN+31, IVPRN+36* , IVPRN+37*, IVPRN+41, CHK~, CHK+11* |
| U | IV+3, IV+10, IV+25, IVPRN+2, IVPRN+19, IVPRN+20 |
| >> UP | IVPRN+7, IVPRN+8, IVPRN+29, IVPRN+30, IVPRN+31, IVPRN+39, IVPRN+40, IVPRN+41, CHK+2, CHK+6 , CHK+11 |
| X | IV+1~, IV+3*, IV+10*, IV+13~, IV+17, IV+18, IV+19, IV+22, IV+25, IV+32* , IV+35, IV+37, IVPRN+15*, IVPRN+17*, IVPRN+18, IVPRN+19, IVPRN+26*, IVPRN+36*, SETVAR+2*, SETVAR+13~ , SETVAR+14*, SETVAR+18*, SETVAR+19*, SP~, SP+1 |
| >> X1 | IV+24* |
| >> X2 | IV+24* |
| >> XTYPE | IV+3, IV+5 |
| Y | IV+13~, IVPRN+24*, IVPRN+32*, SP+1~*, SP+2 |
| >> Y1 | IVPRN+23*, IVPRN+24*, IVPRN+25*, IVPRN+26, IVPRN+29, IVPRN+30, IVPRN+32* |
| YL | IVPRN+32~*, IVPRN+33*, IVPRN+34 |