PSJORUTL ;BIR/MLM-MISC. PROCEDURE CALLS FOR OE/RR 3.0 ;24 Feb 99 / 10:43 AM
Source file <PSJORUTL.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ENDD(PD,TYP,PSJ,DFN) | ; Find all entries in DRUG file (50) for the passed primary/usage.
|
|
ENDDIV(PD,TYP,VOLUME,PSJ) | ; Find all entries in DRUG file (50) for the passed Orderable item, IV additive/solution.
|
|
ENDCM(DDRG) |
|
|
ENRFA(DDRG,TYP,PSJ) |
|
|
ENDF(PN) | ; Returns dosage form for the specified VA Product Name.
|
|
ENNDFS(PN) | ; Returns STRENGTH from ^PSNDF for the specified VA Product Name.
; NEW NDF CALL |
|
ENDI(PN,PSJ) | ; Find all ingredients for the passed dispense drug.
|
|
ENSDC(PSGP) | ; Add IV and UD orders to ^TMP global used for order checking.
; Input: PSGP - Patient IEN ; Output: ^TMP($J("ORDERS",DRUG NAME)=DRUG CLASS CODE^NDF POINTER* |
|
MAX | ;returns max number of refills for outpatient orders ;5.27.97/SAB
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | ENDF+5, ENNDFS+2, ENDI+7 |
^PS(50.416 - [#50.416] | ENDI+12 |
^PS(50.606 - [#50.606] | ENDF+7 |
^PSDRUG - [#50] | ENDD+13, ENDD+16, ENDDIV+15, ENDCM+6, ENDCM+7, ENRFA+8, ENRFA+10, ENRFA+11, ENRFA+13, MAX+1 , MAX+2 |
^PSDRUG("ASP" | ENDD+13 |
^PSNDF( | ENDF+7, ENNDFS+4, ENDI+11, ENDI+12 |
^YSCL(603.01 - [#603.01] | MAX+3 |
Name | Line Occurrences |
---|---|
MAX | ENDD+16, ENRFA+13 |
Name | Field # of Occurrence |
---|---|
^(0 | ENDCM+7 |
^(660 | ENDD+16, ENDDIV+15 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CLOZPAT | MAX+3*! |
DDRG | ENDD+12~, ENDD+13*, ENDD+16, ENDCM~, ENDCM+6, ENDCM+7, ENRFA~, ENRFA+8, ENRFA+10, MAX+1 , MAX+2 |
DEA | ENDD+12~, ENRFA+9~, MAX+1*, MAX+4!, MAX+5, MAX+6! |
DEAI | ENDD+12~, ENRFA+9~, MAX+5*, MAX+6! |
DFN | ENDD~, MAX+2, MAX+3 |
DT | ENDD+13 |
GDP | ENDI+9~, ENDI+10*, ENDI+11, ENDI+12 |
INACT | ENDD+12~, ENDD+13* |
ING | ENDI+9~, ENDI+12*, ENDI+13 |
INGND | ENDI+9~, ENDI+11*, ENDI+12 |
INGNME | ENDI+9~, ENDI+12*, ENDI+13 |
INGPTR | ENDI+9~, ENDI+12*, ENDI+13 |
MAX | ENDD+12~, ENDD+16!, ENRFA+9~, ENRFA+13!, MAX+1!, MAX+3*, MAX+4*, MAX+5*, MAX+6* |
ND | ENDD+12~, ENDD+16*, ENDDIV+15* |
PD | ENDD~, ENDD+12*, ENDD+13, ENDDIV~, ENDDIV+10, ENDDIV+12, ENDDIV+13 |
PN | ENDF~, ENDF+5, ENDF+7, ENNDFS~, ENNDFS+2, ENNDFS+4, ENDI~, ENDI+7, ENDI+10 |
PNP | ENDI+9~, ENDI+10*, ENDI+11 |
PNS | ENNDFS+2~*, ENNDFS+4~*, ENNDFS+5 |
PSGP | ENSDC~ |
PSJ | ENDD~, ENDD+12*, ENDD+16*, ENDDIV~, ENDDIV+9*, ENDDIV+15*, ENRFA~, ENRFA+8!*, ENRFA+13*, ENDI~ , ENDI+7*, ENDI+10*, ENDI+13* |
PSJ( | ENDD+16*, ENRFA+13*, ENDI+13* |
PSJDF | ENDF+5~*, ENDF+7*, ENDF+8 |
PSJIENS | ENDDIV+9~, ENDDIV+12*, ENDDIV+13*, ENDDIV+14, ENDDIV+15 |
PSJNDF | ENDF+7~ |
TYP | ENDD~, ENDD+14, ENDDIV~, ENDDIV+11, ENDDIV+12, ENDDIV+13, ENRFA~, ENRFA+11 |
U | ENDD+12, ENDD+13, ENDD+16, ENDDIV+15, ENDCM+7, ENRFA+11, ENRFA+13, ENDF+7, ENDF+8, ENNDFS+4 , ENNDFS+5, ENDI+12, ENDI+13 |
VOLUME | ENDDIV~, ENDDIV+13 |
X | ENDD+12~, ENDD+14*, ENDCM+6~*, ENDCM+7, ENRFA+9~, ENRFA+10*, ENDF+5~*, ENDF+7~*, ENDF+8, ENNDFS+2~* , ENNDFS+4~*, ENNDFS+5, ENDI+7~*, ENDI+9~, ENDI+11* |
X1 | ENDF+5~*, ENNDFS+2~*, ENDI+7~* |
X2 | ENDF+5~*, ENNDFS+2~*, ENDI+7~* |
XX | ENRFA+9~, ENRFA+11* |
Y | ENDD+12~, ENDD+13*, ENDD+14*, ENDD+15, ENDD+16*, ENDDIV+9~, ENDDIV+15*, ENRFA+9~, ENRFA+10*, ENRFA+11 , ENRFA+13, ENNDFS+4~*, ENDI+9~, ENDI+11*, ENDI+12 |
YY | ENRFA+9~*, ENRFA+11*, ENRFA+12, ENRFA+13* |