PSJORRE ;BIR/MV-RETURN INPATIENT ACTIVE MEDS (CONDENSED) ;28 Jan 99 / 12:56 PM
Source file <PSJORRE.m>
| Package | Total | Call Graph | 
|---|---|---|
| Inpatient Medications | 4 | $$CODES^PSIVUTL $$LASTREN^PSJLMPRI ($$OIDF,DRGDISP)^PSJLMUT1 $$MR^PSJORRE1 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| OCL1(DFN,BDT,EDT,TFN,MVIEW) | ; Execute this section if MVIEW=0 | |
| IVTMP | ;*** Set ^TMP for IV orders. | |
| UDTMP | ;*** Set ^TMP for Unit dose orders. | |
| STAT(Y,X) | ;* Return the full status instead of just the code for U/D. | |
| OCL(DFN,BDT,EDT,TFN,MVIEW) | 
 
 | |
| TYPE | ;determine if this is an IMO order or not | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PS(52.6 - [#52.6] | IVTMP+7 | 
| ^PS(52.7 - [#52.7] | IVTMP+9 | 
| ^PS(53.1 - [#53.1] | OCL1+7, IVTMP+12, TYPE+1 | 
| ^PS(55 - [#55] | OCL1+6, OCL1+8, UDTMP+13, IVTMP+13, TYPE+2 | 
| ^TMP("PS" | UDTMP+15*, UDTMP+16!*, UDTMP+18*, UDTMP+19*, UDTMP+20*, UDTMP+21*, UDTMP+22*, UDTMP+23*, IVTMP+7*, IVTMP+8* , IVTMP+9*, IVTMP+10*, IVTMP+17*, IVTMP+18!*, IVTMP+20*, IVTMP+23*, IVTMP+24*, IVTMP+25*, IVTMP+26*, IVTMP+27* , IVTMP+28* | 
| ^VA(200 - [#200] | UDTMP+18, IVTMP+20 | 
| Name | Line Occurrences | 
|---|---|
| @( | OCL+5, OCL1+7 | 
| IVTMP | OCL1+8 | 
| TYPE | UDTMP+2, IVTMP+4 | 
| UDTMP | OCL1+6 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| A | OCL1+1~, TYPE+1*, TYPE+2*, TYPE+3 | 
| ADM | OCL1+1~, IVTMP+12*, IVTMP+13*, IVTMP+26 | 
| BDT | OCL~, OCL1~, OCL1+3*, OCL1+8 | 
| CNT | OCL1+1~, IVTMP+5*, IVTMP+7*, IVTMP+8*, IVTMP+9*, IVTMP+10 | 
| DFN | OCL~, OCL1~, OCL1+6, OCL1+7, OCL1+8, UDTMP+3, UDTMP+10, UDTMP+13, IVTMP+6, IVTMP+13 , TYPE+2 | 
| DN | OCL1+1~, UDTMP+10, IVTMP+7*, IVTMP+9*, IVTMP+14*, IVTMP+15*, IVTMP+17 | 
| DN(1 | UDTMP+15 | 
| DO | OCL1+1~, UDTMP+9*, UDTMP+15, IVTMP+14*, IVTMP+17 | 
| DT | OCL1+3 | 
| EDT | OCL~, OCL1~, OCL1+4*, OCL1+5*, UDTMP+5, UDTMP+6, IVTMP+3 | 
| EDTCMPLX | UDTMP+1~, UDTMP+4*, UDTMP+5, UDTMP+6, IVTMP+1~, IVTMP+2*, IVTMP+3 | 
| F | OCL1+1~, OCL1+6*, OCL1+7*, OCL1+8*, UDTMP+1, UDTMP+4, UDTMP+5, UDTMP+6, UDTMP+8, UDTMP+9 , UDTMP+11, UDTMP+17, IVTMP+2, IVTMP+3, IVTMP+5, IVTMP+7, IVTMP+9, IVTMP+12, IVTMP+13, IVTMP+14 , IVTMP+16, IVTMP+19, IVTMP+21, TYPE+1, TYPE+2 | 
| FON | OCL1+1~, UDTMP+1*, UDTMP+3, UDTMP+7, UDTMP+9*, UDTMP+10, UDTMP+11, UDTMP+13, UDTMP+15, IVTMP+5* , IVTMP+6, IVTMP+12, IVTMP+13, IVTMP+17 | 
| INFUS | OCL1+1~, IVTMP+11*, IVTMP+12*, IVTMP+13*, IVTMP+17 | 
| INST | OCL1+1~, UDTMP+1*, UDTMP+8*, UDTMP+21, IVTMP+11*, IVTMP+16*, IVTMP+24 | 
| IVLIM | IVTMP+1~, IVTMP+21*, IVTMP+22*, IVTMP+28 | 
| MR | OCL1+1~, UDTMP+1*, UDTMP+12*, UDTMP+19, IVTMP+11*, IVTMP+12*, IVTMP+13*, IVTMP+16*, IVTMP+23 | 
| MVIEW | OCL~, OCL+5, OCL1~ | 
| ND | OCL1+1~, IVTMP+7*, IVTMP+9* | 
| ND0 | OCL1+1~, UDTMP+6*, UDTMP+7, UDTMP+12, UDTMP+15, IVTMP+3*, IVTMP+11, IVTMP+12, IVTMP+13, IVTMP+17 | 
| ND2 | OCL1+1~, UDTMP+5*, UDTMP+15, UDTMP+20, UDTMP+22, IVTMP+12* | 
| >> ND2P5 | IVTMP+21*, IVTMP+22 | 
| ND6 | OCL1+1~, UDTMP+8*, UDTMP+23 | 
| NDP2 | UDTMP+1~, UDTMP+4*, IVTMP+1~, IVTMP+2* | 
| NOTGIVEN | UDTMP+13~*, UDTMP+15 | 
| ON | OCL1+1~, OCL1+6*, OCL1+7*, OCL1+8*, UDTMP+1, UDTMP+4, UDTMP+5, UDTMP+6, UDTMP+8, UDTMP+9 , UDTMP+11, UDTMP+13, UDTMP+17, IVTMP+2, IVTMP+3, IVTMP+5, IVTMP+7, IVTMP+9, IVTMP+12, IVTMP+13 , IVTMP+14, IVTMP+16, IVTMP+19, IVTMP+21, TYPE+1, TYPE+2 | 
| PON | OCL1+1~, UDTMP+1* | 
| PROVIDER | UDTMP+1~, UDTMP+17*, UDTMP+18, IVTMP+1~, IVTMP+19*, IVTMP+20 | 
| PSJCLIN | OCL1+1~, UDTMP+16, IVTMP+18, TYPE+1*, TYPE+3* | 
| PST | OCL1+1~, OCL1+7* | 
| RNWDT | UDTMP+1~, UDTMP+3*, UDTMP+15, IVTMP+6*, IVTMP+17 | 
| SCH | OCL1+1~, UDTMP+1*, IVTMP+11*, IVTMP+12*, IVTMP+13*, IVTMP+25 | 
| SIO | OCL1+1~, IVTMP+12*, IVTMP+13*, IVTMP+27 | 
| START | IVTMP+1~, IVTMP+12*, IVTMP+13*, IVTMP+17 | 
| STAT | OCL1+1~, UDTMP+7*, UDTMP+15, IVTMP+12*, IVTMP+13*, IVTMP+17 | 
| STOP | IVTMP+1~, IVTMP+12*, IVTMP+13*, IVTMP+17 | 
| TFN | OCL~, OCL1~, UDTMP+14*, UDTMP+15, UDTMP+16, UDTMP+18, UDTMP+19, UDTMP+20, UDTMP+21, UDTMP+22 , UDTMP+23, IVTMP+5*, IVTMP+7, IVTMP+8, IVTMP+9, IVTMP+10, IVTMP+17, IVTMP+18, IVTMP+20, IVTMP+23 , IVTMP+24, IVTMP+25, IVTMP+26, IVTMP+27, IVTMP+28 | 
| TYPE | OCL1+1~, IVTMP+11* | 
| U | OCL1+7, UDTMP+5, UDTMP+6, UDTMP+7, UDTMP+11, UDTMP+12, UDTMP+15, UDTMP+20, UDTMP+22, IVTMP+3 , IVTMP+7, IVTMP+9, IVTMP+11, IVTMP+12, IVTMP+13, IVTMP+14, IVTMP+15, IVTMP+17, IVTMP+21, IVTMP+22 , STAT+1 | 
| UNITS | OCL1+1~, UDTMP+11*, UDTMP+15 | 
| WBDT | OCL1+1~, OCL1+3*, OCL1+6*, OCL1+8* | 
| X | OCL1+1~, OCL1+7*, IVTMP+7*, IVTMP+9*, STAT~, STAT+1*, STAT+2 | 
| Y | OCL1+1~, IVTMP+7*, STAT~, STAT+1 |