PSJORRN ;BIR/MV-RETURN INPATIENT ACTIVE MEDS (CONDENSED) NEW SORT ;28 Jan 99 / 12:56 PM
Source file <PSJORRN.m>
Package | Total | Call Graph |
---|---|---|
Inpatient Medications | 4 | $$CODES^PSIVUTL $$LASTREN^PSJLMPRI ($$OIDF,DRGDISP)^PSJLMUT1 $$MR^PSJORRE1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
IVTMP | ;*** Set ^TMP for IV orders.
|
|
UDTMP | ;*** Set ^TMP for Unit dose orders.
|
|
TYPE | ;determine if this is an IMO order or not
|
|
OCL(DFN,BDT,EDT,TFN) | ; return condensed list of inpat meds
; MVIEW=2 - This is the new sort with GUI 27 ; Execute this section if MVIEW=2 |
|
STAT(Y,X) | ;* Return the full status instead of just the code for U/D.
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(50.7 - [#50.7] | UDTMP+22, IVTMP+16 |
^PS(52.6 - [#52.6] | IVTMP+20 |
^PS(52.7 - [#52.7] | IVTMP+22 |
^PS(53.1 - [#53.1] | OCL+10, IVTMP+25, TYPE+1 |
^PS(55 - [#55] | OCL+9, OCL+11, UDTMP+15, IVTMP+26, TYPE+2 |
^SC - [#44] | UDTMP+18, IVTMP+15 |
^TMP("PS" | OCL+17* |
^TMP("PSJTMP" | OCL+12, OCL+13, OCL+14, OCL+17, OCL+18!, UDTMP+26*, UDTMP+27!*, UDTMP+29*, UDTMP+30*, UDTMP+31* , UDTMP+32*, UDTMP+33*, UDTMP+34*, IVTMP+20*, IVTMP+21*, IVTMP+22*, IVTMP+23*, IVTMP+30*, IVTMP+31!*, IVTMP+33* , IVTMP+36*, IVTMP+37*, IVTMP+38*, IVTMP+39*, IVTMP+40*, IVTMP+41* |
^VA(200 - [#200] | UDTMP+29, IVTMP+33 |
Name | Line Occurrences |
---|---|
@( | OCL+10 |
IVTMP | OCL+11 |
TYPE | UDTMP+3, IVTMP+5 |
UDTMP | OCL+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | OCL+3~, TYPE+1*, TYPE+2*, TYPE+3 |
ADM | OCL+3~, IVTMP+25*, IVTMP+26*, IVTMP+39 |
BDT | OCL~, OCL+6*, OCL+11 |
CNT | OCL+3~, UDTMP+25*, IVTMP+6*, IVTMP+19*, IVTMP+20*, IVTMP+21*, IVTMP+22*, IVTMP+23 |
DFN | OCL~, OCL+9, OCL+10, OCL+11, UDTMP+4, UDTMP+12, UDTMP+15, IVTMP+7, IVTMP+26, TYPE+2 |
DN | OCL+3~, UDTMP+12, IVTMP+20*, IVTMP+22*, IVTMP+27*, IVTMP+28*, IVTMP+30 |
DN(1 | UDTMP+26 |
DO | OCL+3~, UDTMP+11*, UDTMP+26, IVTMP+27*, IVTMP+30 |
DT | OCL+6 |
EDT | OCL~, OCL+7*, OCL+8*, UDTMP+6, UDTMP+7, IVTMP+4 |
EDTCMPLX | UDTMP+1~, UDTMP+5*, UDTMP+6, UDTMP+7, IVTMP+1~, IVTMP+2*, IVTMP+3*, IVTMP+4 |
F | OCL+3~, OCL+9*, OCL+10*, OCL+11*, UDTMP+2, UDTMP+5, UDTMP+6, UDTMP+7, UDTMP+8, UDTMP+10 , UDTMP+11, UDTMP+13, UDTMP+17, UDTMP+18, UDTMP+28, IVTMP+3, IVTMP+4, IVTMP+6, IVTMP+9, IVTMP+11 , IVTMP+12, IVTMP+20, IVTMP+22, IVTMP+25, IVTMP+26, IVTMP+27, IVTMP+29, IVTMP+32, IVTMP+34, TYPE+1 , TYPE+2 |
FON | OCL+3~, UDTMP+2*, UDTMP+4, UDTMP+9, UDTMP+11*, UDTMP+12, UDTMP+13, UDTMP+15, UDTMP+26, IVTMP+6* , IVTMP+7, IVTMP+25, IVTMP+26, IVTMP+30 |
>> GP | UDTMP+20*, UDTMP+21, UDTMP+26, UDTMP+27, UDTMP+29, UDTMP+30, UDTMP+31, UDTMP+32, UDTMP+33, UDTMP+34 , IVTMP+13*, IVTMP+14, IVTMP+20, IVTMP+21, IVTMP+22, IVTMP+23, IVTMP+30, IVTMP+31, IVTMP+33, IVTMP+36 , IVTMP+37, IVTMP+38, IVTMP+39, IVTMP+40, IVTMP+41 |
INFUS | OCL+3~, IVTMP+24*, IVTMP+25*, IVTMP+26*, IVTMP+30 |
INST | OCL+3~, UDTMP+2*, UDTMP+10*, UDTMP+32, IVTMP+24*, IVTMP+29*, IVTMP+37 |
IVLIM | IVTMP+1~, IVTMP+2*, IVTMP+34*, IVTMP+35*, IVTMP+41 |
LOC | UDTMP+1~, UDTMP+17*, UDTMP+18*, UDTMP+26, UDTMP+27, UDTMP+29, UDTMP+30, UDTMP+31, UDTMP+32, UDTMP+33 , UDTMP+34, IVTMP+1~, IVTMP+2*, IVTMP+15*, IVTMP+20, IVTMP+21, IVTMP+22, IVTMP+23, IVTMP+30, IVTMP+31 , IVTMP+33, IVTMP+36, IVTMP+37, IVTMP+38, IVTMP+39, IVTMP+40, IVTMP+41 |
MR | OCL+3~, UDTMP+2*, UDTMP+14*, UDTMP+30, IVTMP+24*, IVTMP+25*, IVTMP+26*, IVTMP+29*, IVTMP+36 |
ND | OCL+3~, IVTMP+20*, IVTMP+22* |
ND0 | OCL+3~, UDTMP+7*, UDTMP+9, UDTMP+14, UDTMP+19, UDTMP+26, IVTMP+4*, IVTMP+11, IVTMP+12, IVTMP+24 , IVTMP+25, IVTMP+26, IVTMP+30 |
ND2 | OCL+3~, UDTMP+6*, UDTMP+26, UDTMP+31, UDTMP+33, IVTMP+25* |
>> ND2P5 | IVTMP+34*, IVTMP+35 |
ND6 | OCL+3~, UDTMP+10*, UDTMP+34 |
ND8 | UDTMP+1~, UDTMP+8*, UDTMP+18 |
NDDSS | UDTMP+1~, UDTMP+2*, UDTMP+17*, UDTMP+18, IVTMP+1~, IVTMP+2*, IVTMP+9*, IVTMP+15 |
NDP2 | UDTMP+1~, UDTMP+5*, UDTMP+8*, UDTMP+22, IVTMP+1~, IVTMP+2*, IVTMP+3*, IVTMP+9*, IVTMP+10 |
NOTGIVEN | UDTMP+15~*, UDTMP+26 |
ON | OCL+3~, OCL+9*, OCL+10*, OCL+11*, UDTMP+2, UDTMP+5, UDTMP+6, UDTMP+7, UDTMP+8, UDTMP+10 , UDTMP+11, UDTMP+13, UDTMP+15, UDTMP+17, UDTMP+28, IVTMP+3, IVTMP+4, IVTMP+6, IVTMP+9, IVTMP+20 , IVTMP+22, IVTMP+25, IVTMP+26, IVTMP+27, IVTMP+29, IVTMP+32, IVTMP+34, TYPE+1, TYPE+2 |
PON | OCL+3~, UDTMP+2* |
PRIO | UDTMP+1~, UDTMP+5*, UDTMP+21, IVTMP+1~, IVTMP+2*, IVTMP+3*, IVTMP+14 |
PROVIDER | UDTMP+1~, UDTMP+28*, UDTMP+29, IVTMP+1~, IVTMP+2*, IVTMP+32*, IVTMP+33 |
PSJCLIN | OCL+3~, UDTMP+27, IVTMP+31, TYPE+1*, TYPE+3* |
PSJDDNM | UDTMP+1~ |
PSJOI | UDTMP+1~, UDTMP+22*, IVTMP+10*, IVTMP+16, IVTMP+17 |
PSJOINM | UDTMP+1~, UDTMP+22*, UDTMP+25*, UDTMP+26, UDTMP+27, UDTMP+29, UDTMP+30, UDTMP+31, UDTMP+32, UDTMP+33 , UDTMP+34, IVTMP+16*, IVTMP+17*, IVTMP+19*, IVTMP+20, IVTMP+21, IVTMP+22, IVTMP+23, IVTMP+30, IVTMP+31 , IVTMP+33, IVTMP+36, IVTMP+37, IVTMP+38, IVTMP+39, IVTMP+40, IVTMP+41 |
>> PSJST | UDTMP+19*, UDTMP+20, UDTMP+21, UDTMP+26, UDTMP+27, UDTMP+29, UDTMP+30, UDTMP+31, UDTMP+32, UDTMP+33 , UDTMP+34, IVTMP+11*, IVTMP+12*, IVTMP+13, IVTMP+14, IVTMP+20, IVTMP+21, IVTMP+22, IVTMP+23, IVTMP+30 , IVTMP+31, IVTMP+33, IVTMP+36, IVTMP+37, IVTMP+38, IVTMP+39, IVTMP+40, IVTMP+41 |
>> PSJST2 | UDTMP+21*, IVTMP+14* |
PST | OCL+3~, OCL+10* |
RNWDT | UDTMP+1~, UDTMP+4*, UDTMP+26, IVTMP+7*, IVTMP+30 |
SCH | OCL+3~, UDTMP+2*, IVTMP+24*, IVTMP+25*, IVTMP+26*, IVTMP+38 |
SIO | OCL+3~, IVTMP+25*, IVTMP+26*, IVTMP+40 |
START | IVTMP+1~, IVTMP+2*, IVTMP+25*, IVTMP+26*, IVTMP+30 |
STAT | OCL+3~, UDTMP+9*, UDTMP+26, IVTMP+25*, IVTMP+26*, IVTMP+30 |
STOP | IVTMP+1~, IVTMP+2*, IVTMP+25*, IVTMP+26*, IVTMP+30 |
TFN | OCL~, OCL+14*, OCL+17 |
TFN2 | OCL+3~, OCL+4*, UDTMP+24*, UDTMP+26, UDTMP+27, UDTMP+29, UDTMP+30, UDTMP+31, UDTMP+32, UDTMP+33 , UDTMP+34, IVTMP+6*, IVTMP+20, IVTMP+21, IVTMP+22, IVTMP+23, IVTMP+30, IVTMP+31, IVTMP+33, IVTMP+36 , IVTMP+37, IVTMP+38, IVTMP+39, IVTMP+40, IVTMP+41 |
TYPE | OCL+3~, IVTMP+24* |
U | OCL+10, UDTMP+6, UDTMP+7, UDTMP+9, UDTMP+13, UDTMP+14, UDTMP+26, UDTMP+31, UDTMP+33, IVTMP+4 , IVTMP+20, IVTMP+22, IVTMP+24, IVTMP+25, IVTMP+26, IVTMP+27, IVTMP+28, IVTMP+30, IVTMP+34, IVTMP+35 , STAT+1 |
UNITS | OCL+3~, UDTMP+13*, UDTMP+26 |
WBDT | OCL+3~, OCL+6*, OCL+9*, OCL+11* |
X | OCL+3~, OCL+10*, IVTMP+20*, IVTMP+22*, STAT~, STAT+1*, STAT+2 |
>> X1 | OCL+12*, OCL+13, OCL+14, OCL+17 |
>> X2 | OCL+12*, OCL+13, OCL+14, OCL+17 |
>> X3 | OCL+13*, OCL+14, OCL+17 |
>> X4 | OCL+13*, OCL+14, OCL+17 |
>> X5 | OCL+14*, OCL+17 |
Y | OCL+3~, IVTMP+20*, STAT~, STAT+1 |