Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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
  • ICR #3107
    • Status: Active
    • Usage: Private
    ZASK ;Ask to continue
    XASK ;Ask to continue
    DASK ;Ask to continue
    HAZ(PSSIEN,PSSF) ;*226
    ; Determine if a Drug is Hazardous to Handle and to Dispose.
    ; Pass in Drug IEN if known or pass in the OI IEN if preferred.
    ; Input: PSSIEN - IEN of either Drug file or Pharmacy OI file. <required>
    ; PSSF - "OI" passed in, then IEN is Pharmacy OI file, else <optional>
    ; "OI" Not passed in, then IEN is for Drug file. <default>
    ; Output: HAZ Handle flag (1/0 ^ HAZ Dispose flag (1/0) ^ Orderable Item name
  • ICR #6941
    • Status: Pending
    • Usage: Supported
    ISHAZ(DRIEN,OIIEN,FLDNAM) ;*226
    ; Get Hazardous flag by NDF FLDNAM passed in to test
    HAZWARNG(PSSDRIEN,PSSIO,PSSHAZH,PSSHAZD,PSSHAZTX) ;*226
    ; Hazardous standard text warning based on HAZ flags passed in
    ; Input: PSSDRIEN - DRUG file #50 IEN
    ; PSSIO - Inpatient or Outpatient (I - Clinicians only type warn) (O - Patient type warn)
    ; PSSHAZH - Haz to handle indicated
    ; PSSHAZD - Haz to Dispose indicated
    ; Output: PSSHAZTX - text for the specific warning indicated, if only one or both Haz indicators exist.
    ; (Not wrapped, calling routine needs to do word wrap for printing and displaying)
  • ICR #6942
    • Status: Pending
    • Usage: Supported
  • ICR #6942
    • Status: Pending
    • Usage: Supported

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PSNDF(50.68 - [#50.68] GET1^DIQ
    ^PS(50.7 - [#50.7] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call