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