©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSGMMIV ;BIR/MV-IV ORDER FOR THE 7/14 DAY MAR. ;25 Nov 98 / 9:24 AM
Source file <PSGMMIV.m>
| Package | Total | Call Graph |
|---|---|---|
| Inpatient Medications | 9 | $$ENDTC^PSGMI SPN^PSGMMAR0 LTRT^PSGMMAR3 INITOPI^PSGMMIVC GT531^PSIVORFA GT55^PSIVORFB $$WRTDRG^PSIVUTL $$ONE^PSJBCMA NAMENEED^PSJMUTL |
| Registration | 1 | $$SETSTR^VALM1 |
| VA Fileman | 1 | C^%DTC |
| Package | Total | Caller Graph |
|---|---|---|
| Inpatient Medications | 2 | PSGMMAR0 PSGMMAR3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IVPRN | ;*** Set ^tmp to store IV orders that have schedule of PRN.
|
|
| IV | ;*** Sort IV orders for 24 Hrs, 7/14 Day MAR.
|
|
| START | ;*** Read IV orders
|
|
| SETLTRT | ;*** Increment line number for left or right label on PRN sheet.
|
|
| CHK(TXT) | ;
|
|
| SP(X) | ;***Set up spaces need between info on TXT for the label.
|
|
| SETVAR | ;***Initialize variables.
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | IV+24 |
| $$ENDTC^PSGMI | SETVAR+2 |
| 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+6 |
| GT55^PSIVORFB | IV+1, IVPRN+5 |
| $$WRTDRG^PSIVUTL | IVPRN+19, IVPRN+23 |
| $$ONE^PSJBCMA | IV+4 |
| NAMENEED^PSJMUTL | SETVAR+17 |
| $$SETSTR^VALM1 | IVPRN+18 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.7 - [#52.7] | IVPRN+24 |
| ^PS(55 - [#55] | START+3, IV+12 |
| ^TMP($J | IV+12, IV+17*, IV+18*, IV+19*, IV+35*, IV+37*, IVPRN+9, IVPRN+10, IVPRN+32, IVPRN+33 , IVPRN+34, CHK+2, CHK+6, CHK+11 |
| ^XTMP( | IV+25*, IV+27*, IV+30* |
| Name | Line Occurrences |
|---|---|
| $$SP | IVPRN+19, IVPRN+23, IVPRN+24, IVPRN+29, IVPRN+30, SETVAR+6 |
| CHK | IVPRN+19, IVPRN+23, IVPRN+24, IVPRN+25, IVPRN+26, IVPRN+27, IVPRN+28, IVPRN+33 |
| IV | START+3 |
| SETLTRT | IVPRN+7 |
| SETVAR | IVPRN+7 |
| Name | Field # of Occurrence |
|---|---|
| ^( | IVPRN+32*, IVPRN+33*, IVPRN+34*, CHK+2*, CHK+6*, CHK+11* |
| ^(1 | IVPRN+9* |
| ^(2 | IVPRN+10*, IVPRN+14*, IVPRN+16*, IVPRN+18* |
| >> | 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+24, CHK+3, CHK+4, SETLTRT+1, SETLTRT+2, SETLTRT+3, SETLTRT+5 |
| CHEMO | IVPRN+1~, IVPRN+26*, IVPRN+29 |
| >> DAOO | IVPRN+2 |
| >> DFN | IV+1*, IV+4, IVPRN+2*, IVPRN+6 |
| DRG | IV+1!, IV+10, IVPRN+1! |
| DRG("AD" | IV+10, IVPRN+19 |
| DRG("SOL" | IV+10, IVPRN+22, IVPRN+23, IVPRN+24 |
| DT | IV+24, IV+25 |
| >> INIT | IVPRN+29, IVPRN+30, SETVAR+6* |
| >> LAB | IVPRN+9, IVPRN+10, IVPRN+32, IVPRN+33, IVPRN+34, CHK+2, CHK+6, CHK+11 |
| >> LN | IVPRN+10*, IVPRN+19, IVPRN+23, IVPRN+24, IVPRN+29, IVPRN+30*, IVPRN+32, IVPRN+33*, IVPRN+34, CHK+2* , CHK+6*, CHK+7*, CHK+11* |
| >> LT | CHK+7*, CHK+9, SETLTRT+1*, SETLTRT+3, SETLTRT+6 |
| MULTIPG | START+1~, SETVAR+18*, SETVAR+24*, CHK+4, CHK+7* |
| >> NAMENEED | SETVAR+16*, SETVAR+17*, SETVAR+23 |
| >> NEED | SETVAR+17, SETVAR+18*, SETVAR+23*, SETVAR+24, SETLTRT+1, SETLTRT+2, SETLTRT+5 |
| >> ON | START+2*, START+3*, IV+4, IV+10, IV+12, IVPRN+2*, IVPRN+5, IVPRN+6, IVPRN+14, IVPRN+16 |
| ON55 | IV+1~, IVPRN+1~ |
| P | IV+1!, IVPRN+1! |
| P( | SETVAR+2* |
| P("LOG" | IVPRN+10 |
| P("MR" | IV+3, IVPRN+25 |
| P("OPI" | IVPRN+26, IVPRN+27, IVPRN+29, SETVAR+22 |
| P(11 | SETVAR+3 |
| P(2 | IV+2, IV+4, IVPRN+16, SETVAR+3 |
| P(3 | IV+4, IVPRN+16, SETVAR+3 |
| P(4 | IVPRN+26, SETVAR+22 |
| P(8 | IVPRN+25 |
| P(9 | IV+4, IV+5, IVPRN+25, SETVAR+3 |
| >> PG | IVPRN+9, IVPRN+10, IVPRN+32, IVPRN+33, IVPRN+34, CHK+2, CHK+6, CHK+7*, CHK+11, SETLTRT+1* |
| >> PN | IVPRN+2 |
| >> 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+6 |
| >> PSGLRPH | SETVAR+6 |
| >> 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 |
| >> PSGP(0 | IVPRN+18 |
| >> 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+19*, IVPRN+23*, IVPRN+24*, SETVAR+3* |
| PSJLABEL | IV+1~*, IVPRN+1~, IVPRN+2* |
| >> PSJPRB | IV+27, IV+30, IV+35, IV+37 |
| >> PSJPRT2 | IVPRN+24* |
| >> PSSN | IVPRN+18 |
| >> 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+19*, IVPRN+20*, IVPRN+23*, IVPRN+24*, IVPRN+25*, IVPRN+29*, IVPRN+30*, IVPRN+34, CHK~ , CHK+11* |
| U | IV+3, IV+10, IV+25, IVPRN+2, IVPRN+24, IVPRN+25 |
| >> UP | IVPRN+9, IVPRN+10, IVPRN+32, IVPRN+33, IVPRN+34, 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+19*, IVPRN+22*, IVPRN+23, IVPRN+24, IVPRN+29*, SETVAR+2*, SETVAR+16~, SETVAR+17* , SETVAR+22*, SETVAR+23*, SP~, SP+1 |
| >> X1 | IV+24* |
| >> X2 | IV+24* |
| >> XTYPE | IV+3, IV+5 |
| Y | IV+13~, IVPRN+27*, SP+1~*, SP+2 |
| >> Y1 | IVPRN+27*, IVPRN+28*, IVPRN+29, IVPRN+32, IVPRN+33 |