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: PSOSIG

Package: Outpatient Pharmacy

Routine: PSOSIG


Information

PSOSIG ;BIR/RTR-Utility to create SIG ;Feb 25, 2021@14:48

Source Information

Source file <PSOSIG.m>

Entry Points

Name Comments DBIA/ICR reference
EN(PSOSIGX) ;
SCH ;*282 Preserve old functionality
SCHE(SCH) ;
  • ICR #7227
    • Status: Active
    • Usage: Private
    EXP(X) ; expand based on 51.1 and 51
    QTY(PSOQX) ; PSOQX - Array containing Rx information
    QTYCP ;CPRS qty call comes through here
    COMP ;COMPLEX DOSE HERE
    QTS ;*282 Preserve Old Functionality
    QTSCH(QTSH) ;
    ; Return Frequency for Schedule QTSH
    ; Otherwise return ""
    QEND ;
    ; PSOMTFLG variable indicates a Maintenance Rx (Titration/Maintenance)
    ; PSO*7.0*574 ;Defect 1155637
    ROUND ;
    DAY(DATE) ;First 5 digits of FileMan date
    QTYX(PSOQX) ;
  • ICR #3237
    • Status: Active
    • Usage: Private
    QPASS
    DAYS(PSOQX) ;Entry point for Days Supply calc for PSO
    UPDQTY(NEWQTY) ; If DAYS SUPPLY is being edited and previous QTY was not calculated, don't calculate and update QTY
    ; Also, if digitally signed, do not automatically calculate and update quantity if QTY increases
    ; Input: NEWQTY - Newly Calculated Quantity
    SCHFREQ() ; Returns the Frequency (in minutes) for the schedule
    ; Output: SCHFREQ - Schedule Frequency (in minutes)
    PRN() ; Returns if the Schedule is PRN (1) or not (0)
    UPPER(PSOSCUP) ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,?2,"Free text '"_$G(SCH)_"' entered for schedule"
    • Line Location: SCH+3
    Function Call: WRITE
    • Prompt: !!,"The Quantity (",$G(QTYHLD),") has not been changed."
    • Line Location: QTYCP+28
    Function Call: WRITE
    • Prompt: !,"Please review and update it if necessary.",!,$C(7)
    • Line Location: QTYCP+29
    Function Call: WRITE
    • Prompt: !
    • Line Location: QTYCP+30
    Function Call: WRITE
    • Prompt: !!,"The Quantity (",QTYHLD,") has not been changed."
    • Line Location: COMP+36
    Function Call: WRITE
    • Prompt: !,"Please review and update it if necessary.",!,$C(7)
    • Line Location: COMP+37
    Function Call: WRITE
    • Prompt: !
    • Line Location: COMP+38
    Function Call: WRITE
    • Prompt: !
    • Line Location: QEND+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: QEND+4
    Function Call: WRITE
    • Prompt: !,"# of Refills has been changed from "_PSOQX("# OF REFILLS")_" to "_ZREF
    • Line Location: QEND+11
    Function Call: WRITE
    • Prompt: !!,"The Quantity (",PSOOLDQT,") has not been changed."
    • Line Location: UPDQTY+24
    Function Call: WRITE
    • Prompt: !,"Please review and update it if necessary.",!,$C(7)
    • Line Location: UPDQTY+25
    Function Call: WRITE
    • Prompt: !
    • Line Location: UPDQTY+26

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(51 - [#51] GET1^DIQ
    ^PS(51.1 - [#51.1] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call