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 |