PSSUTIL1 ;BIR/RTR-Utility routine ;08/21/00
Source file <PSSUTIL1.m>
Package | Total | Call Graph |
---|---|---|
National Drug File | 1 | $$DFSU^PSNAPIS |
VA FileMan | 1 | $$GET1^DIQ |
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 |
---|---|---|
EN(PSSDRIEN) | ;
|
|
DRG(PSSDD,PSSOI,PSSPK) | ;
; PSSDD - Array of Drugs ; PSSOI - Orderable Item (Pharmacy) ; PSSPK - Application Package ("O"-Outpatient;"I"-IV;"X"-Non-VA Med) |
|
ITEM(PSSIT,PSSDR) | ;Return Orderable Item to CPRS
|
|
EN1(PSSOA,PSSOAP) | ;
|
|
SCH(SCH) | ;Expand schedule for Outpatient order in CPRS
|
|
SCHQT | ;
|
|
IVDEA(PSSIVOI,PSSIVOIP) | ;CS Federal Schedule/DEA Special Handling to CPRS for IV Fluids dialogue
|
|
IVQ | ;
|
|
CSS | ||
OIQ | ||
IVQ1 | ;
|
|
IVX | ;
|
|
MAXDS(INPUT) | ; Returns the Maximum Day Supply to CPRS for a specific Drug or Orderable Item
; Input: INPUT("PSOI") - PHARMACY ORDERABLE ITEM (#50.7) IEN ; INPUT("DRUG") - DRUG file (#50) IEN |
|
MXDAYSUP(DRUG) | ; Returns the Maximum Day Supply for the Dispense Drug
; Input: DRUG - Pointer to the DRUG file (#50) |
|
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | GET1^DIQ |
^PSNDF(50.68 - [#50.68] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(50.607 - [#50.607] | EN+5 |
^PS(50.7 - [#50.7] | ITEM+3, EN1+12, EN1+13 |
^PS(51 - [#51] | SCH+7, SCH+15 |
^PS(51.1 - [#51.1] | SCH+5, SCH+13 |
^PS(52.6 - [#52.6] | IVDEA+25 |
^PS(52.7 - [#52.7] | IVDEA+27 |
^PSDRUG - [#50] | EN+3, EN+4, DRG+9, DRG+11, DRG+13, DRG+15, ITEM+3, ITEM+4, EN1+8, EN1+9 , EN1+15, EN1+16, EN1+17, EN1+18, IVDEA+20, IVDEA+21, IVX+2, IVX+3, MXDAYSUP+8, MXDAYSUP+22 |
^PSDRUG("A526" | IVDEA+24 |
^PSDRUG("A527" | IVDEA+26 |
^PSDRUG("ASP" | DRG+8, EN1+7, EN1+14, IVDEA+19, MAXDS+10 |
^PSNDF(50.68 - [#50.68] | IVX+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DEASPHLG | MXDAYSUP+4~, MXDAYSUP+18*, MXDAYSUP+19, MXDAYSUP+20 |
DRG | MAXDS+5~, MAXDS+9*, MAXDS+10*, MAXDS+11 |
DRGMAXDS | MAXDS+5~, MAXDS+11*, MXDAYSUP+4~, MXDAYSUP+10*, MXDAYSUP+15, MXDAYSUP+16 |
DRUG | MXDAYSUP~, MXDAYSUP+8, MXDAYSUP+10, MXDAYSUP+12, MXDAYSUP+18, MXDAYSUP+22 |
DT | DRG+10, EN1+13, EN1+15, IVDEA+20, IVDEA+25, IVDEA+27 |
INPUT | MAXDS~ |
INPUT("DRUG" | MAXDS+6 |
INPUT("PSOI" | MAXDS+8, MAXDS+10 |
MAXDS | MAXDS+5~, MAXDS+7*, MAXDS+11*, MAXDS+12 |
MXDAYSUP | MXDAYSUP+4~, MXDAYSUP+6*, MXDAYSUP+8, MXDAYSUP+10*, MXDAYSUP+15*, MXDAYSUP+16*, MXDAYSUP+19*, MXDAYSUP+20*, MXDAYSUP+22*, MXDAYSUP+24 |
NDFMAXDS | MXDAYSUP+4~, MXDAYSUP+14*, MXDAYSUP+15, MXDAYSUP+16 |
PSSAP | DRG+5~, DRG+9*, DRG+13, DRG+14 |
PSSDD | DRG~ |
PSSDD( | DRG+13*, DRG+15* |
PSSDR | ITEM~, ITEM+2, ITEM+3, ITEM+4 |
PSSDRIEN | EN~, EN+2, EN+3, EN+4 |
PSSGD | IVDEA+15~ |
PSSGD( | IVQ+2, IVX+2* |
PSSI | IVDEA+15~ |
PSSI( | IVQ+5*, IVQ+7*, CSS, IVX+4* |
PSSI("" | IVQ+1 |
PSSI(1 | IVQ+3* |
PSSI(2 | IVQ+4* |
PSSI(3 | IVQ+6* |
PSSI(4 | IVQ+8* |
PSSI(5 | IVQ+9* |
PSSIN | DRG+5~, DRG+9*, DRG+10 |
PSSIT | ITEM~, ITEM+2, ITEM+3, ITEM+5, ITEM+6 |
PSSIVDD | IVDEA+15~, IVDEA+16*, IVDEA+22*, OIQ, IVQ1+1, IVX+1* |
PSSIVDEA | IVDEA+15~, IVX+2* |
PSSIVDO | IVDEA+15~, IVDEA+16*, CSS*, OIQ*, OIQ+1*, OIQ+2*, OIQ+3, IVQ1+1*, IVQ1+2 |
PSSIVL | IVDEA+15~, IVDEA+19*, IVDEA+20, IVDEA+21, IVDEA+24, IVDEA+26, IVX+2, IVX+3 |
PSSIVLP | IVDEA+15~, IVDEA+24*, IVDEA+25, IVDEA+26*, IVDEA+27 |
PSSIVLPX | IVDEA+15~, IVDEA+24*, IVDEA+26*, IVQ+2*, IVQ+3, IVQ+4, IVQ+5, IVQ+6, IVQ+7, IVQ+8 , IVQ+9, IVX+1* |
PSSIVOI | IVDEA~, IVDEA+18, IVDEA+19 |
PSSIVOIP | IVDEA~, IVDEA+17*, IVDEA+23 |
PSSK | IVDEA+15~, CSS*, IVX+3*, IVX+4* |
PSSL | DRG+5~, DRG+8*, DRG+9, DRG+11, DRG+13, DRG+15 |
PSSMA | EN+1~, EN+10*, EN+12 |
PSSMA1 | EN+1~, EN+10* |
PSSMASH | EN+1~, EN+7*, EN+8*, EN+9 |
PSSMASH2 | EN+1~, EN+11* |
PSSMASH3 | EN+1~, EN+11*, EN+12 |
PSSMB | EN+1~, EN+10*, EN+12 |
PSSMB1 | EN+1~, EN+10*, EN+11, EN+12 |
PSSMNDFS | EN+1~, EN+4*, EN+6, EN+8, EN+11, EN+13 |
PSSMSSTR | EN+1~, EN+3*, EN+6, EN+8, EN+9, EN+11, EN+13 |
PSSMUNIT | EN+1~, EN+3*, EN+4*, EN+5, EN+6, EN+9 |
PSSNAT1 | EN+1~, EN+4* |
PSSNAT3 | EN+1~, EN+4* |
PSSND | DRG+5~, DRG+11*, DRG+13, DRG+15 |
PSSNEW | ITEM+1~, ITEM+4*, ITEM+5, ITEM+6 |
PSSNODEU | EN+1~, EN+4* |
PSSOA | EN1~, EN1+4, EN1+7, EN1+10 |
PSSOA( | EN1+11, EN1+14, EN1+17*, EN1+18* |
PSSOADT | EN1+6~ |
PSSOAIT | EN1+6~, EN1+9*, EN1+10, EN1+11, EN1+12, EN1+13, EN1+14, EN1+17, EN1+18 |
PSSOAL | EN1+6~, EN1+7*, EN1+8, EN1+9 |
PSSOALD | EN1+6~, EN1+8*, EN1+9 |
PSSOAN | EN1+6~, EN1+9* |
PSSOAP | EN1~, EN1+5, EN1+17 |
PSSOAZ | EN1+6~, EN1+14*, EN1+15, EN1+16, EN1+17, EN1+18 |
PSSOI | DRG~, DRG+6, DRG+8 |
PSSPK | DRG~, DRG+7, DRG+12, DRG+13 |
PSSUNX | EN+1~, EN+12*, EN+13 |
PSSUNZ | EN+1~, EN+5*, EN+6, EN+9, EN+10 |
SCH | SCH~, SCH+2, SCH+3, SCH+5, SCH+7, SCH+8, SCH+9, SCH+11, SCHQT+1* |
SCHEX | SCH+1~, SCH+2*, SCH+5*, SCH+7*, SCH+9*, SCH+16*, SCHQT+1 |
SCIN | SCH+1~, SCH+11*, SCH+13, SCH+15 |
SCLHOLD | SCH+1~, SCH+11! |
SCLHOLD( | SCH+11*, SCH+13*, SCH+15*, SCH+16 |
SCLOOP | SCH+1~, SCH+5*, SCH+8*, SCH+9, SCH+10*, SCH+11, SCH+16 |
SCLP | SCH+1~, SCH+8* |
SCLPS | SCH+1~, SCH+8* |
SODL | SCH+1~, SCH+11*, SCH+12, SCH+13, SCH+15 |
SQFLAG | SCH+1~, SCH+2*, SCH+5*, SCH+6, SCH+13*, SCH+14, SCH+16* |
SST | SCH+1~, SCH+13*, SCH+16* |
VAPRDIEN | MXDAYSUP+4~, MXDAYSUP+12*, MXDAYSUP+13, MXDAYSUP+14 |