PSJORMAR ;BIR/MV-CREATE AN ARRAY FOR THE MAR LABEL. ;19 Mar 99 / 9:33 AM
Source file <PSJORMAR.m>
| Package | Total | Call Graph | 
|---|---|---|
| Inpatient Medications | 6 | ^PSGLPI TS^PSGMAR3 ($$ENDTC,$$ENDTC1)^PSGMI $$BLANK^PSGMUTL MARLB^PSJORMA1 ^PSJORMA2 | 
| Registration | 1 | $$SETSTR^VALM1 | 
| VA Fileman | 1 | NOW^%DTC | 
| Package | Total | Caller Graph | 
|---|---|---|
| Order Entry Results Reporting | 1 | ORPR07 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| UD | ;Gather data for U/D order. | |
| MAR(DFN,ON,PT,MARLB,ACT) | 
 
 | |
| TS | ;Attach amdin times to the label. | |
| PT | ;Hook up patient info to label | |
| IV | ; | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PS(53.1 - [#53.1] | MAR+26, MAR+31 | 
| ^PS(55 - [#55] | MAR+28, MAR+31 | 
| ^PSD(58.8 - [#58.8] | UD+27 | 
| ^PSI(58.1 - [#58.1] | UD+27 | 
| ^VA(200 - [#200] | UD+28, UD+29 | 
| Name | Line Occurrences | 
|---|---|
| IV | MAR+27 | 
| PT | TS+7 | 
| TS | IV+1 | 
| UD | MAR+36 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | UD+25, UD+27 | 
| ^(0 | UD+28, UD+29 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> % | MAR+25, UD+27, TS+2 | 
| ACT | MAR~, MAR+29, MAR+35 | 
| C | MAR+14~ | 
| DFN | MAR~, MAR+24, MAR+28 | 
| DRG | MAR+14~ | 
| DRGI | MAR+14~ | 
| DRGN | MAR+14~ | 
| DRGT | MAR+14~ | 
| DRUGNAME | MAR+14~ | 
| F | MAR+14~, UD+9*, UD+10, UD+11, UD+12, UD+24, UD+25, UD+27 | 
| FIL | MAR+14~ | 
| L | MAR+14~ | 
| MARLB | MAR~ | 
| MARLB( | TS+6* | 
| MARLB(1 | UD+4*, PT+2*, PT+4* | 
| MARLB(2 | UD+5*, PT+6*, PT+7*, PT+8* | 
| MARLB(3 | UD+6*, PT+9*, PT+10* | 
| MARLB(4 | UD+7*, PT+11*, PT+18* | 
| MARLB(5 | UD+8*, PT+19*, PT+21* | 
| ND | MAR+14~ | 
| NODE | MAR+13~ | 
| NODE(0 | MAR+26*, MAR+28*, MAR+30, UD+3, UD+15, UD+20, UD+23, UD+26, UD+31 | 
| NODE(2 | UD+10*, UD+18, UD+19, UD+20, UD+22, UD+31 | 
| NODE(4 | UD+11*, UD+14 | 
| NODE(7 | UD+12*, UD+13 | 
| ON | MAR~, MAR+24, MAR+26, MAR+27, MAR+28, MAR+34, UD+6, UD+9, UD+17 | 
| P | MAR+14~ | 
| P(3 | UD+31*, TS+3, PT+15 | 
| P(9 | UD+31*, TS+5 | 
| PSGDT | MAR+14~, TS+2*, TS+3, PT+15 | 
| PSGLAD | MAR+14~ | 
| PSGLAGE | MAR+15~, PT+7 | 
| PSGLBID | MAR+15~ | 
| PSGLBS5 | MAR+15~ | 
| PSGLDESC | MAR+15~ | 
| PSGLDOB | MAR+15~, PT+7 | 
| PSGLDT | MAR+15~, UD+13*, PT+11 | 
| PSGLDX | MAR+16~, PT+10 | 
| PSGLFD | MAR+16~, UD+16*, UD+19* | 
| PSGLNF | MAR+16~, UD+27* | 
| PSGLOD | MAR+16~, UD+15* | 
| PSGLPID | MAR+16~ | 
| PSGLPN | MAR+16~, UD+4, PT+2 | 
| PSGLPR | MAR+16~ | 
| PSGLR | MAR+17~, UD+13*, PT+12, PT+15 | 
| PSGLRB | MAR+17~, PT+3 | 
| PSGLRN | MAR+17~, UD+14*, UD+28* | 
| PSGLRPH | MAR+17~, UD+14*, UD+29* | 
| PSGLRTN | MAR+17~ | 
| PSGLSD | MAR+17~, UD+16*, UD+18* | 
| PSGLSEX | MAR+17~, PT+9 | 
| PSGLSI | MAR+18~, UD+23*, UD+24*, UD+25* | 
| PSGLSM | MAR+18~, UD+26* | 
| PSGLSSN | MAR+18~, UD+4, PT+6 | 
| PSGLST | MAR+18~, UD+20* | 
| PSGLTM | MAR+18~, PT+8 | 
| PSGLTS | MAR+18~ | 
| PSGLWD | MAR+18~, UD+27 | 
| PSGLWDN | MAR+19~, PT+20 | 
| PSGLWG | MAR+19~ | 
| PSGLWGN | MAR+19~, PT+19 | 
| PSGLWS | MAR+19~, UD+27* | 
| PSGMARGD | MAR+19~ | 
| PSGNOW | UD+27~* | 
| PSGOES | MAR+19~ | 
| PSGOP | MAR+20~, MAR+24* | 
| PSGORD | MAR+20~, MAR+24* | 
| PSGP | MAR+20~, MAR+24*, MAR+31, MAR+32, MAR+34 | 
| PSGS0XT | MAR+20~ | 
| PSGS0Y | MAR+20~ | 
| PSGST | MAR+20~ | 
| PSGTOL | MAR+20~ | 
| PSGVADR | MAR+21~ | 
| PSIVUP | MAR+21~ | 
| PSJCONT | MAR+21~ | 
| PSJF | MAR+23~, MAR+32*, MAR+33*, MAR+34*, MAR+35* | 
| PSJLDT | MAR+23~, MAR+25*, MAR+33, MAR+35 | 
| PSJOPC | MAR+21~ | 
| PSJORIFN | MAR+21~ | 
| PSJPON | MAR+23~, MAR+30*, MAR+31, MAR+32 | 
| PSJROC | MAR+23~, MAR+31*, MAR+33 | 
| PST | MAR+21~, UD+20* | 
| PT | MAR~, TS+7 | 
| Q | MAR+21~ | 
| MAR+21~ | |
| S | MAR+21~ | 
| SD | MAR+21~ | 
| STOP | MAR+22~ | 
| T | MAR+22~ | 
| TS | MAR+22~ | 
| TS( | TS+4*, TS+6 | 
| TS(0 | TS+5* | 
| TS(3 | TS+5* | 
| TYPE | MAR+13~, MAR+26*, MAR+27 | 
| U | MAR+26, MAR+30, MAR+31, MAR+33, MAR+35, UD+13, UD+14, UD+15, UD+18, UD+19 , UD+20, UD+22, UD+23, UD+25, UD+26, UD+27, UD+28, UD+29, UD+31 | 
| VA | MAR+22~ | 
| X | MAR+22~, UD+25*, UD+27*, UD+28*, UD+29*, TS+4*, TS+6*, PT+3*, PT+4, PT+12* , PT+13, PT+20*, PT+21 | 
| >> Y | UD+25*, UD+27*, PT+12*, PT+13*, PT+15*, PT+16*, PT+18 | 
| >> Z | UD+25* |