Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSSUTIL

Package: Pharmacy Data Management

Routine: PSSUTIL


Information

PSSUTIL ;BIR/RTR-utility routine for NDF changes ;04/04/00

Source Information

Source file <PSSUTIL.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
National Drug File 1 $$DFSU^PSNAPIS  
Pharmacy Data Management 1 ($$SUPRA,EN2,TEST)^PSSUTIL3  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Pharmacy Data Management 6 PSSDEE  PSSDEE1  PSSDOS  PSSDOSER  PSSPOIMN  PSSUTIL3  
National Drug File 5 PSNDRUG  PSNHELP1  PSNMRG  PSNPPSNU  PSNPPSNW  

Entry Points

Name Comments DBIA/ICR reference
EN(PSSDIEN) ;Receive Drug entries unmatched as a result of NDF changes
EN1(PSSDIEN,PSSTALK) ;Receive Drug entries that have been unmatched
  • ICR #3107
    • Status: Active
    • Usage: Private
    EQ
    EN2(PSSDIEN,PSSTALK) ;Receive Drug entries matched to NDF
  • ICR #3107
    • Status: Active
    • Usage: Private
    LOC ;Set local possible dosages
    QUIET ;
    LOCMRG ;Merge new Local Possible Dosages with existing ones
    QUIET1 ;
    DOSEADD ;New fields added with PSS*1*147
    DOSEADX ;New fields added with PSS*1*147
    UNMDRUG(DRUGIEN) ; Un-match a Dispense Drug from a VA Product
    ZASK ;Ask to continue
    XASK ;Ask to continue
    DASK ;Ask to continue

    External References

    Name Field # of Occurrence
    ^DIR EN1+9, EN2+12, LOC+9, LOC+11, LOCMRG+11, LOCMRG+13, ZASK+2, XASK+2, DASK+2
    $$DFSU^PSNAPIS EN2+10
    $$SUPRA^PSSUTIL3 EN2+11
    EN2^PSSUTIL3 EN2+23
    TEST^PSSUTIL3 QUIET+9, QUIET1+8

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Deleting Possible Dosages.."
    • Line Location: EN1+4
    Function Call: WRITE
    • Prompt: "."
    • Line Location: EN1+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN1+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN1+9
    Function Call: WRITE
    • Prompt: !!,"Deleting Local Possible Dosages.."
    • Line Location: EN1+9
    Function Call: WRITE
    • Prompt: !!,"Deleting Local Possible Dosages.."
    • Line Location: EN1+9
    Function Call: WRITE
    • Prompt: !!,"Deleting Local Possible Dosages.."
    • Line Location: EN1+9
    Function Call: WRITE
    • Prompt: !!,"LOCAL POSSIBLE DOSAGES:"
    • Line Location: EN1+10
    Function Call: WRITE
    • Prompt: !,$P($G(^PSDRUG(PSSDIEN,"DOS2",PSSLD,0)),"^")_" "_$S($P($G(^(0)),"^",2)="":"(No package)",1:"(Package -> "_$P($G(^(0)),"^",2)_")")
    • Line Location: EN1+12
    Function Call: WRITE
    • Prompt: !!,"Local Possible Dosages not deleted.",!
    • Line Location: EN1+13
    Function Call: WRITE
    • Prompt: !!,"Resetting Possible Dosages..",!
    • Line Location: EN2+12
    Function Call: WRITE
    • Prompt: !,"Due to National Drug File settings only ONE possible dosage was auto-created.",!,"If other dosages are needed, create POSSIBLE DOSAGES or LOCAL POSSIBLE ",!,"DOSAGES as appropriate.",!
    • Line Location: EN2+13
    Function Call: WRITE
    • Prompt: !,"Due to National Drug File settings TWO possible dosages were auto-created.",!
    • Line Location: EN2+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: LOC+7
    Function Call: WRITE
    • Prompt: !!,"Setting Local Possible Dosages..",!
    • Line Location: LOC+10
    Function Call: WRITE
    • Prompt: !!,"This drug has the following Local Possible Dosages:",!
    • Line Location: LOCMRG+3
    Function Call: WRITE
    • Prompt: !,PSSLIENX,?55,"PACKAGE: ",$P($G(^PSDRUG(PSSDIEN,"DOS2",PSSLIEN,0)),"^",2)
    • Line Location: LOCMRG+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: LOCMRG+8
    Function Call: WRITE
    • Prompt: !!,"Setting Local Possible Dosages..",!
    • Line Location: LOCMRG+12
    Function Call: WRITE
    • Prompt: !?3,"BCMA UNITS PER DOSE: "_PSSPW3
    • Line Location: DOSEADD+6
    Function Call: WRITE
    • Prompt: !?3,"NUMERIC DOSE: "_PSSPW6_" DOSE UNIT: "_PSSPW7
    • Line Location: DOSEADD+11
    Function Call: WRITE
    • Prompt: !?3,"NUMERIC DOSE: "_PSSPW6
    • Line Location: DOSEADD+12
    Function Call: WRITE
    • Prompt: !?3,"DOSE UNIT: "_PSSPW7
    • Line Location: DOSEADD+13
    Function Call: WRITE
    • Prompt: !?3,"BCMA UNITS PER DOSE: "_PSSPWX3
    • Line Location: DOSEADX+6
    Function Call: WRITE
    • Prompt: !?3,"NUMERIC DOSE: "_PSSPWX6_" DOSE UNIT: "_PSSPWX7
    • Line Location: DOSEADX+11
    Function Call: WRITE
    • Prompt: !?3,"NUMERIC DOSE: "_PSSPWX6
    • Line Location: DOSEADX+12
    Function Call: WRITE
    • Prompt: !?3,"DOSE UNIT: "_PSSPWX7
    • Line Location: DOSEADX+13
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: ZASK+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: XASK+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: DASK+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: DASK+3
    Routine Call
    • DIR
    • Line Location:
      • EN1+9
      • EN2+12
      • LOC+9
      • LOC+11
      • LOCMRG+11
      • LOCMRG+13
      • ZASK+2
      • XASK+2
      • DASK+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.606 - [#50.606] EN2+16, EN2+19, EN2+20, EN2+25, EN2+29, EN2+33, EN2+35, EN2+37, EN2+38, LOC+4
    LOC+8, QUIET+1, QUIET+2, QUIET+4, QUIET+6, QUIET+12, LOCMRG+9, QUIET1+1, QUIET1+2, QUIET1+3
    QUIET1+5, QUIET1+14
    ^PS(50.607 - [#50.607] EN2+16
    ^PS(50.7 - [#50.7] LOC+3
    ^PS(51.24 - [#51.24] DOSEADD+9, DOSEADX+9
    ^PS(59.7 - [#59.7] EN1+2, EN2+5
    ^PSDRUG - [#50] EN1+5!, EN1+7!, EN1+8, EN1+9!, EN1+11, EN1+12, EN1+13, EN2+2, EN2+3!, EN2+9
    , EN2+22*, EN2+24*, EN2+27*, EN2+28*, EN2+31*, EN2+32*, EN2+35*, EN2+36*, EN2+40*, LOC+2
    LOC+5, QUIET+2*, QUIET+11*, QUIET+16*, QUIET+17*, LOCMRG+4, LOCMRG+5, LOCMRG+6, LOCMRG+7, QUIET1+10
    QUIET1+13*, QUIET1+18, QUIET1+21*, DOSEADD+3, DOSEADX+3, UNMDRUG+5, UNMDRUG+6, UNMDRUG+10, UNMDRUG+12*
    ^PSDRUG("AND" UNMDRUG+16!
    ^PSDRUG("APN" UNMDRUG+15!
    ^PSDRUG("APR" UNMDRUG+17!
    ^PSDRUG("AQ1" UNMDRUG+14!
    ^PSDRUG("VAPN" UNMDRUG+13!

    Label References

    Name Line Occurrences
    DASK EN1+9
    DOSEADD EN1+12
    DOSEADX LOCMRG+6, LOCMRG+7
    EQ EN1+7, EN1+9
    LOC EN2+9, EN2+15, EN2+16, EN2+17, EN2+21, EN2+24, EN2+28
    LOCMRG LOC+5
    QUIET LOC+6
    QUIET1 LOCMRG+2
    XASK LOCMRG+5, DOSEADX+6, DOSEADX+11
    ZASK EN1+12, DOSEADD+6, DOSEADD+11

    Naked Globals

    Name Field # of Occurrence
    ^( QUIET+4, QUIET+6, QUIET+12, QUIET1+3, QUIET1+5, QUIET1+14
    ^("ND" EN2+9
    ^(0 EN1+12, QUIET+4, QUIET+12, QUIET1+3, QUIET1+14

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CMOPID UNMDRUG+3~, UNMDRUG+11*, UNMDRUG+14
    DIR EN1+9!, EN2+12!, LOC+7!, LOC+9!, LOC+11!, LOCMRG+8!, LOCMRG+11!, LOCMRG+13!, ZASK+1~, ZASK+2!
    XASK+1~, XASK+2!, DASK+1~, DASK+2!
    DIR("?" LOC+8*, LOCMRG+9*, LOCMRG+10*
    DIR("A" EN1+9*, EN2+12*, LOC+7*, LOC+11*, LOCMRG+8*, LOCMRG+13*, ZASK+2*, XASK+2*, DASK+2*
    DIR("B" EN1+9*, LOC+7*, LOCMRG+8*
    DIR(0 EN1+9*, EN2+12*, LOC+7*, LOC+11*, LOCMRG+8*, LOCMRG+13*, ZASK+2*, XASK+2*, DASK+2*
    DIROUT ZASK+1~, XASK+1~, DASK+1~
    DIRUT ZASK+1~, XASK+1~, DASK+1~
    DRUGIEN UNMDRUG~, UNMDRUG+4*, UNMDRUG+5, UNMDRUG+6, UNMDRUG+10, UNMDRUG+12, UNMDRUG+13, UNMDRUG+14, UNMDRUG+15, UNMDRUG+16
    , UNMDRUG+17
    DTOUT ZASK+1~, XASK+1~, DASK+1~
    DUOUT ZASK+1~, XASK+1~, DASK+1~
    IOF ZASK+3, XASK+3, DASK+3
    IOSL EN1+12, LOCMRG+5, DOSEADD+6, DOSEADD+11, DOSEADX+6, DOSEADX+11
    NDNODE UNMDRUG+3~, UNMDRUG+6*, UNMDRUG+7, UNMDRUG+8, UNMDRUG+9, UNMDRUG+11
    PIECE UNMDRUG+3~, UNMDRUG+12*
    PRIMDRG UNMDRUG+3~, UNMDRUG+10*, UNMDRUG+15
    PSALL LOC+1~, QUIET+10*, QUIET+11, QUIET1+9*, QUIET1+10, QUIET1+13
    PSDOD LOC+1~, QUIET+6*, QUIET1+5*
    PSDUPDPT LOC+1~, QUIET+6*, QUIET+10, QUIET1+5*, QUIET1+9
    PSNOUN LOC+1~, QUIET+4*, QUIET+12*, QUIET1+3*, QUIET1+14*
    PSNOUNPA LOC+1~, QUIET+4*, QUIET+5, QUIET+7, QUIET+8, QUIET+11, QUIET+12*, QUIET+13, QUIET+14, QUIET+15
    QUIET+16, QUIET1+3*, QUIET1+4, QUIET1+6, QUIET1+7, QUIET1+13, QUIET1+14*, QUIET1+15, QUIET1+16, QUIET1+17
    QUIET1+21
    PSNOUNPT LOC+1~, QUIET+4*, QUIET+10, QUIET+12*, QUIET+16, QUIET1+3*, QUIET1+9, QUIET1+14*, QUIET1+18, QUIET1+21
    PSSBOTH EN2+4~, EN2+7*, EN2+24*, EN2+28*
    PSSDF EN2+4~, EN2+10*, EN2+15, EN2+16, EN2+19, EN2+20, EN2+25, EN2+29, EN2+33, EN2+35
    , EN2+37, EN2+38
    PSSDIEN EN~, EN1~, EN1+5, EN1+7, EN1+8, EN1+9, EN1+11, EN1+12, EN1+13, EN2~
    , EN2+2, EN2+3, EN2+9, EN2+22, EN2+24, EN2+27, EN2+28, EN2+31, EN2+32, EN2+35
    , EN2+36, EN2+40, LOC+2, LOC+5, QUIET+2, QUIET+11, QUIET+16, QUIET+17, LOCMRG+4, LOCMRG+5
    LOCMRG+6, LOCMRG+7, QUIET1+10, QUIET1+13, QUIET1+18, QUIET1+21, DOSEADD+3, DOSEADX+3
    PSSDUPD EN2+4~, EN2+25*, EN2+26, EN2+27, EN2+29*, EN2+30, EN2+31, EN2+33*, EN2+34, EN2+35
    , EN2+37*, EN2+38, EN2+39, EN2+40
    PSSFLAG EN2+4~, EN2+8*, EN2+32*, EN2+36*
    PSSI EN2+4~, EN2+18*, EN2+19*, EN2+21, EN2+24, EN2+28, EN2+32, EN2+36
    PSSLD EN1+1~, EN1+11*, EN1+12, DOSEADD+3
    PSSLIEN LOCMRG+1~, LOCMRG+4*, LOCMRG+5, LOCMRG+6, LOCMRG+7, DOSEADX+3
    PSSLIENX LOCMRG+1~, LOCMRG+5*, LOCMRG+6, LOCMRG+7
    PSSLOC EN2+4~, EN2+5*
    PSSLOCV EN1+1~, EN1+2*
    PSSLP LOC+1~, QUIET1+10*, QUIET1+18*
    PSSLPNO LOC+1~, QUIET1+10*, QUIET1+11, QUIET1+18*, QUIET1+19
    PSSLPT LOC+1~, QUIET1+10*, QUIET1+12*, QUIET1+13, QUIET1+18*, QUIET1+20*, QUIET1+21
    PSSLPTX LOC+1~, QUIET1+10*, QUIET1+12*, QUIET1+13, QUIET1+18*, QUIET1+20*, QUIET1+21
    PSSLTOT LOC+1~, QUIET+2, QUIET+3*, QUIET+11*, QUIET+12*, QUIET+16*, QUIET+17
    PSSLTOTX LOC+1~, QUIET+2*, QUIET+17*
    PSSND EN2+4~, EN2+9*, EN2+10, EN2+11
    PSSND1 EN2+4~, EN2+9*, EN2+10
    PSSNL LOC+1~, QUIET+10!, QUIET1+9!
    PSSNLF LOC+1~, QUIET+10!, QUIET1+9!
    PSSNLX LOC+1~, QUIET+10!, QUIET1+9!
    PSSNODE EN2+4~, EN2+10*
    PSSO EN2+4~, EN2+18*, EN2+20*, EN2+21, EN2+24, EN2+28, EN2+32, EN2+36
    PSSOID LOC+1~, LOC+3*, LOC+4, LOC+8, QUIET+1, QUIET+2, QUIET+4, QUIET+6, QUIET+12, LOCMRG+9
    QUIET1+1, QUIET1+2, QUIET1+3, QUIET1+5, QUIET1+14
    PSSOITEM LOC+1~, LOC+2*, LOC+3
    PSSONLYI EN2+4~, EN2+8*, EN2+28*, QUIET+8, QUIET+14, QUIET1+7, QUIET1+17
    PSSONLYO EN2+4~, EN2+8*, EN2+24*, QUIET+7, QUIET+15, QUIET1+6, QUIET1+16
    PSSPW1 DOSEADD+1~, DOSEADD+3*, DOSEADD+4, DOSEADD+7
    PSSPW2 DOSEADD+1~, DOSEADD+4*, DOSEADD+5
    PSSPW3 DOSEADD+1~, DOSEADD+5*, DOSEADD+6
    PSSPW4 DOSEADD+1~, DOSEADD+7*, DOSEADD+9
    PSSPW5 DOSEADD+1~, DOSEADD+7*, DOSEADD+8
    PSSPW6 DOSEADD+1~, DOSEADD+8*, DOSEADD+10, DOSEADD+11, DOSEADD+12
    PSSPW7 DOSEADD+1~, DOSEADD+2*, DOSEADD+9*, DOSEADD+10, DOSEADD+11, DOSEADD+13
    PSSPW8 DOSEADD+1~, DOSEADD+10*, DOSEADD+11
    PSSPWX1 DOSEADX+1~, DOSEADX+3*, DOSEADX+4, DOSEADX+7
    PSSPWX2 DOSEADX+1~, DOSEADX+4*, DOSEADX+5
    PSSPWX3 DOSEADX+1~, DOSEADX+5*, DOSEADX+6
    PSSPWX4 DOSEADX+1~, DOSEADX+7*, DOSEADX+9
    PSSPWX5 DOSEADX+1~, DOSEADX+7*, DOSEADX+8
    PSSPWX6 DOSEADX+1~, DOSEADX+8*, DOSEADX+10, DOSEADX+11, DOSEADX+12
    PSSPWX7 DOSEADX+1~, DOSEADX+2*, DOSEADX+9*, DOSEADX+10, DOSEADX+11, DOSEADX+13
    PSSPWX8 DOSEADX+1~, DOSEADX+10*, DOSEADX+11
    PSSPWXEX EN1+1~, EN1+10*, EN1+11, EN1+12, DOSEADD+6, DOSEADD+11, ZASK+2*
    PSSPWZEX LOCMRG+1~, LOCMRG+4*, LOCMRG+5, DOSEADX+6, DOSEADX+11, XASK+2*
    PSSST EN2+4~, EN2+10*, EN2+15, EN2+17, EN2+22, EN2+24, EN2+26, EN2+28, EN2+30, EN2+32
    , EN2+34, EN2+36, EN2+39
    PSSTALK EN1~, EN1+7, EN2~, EN2+12, LOC+6, LOCMRG+2
    PSSTODOS EN2+4~, EN2+26*, EN2+27, EN2+30*, EN2+31, EN2+34*, EN2+35, EN2+39*, EN2+40
    PSSTOT EN2+4~, EN2+24, EN2+25*, EN2+27*, EN2+28, EN2+29*, EN2+31*, EN2+32, EN2+33*, EN2+35*
    , EN2+36, EN2+40*
    PSSTOTX EN2+4~, EN2+24*, EN2+28*, EN2+32*, EN2+36*
    PSSUN EN2+4~, EN2+10*, EN2+15, EN2+16, EN2+19, EN2+20, EN2+22, EN2+24, EN2+28, EN2+32
    , EN2+36
    PSSUPRA EN2+4~, EN2+8*, EN2+11*, EN2+13, EN2+14, EN2+22, EN2+23
    >> PSSUPRAF LOCMRG+2
    >> PSSXYZ EN2+13, EN2+14
    VAGENIEN UNMDRUG+3~, UNMDRUG+7*, UNMDRUG+15, UNMDRUG+16
    VAPRDIEN UNMDRUG+3~, UNMDRUG+9*, UNMDRUG+15, UNMDRUG+17
    VAPRDNAM UNMDRUG+3~, UNMDRUG+8*, UNMDRUG+13
    X ZASK+1~, XASK+1~, DASK+1~
    Y EN1+9, LOC+9, LOCMRG+11, ZASK+1~, ZASK+2, XASK+1~, XASK+2, DASK+1~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All