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* |