©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSJORUTL ;BIR/MLM-MISC. PROCEDURE CALLS FOR OE/RR 3.0 ;24 Feb 99 / 10:43 AM
Source file <PSJORUTL.m>
| Package | Total | Call Graph |
|---|---|---|
| Inpatient Medications | 2 | $$ENDDN^PSGMI $$OIDF^PSJLMUT1 |
| National Drug File | 1 | ($$PSJDF,$$PSJING,$$PSJST)^PSNAPIS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENDD(PD,TYP,PSJ,DFN) | ; Find all entries in DRUG file (50) for the passed primary/usage.
|
|
| ENDI(PN,PSJ) | ; Find all ingredients for the passed dispense drug.
|
|
| MAX | ;returns max number of refills for outpatient orders ;5.27.97/SAB
|
|
| 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* |
|
| ENDDIV(PD,TYP,VOLUME,PSJ) | ; Find all entries in DRUG file (50) for the passed Orderable item, IV additive/solution.
|
|
| ENDCM(DDRG) |
|
|
| 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 |
|
| ENRFA(DDRG,TYP,PSJ) |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | ENDF+5, ENNDFS+2, ENDI+7 |
| ^PS( | ENDDIV+11, ENDDIV+12 |
| ^PS(50.416 - [#50.416] | ENDI+12 |
| ^PS(50.606 - [#50.606] | ENDF+7 |
| ^PSDRUG - [#50] | ENDD+13, ENDD+16, ENDDIV+14, 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 | MAX+3 |
| Name | Line Occurrences |
|---|---|
| MAX | ENDD+16, ENRFA+13 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ENDCM+7 |
| ^(660 | ENDD+16, ENDDIV+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLOZPAT | MAX+3*! |
| DDRG | ENDD+12~, ENDD+13*, ENDD+16, ENDDIV+9~, ENDDIV+13*, ENDDIV+14, 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 |
| FIL | ENDDIV+9~, ENDDIV+10*, ENDDIV+11, ENDDIV+12 |
| 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 |
| >> IVIEN | ENDDIV+11*, ENDDIV+12 |
| 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+9~, ENDDIV+14* |
| PD | ENDD~, ENDD+12*, ENDD+13, ENDDIV~, ENDDIV+11 |
| 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+14*, 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 |
| PSJNDF | ENDF+7~ |
| TYP | ENDD~, ENDD+14, ENDDIV~, ENDDIV+10, ENDDIV+12, ENRFA~, ENRFA+11 |
| U | ENDD+12, ENDD+13, ENDD+16, ENDDIV+12, ENDDIV+13, ENDDIV+14, ENDCM+7, ENRFA+11, ENRFA+13, ENDF+7 , ENDF+8, ENNDFS+4, ENNDFS+5, ENDI+12, ENDI+13 |
| VOLUME | ENDDIV~, ENDDIV+10*, ENDDIV+12 |
| X | ENDD+12~, ENDD+14*, ENDDIV+9~, 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+12*, ENDDIV+13, ENDDIV+14*, 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* |