PSJBLDOC ;BIR/MV - API to build ^TMP for prospective and PSJ profile drugs ;03 Aug 98 / 8:42 AM
Source file <PSJBLDOC.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Inpatient Medications | 2 | PSGOEV PSJCLNOC |
| Outpatient Pharmacy | 2 | PSODDPR4 PSODDPR7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IN(DFN,LIST,PDRG,PTYP) | ;
|
|
| PROFILE(DFN,PSJWON,PTYP) | ||
| UD | ;Get the dispense drugs for the Unit Dose orders.
|
|
| PIV | ;Get the dispense drugs for the Pending IV orders.
|
|
| IV | ;Get the dispense drugs for the IV orders.
|
|
| SETIN(PSJFLG,PSJNM,DDRUG,ON,PSJCODE,PSJCLCOD,PSJCLINF) | ;Set ^TMP($J,"PSJPRE,"IN" arrays.
|
|
| IV0(PSJAD,PSIVIEN) | ;Return ad/sol zero node
|
|
| NODD(PSJCODE,PSJOIDF,PSJPON,PSJBASE) | ;Set ^TMP for OI without a dispense drug
|
| FileNo | Call Tags |
|---|---|
| ^PS(53.1 - [#53.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.6 - [#52.6] | IV0+2 |
| ^PS(52.7 - [#52.7] | IV0+3 |
| ^PS(53.1 - [#53.1] | PROFILE+22, PROFILE+23, PROFILE+32, PROFILE+34, PROFILE+35, PIV+2, PIV+6, PIV+7, PIV+11, PIV+12 |
| ^PS(55 - [#55] | PROFILE+31, PROFILE+39, IV+2, IV+9, IV+10, IV+15, IV+16 |
| ^PSDRUG - [#50] | UD+19, UD+26, UD+29, PIV+20, IV+24, SETIN+14 |
| ^PSDRUG("ASP" | UD+29 |
| ^TMP($J | IN+11!, PROFILE+15, PROFILE+16, PROFILE+31, PROFILE+32, PROFILE+39, UD+5, PIV+4, IV+4, SETIN+16* , NODD+9* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PROFILE+8~, PROFILE+30 |
| BDT | PROFILE+8~, PROFILE+30*, PROFILE+32, PROFILE+39, UD+18 |
| COD | PROFILE+8~, PROFILE+18*, PROFILE+19*, PROFILE+21*, PROFILE+31*, PROFILE+33*, PROFILE+39*, UD+19, UD+24, UD+26 , UD+29, UD+32, PIV+9, PIV+10, PIV+16, PIV+17, IV+12, IV+13, IV+20, IV+21 |
| DDRUG | PROFILE+8~, UD+1~, UD+10*, UD+15*, UD+16, UD+17, UD+19, UD+25*, UD+26, UD+29* , UD+32, PIV+1~, PIV+8*, PIV+9, PIV+14*, PIV+16, PIV+20, PIV+21, IV+1~, IV+11* , IV+12, IV+13, IV+18*, IV+20, IV+21, IV+24, IV+25, SETIN~, SETIN+11, SETIN+13 , SETIN+14, SETIN+16 |
| DDRUGN | UD+1~ |
| DDRUGND | PROFILE+8~ |
| DFN | IN~, IN+10, PROFILE~, PROFILE+14, PROFILE+31, PROFILE+32, PROFILE+39, IV+2, IV+9, IV+10 , IV+15, IV+16 |
| EDT | PROFILE+8~, PROFILE+30* |
| F | PROFILE+8~, PROFILE+17*, PROFILE+20*, PROFILE+31*, PROFILE+32*, UD+2, UD+13, UD+14, UD+15 |
| LIST | IN~, SETIN+12, SETIN+16 |
| ON | PROFILE+8~, PROFILE+16*, PROFILE+18, PROFILE+19, PROFILE+21, PROFILE+22, PROFILE+23, PROFILE+26, PROFILE+31*, PROFILE+32* , PROFILE+33, PROFILE+34, PROFILE+35, PROFILE+37, PROFILE+39*, UD+2, UD+5, UD+13, UD+14, UD+15 , PIV+2, PIV+3, PIV+4, PIV+6, PIV+7, PIV+11, PIV+12, IV+2, IV+4, IV+9 , IV+10, IV+15, IV+16, SETIN~, SETIN+9, SETIN+10 |
| ON1 | PROFILE+8~, UD+13*, UD+15*, PIV+6*, PIV+7, PIV+11*, PIV+12, IV+9*, IV+10, IV+15* , IV+16 |
| PDRG | IN~ |
| PSIVIEN | IV0~, IV0+2, IV0+3 |
| PSJ0 | PIV+1~, PIV+7*, PIV+8, PIV+10, PIV+13*, PIV+14, PIV+17, IV+1~, IV+10*, IV+11 , IV+17*, IV+18 |
| PSJAD | IV0~, IV0+2, IV0+3 |
| >> PSJALLGY("Z" | PIV+21*, IV+25* |
| PSJBASE | NODD~, NODD+6, NODD+9 |
| PSJCLCOD | PROFILE+8~, PROFILE+9*, PROFILE+18*, PROFILE+19*, PROFILE+23*, PROFILE+25*, PROFILE+26*, PROFILE+31*, PROFILE+32*, PROFILE+35* , PROFILE+36*, PROFILE+37*, PROFILE+39*, UD+5, UD+6, UD+19, UD+24, UD+26, UD+29, UD+32 , PIV+9, PIV+10, PIV+16, PIV+17, IV+5, IV+12, IV+13, IV+20, IV+21, SETIN~ , SETIN+9, SETIN+10, SETIN+16 |
| PSJCLDAT | UD+1~, UD+4* |
| PSJCLDAY | UD+1~, UD+4* |
| PSJCLIND | PROFILE+8~ |
| PSJCLINF | PROFILE+8~, UD+4*, UD+5*, UD+6, UD+7, UD+8, UD+9, UD+18, UD+19, UD+24 , UD+26, UD+29, UD+32, PIV+3*, PIV+4*, PIV+5, PIV+9, PIV+10, PIV+16, PIV+17 , IV+2*, IV+4*, IV+5, IV+6, IV+7, IV+8, IV+12, IV+13, IV+20, IV+21 , SETIN~, SETIN+9, SETIN+16 |
| PSJCLNTY | PIV+1~, PIV+3*, PIV+4 |
| PSJCLNX | UD+1~, UD+4*, IV+1~, IV+2* |
| PSJCNT | UD+1~, UD+13*, UD+19, UD+26, UD+29 |
| PSJCODE | SETIN~, SETIN+10, SETIN+12, NODD~, NODD+7, NODD+9 |
| >> PSJCOM | PROFILE+22, PROFILE+34 |
| PSJDCNT | IN+7~ |
| PSJDDNM | PIV+1~, PIV+20*, PIV+21, IV+1~, IV+24*, IV+25 |
| >> PSJDGCK | PIV+19, IV+23, SETIN+15 |
| PSJDRGND | IN+7~ |
| PSJEDOVR | UD+1~, UD+4*, PIV+3* |
| PSJEXPDD | UD+1~ |
| PSJFLG | SETIN~, SETIN+6, SETIN+9, SETIN+10, SETIN+15*, SETIN+16 |
| PSJNM | PIV+1~, PIV+8*, PIV+9, PIV+14*, PIV+16, IV+1~, IV+11*, IV+12, IV+13, IV+18* , IV+20, IV+21, SETIN~, SETIN+12, SETIN+14*, SETIN+16 |
| PSJOI | UD+1~, UD+14*, UD+19, UD+24, UD+25, UD+26, UD+29, UD+32 |
| PSJOIDF | NODD~, NODD+5, NODD+9 |
| PSJONCNT | IN+7~, IN+8*, SETIN+8*, SETIN+9, SETIN+10 |
| >> PSJORD | PROFILE+21, PROFILE+33 |
| PSJORIEN | PROFILE+8~, UD+10*, PIV+2*, IV+2*, SETIN+16 |
| PSJPON | SETIN+5~, SETIN+9*, SETIN+10*, SETIN+12, SETIN+16, NODD~, NODD+9 |
| PSJQUIT | UD+1~, UD+15*, UD+19*, UD+21 |
| PSJSTOP | UD+1~, UD+4*, IV+1~ |
| PSJTYPCL | PROFILE+8~, PROFILE+16*, PROFILE+18, PROFILE+19 |
| PSJUTMP | UD+1~ |
| >> PSJVFF | PROFILE+21, PROFILE+33 |
| PSJWON | IN+7~, IN+9*, IN+10, PROFILE~, PROFILE+9*, PROFILE+18, PROFILE+19, PROFILE+21, PROFILE+22, PROFILE+31 , PROFILE+33, PROFILE+34, PROFILE+39, PROFILE+40! |
| PSJX | UD+1~, UD+17*, UD+18, PIV+1~, PIV+2*, PIV+7*, PIV+8, PIV+10, PIV+12*, PIV+13 , PIV+14, PIV+15, PIV+17, IV+1~, IV+2*, IV+3, IV+5, IV+7, IV+8, IV+10* , IV+11, IV+16*, IV+17, IV+18, IV+19 |
| PST | PROFILE+8~, PROFILE+32* |
| PTYP | IN~, IN+9, IN+10, PROFILE~, UD+7, UD+19, UD+26, UD+29, PIV+5, PIV+10 , PIV+17, IV+6, IV+13, IV+21 |
| U | UD+3, UD+4, UD+6, UD+8, UD+9, UD+10, UD+17, UD+19, UD+25, UD+26 , UD+29, PIV+2, PIV+8, PIV+10, PIV+14, PIV+17, PIV+20, IV+2, IV+3, IV+5 , IV+7, IV+8, IV+11, IV+18, IV+24, SETIN+14, SETIN+16, NODD+9 |
| WBDT | PROFILE+8~, PROFILE+30*, PROFILE+31*, PROFILE+32*, PROFILE+39* |
| X | PROFILE+8~, UD+1~, UD+2*, UD+3, UD+4, UD+6, UD+8, UD+9, UD+10 |
