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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Outpatient Pharmacy 2 COMP^PSOSIGCX  ($$CSDS,QTYCP,QTYOPS)^PSOSIGDS  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 $$FMADD^XLFDT  

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

Package Total Caller Graph
Outpatient Pharmacy 16 PSOCLUTL  PSODIR  PSODIR1  PSOERXD2  PSOERXU4  PSOFSIG  PSOHELP  PSOHLPIS  
PSOHLSIG  PSOORED3  PSOORED4  PSOORED5  PSOORFI4  PSOSIGCX  PSOSIGDS  PSOSIGTX  
Order Entry Results Reporting 2 ORCDPS1  ORWDPS2  
Pharmacy Data Management 1 PSSSCHED  

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) ;

    External References

    Name Field # of Occurrence
    $$GET1^DIQ SCHFREQ+4, SCHFREQ+5
    ^DIR QTYCP+30, COMP+38, QEND+4, UPDQTY+26
    COMP^PSOSIGCX COMP+10
    $$CSDS^PSOSIGDS QTYCP+27
    QTYCP^PSOSIGDS QTYX+6
    QTYOPS^PSOSIGDS DAYS+3
    $$FMADD^XLFDT DAY+5

    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
    Routine Call
    • DIR
    • Line Location:
      • QTYCP+30
      • COMP+38
      • QEND+4
      • UPDQTY+26

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(51 - [#51] GET1^DIQ
    ^PS(51.1 - [#51.1] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(51 - [#51] EXP+6, EXP+8, QTSCH+12, SCHFREQ+5
    ^PS(51.1 - [#51.1] EXP+2, EXP+4, QTSCH+9, SCHFREQ+4
    ^PSDRUG - [#50] QEND+5, QEND+6, QEND+7

    Label References

    Name Line Occurrences
    $$EXP SCHE+7
    $$PRN QTYCP+27, ROUND+2
    $$QTSCH QTS+1
    $$SCHE SCH+2, SCHE+9
    $$SCHFREQ UPDQTY+9
    $$UPDQTY QTYCP+24
    $$UPPER SCHE+5, QTSCH+6
    COMP QTYCP+7
    QEND QTYCP+31, COMP+9, COMP+16, COMP+17, COMP+19, COMP+20, COMP+21, COMP+22, COMP+33, COMP+40
    QPASS QTYX+5
    QTS QTYCP+17, COMP+26
    QTYCP QTYX+5
    ROUND QTYCP+31, COMP+39

    Naked Globals

    Name Field # of Occurrence
    ^( EXP+6, EXP+8
    ^(0 EXP+2, EXP+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> CLOZPAT QEND+8
    DATE DAY~, DAY+2, DAY+3, DAY+4
    DIR QTYCP+30~, COMP+38~, QEND+4~, UPDQTY+26~
    DIR("A" QTYCP+30*, COMP+38*, QEND+4*, UPDQTY+26*
    DIR(0 QTYCP+30*, COMP+38*, QEND+4*, UPDQTY+26*
    DOW EXP+12~, EXP+13*, EXP+16, EXP+17
    >> DTOUT SCH+1
    >> DUOUT SCH+1
    FOUND QTSCH+3~
    I SCHE+6*, EXP+12~, EXP+14*, QTSCH+7*, QTSCH+8*, QTSCH+11*
    >> II QTSCH+9*, QTSCH+12*
    >> J EXP+16*
    NEWQTY UPDQTY~, UPDQTY+5, UPDQTY+18, UPDQTY+21
    >> OR0 QTYCP+26, COMP+35, QEND+6, UPDQTY+21
    PRN PRN+1~*, PRN+2*, PRN+3
    PSIN EXP+1~, EXP+2*, EXP+4*, EXP+6*, EXP+8*
    PSOCPRQT QTYCP+3, QTYCP+4, QTYX+1~*, QPASS+2!
    PSODOSOR UPDQTY+4~, UPDQTY+9*, UPDQTY+13, UPDQTY+15
    >> PSODRUG("IEN" QTYCP+27, QEND+5, QEND+6, QEND+7
    PSODSEDT QTY+1~, QTY+4*, QTYCP+24, COMP+35
    PSODSMIN COMP+1~, COMP+7*, COMP+18*, COMP+19, COMP+20, COMP+21, COMP+22, COMP+23
    PSODUDIF COMP+1~, COMP+7*, COMP+23*, COMP+30
    PSODUMIS COMP+1~, COMP+7*, COMP+11, COMP+12*, COMP+16, COMP+17, COMP+20, COMP+21, COMP+22
    PSODUR UPDQTY+4~, UPDQTY+10*
    PSODUREP COMP+1~, COMP+7*, COMP+12*, COMP+23
    PSODUTOT COMP+1~, COMP+7*, COMP+15*, COMP+19, COMP+20, COMP+21, COMP+23
    PSODUX COMP+1~, COMP+13*, COMP+14
    PSODUXX COMP+1~, COMP+14*, COMP+15
    >> PSOFDR COMP+35, UPDQTY+21
    PSOFREQ UPDQTY+4~, UPDQTY+9*, UPDQTY+13, UPDQTY+15
    PSOFRQ QTYCP+2!, QTYCP+17, QTYCP+21, COMP+26, COMP+31, QTS+1*, QTS+2, QTSCH+3~, QTSCH+7*, QTSCH+8
    , QTSCH+9*, QTSCH+10, QTSCH+11, QTSCH+12*, QTSCH+13, QEND+3!
    PSOLOWER QTYCP+1~, QTYCP+10*, QTYCP+14*, QTYCP+16, QTYCP+18
    PSOLOWST QTYCP+1~, QTYCP+18*, QTYCP+19, QTYCP+20
    PSOLOWX QTYCP+1~, QTYCP+12*, QTYCP+13, QTYCP+15*, QTYCP+16, QTYCP+18
    PSOLOWXL QTYCP+1~, QTYCP+13*, QTYCP+14
    >> PSOMTFLG QEND+4
    >> PSONEW("FLD" QEND+6
    PSONEWDS UPDQTY+4~, UPDQTY+7*, UPDQTY+18
    PSOOLDDS UPDQTY+4~, UPDQTY+6*, UPDQTY+10*, UPDQTY+15, UPDQTY+18
    PSOOLDQT UPDQTY+4~, UPDQTY+8*, UPDQTY+15, UPDQTY+18, UPDQTY+21, UPDQTY+24
    PSOOUTQT QTY+1~, QTY+6*, QEND+4
    PSOQAND COMP+1~, COMP+7*, COMP+8*, COMP+10
    PSOQAR QTYX+1~
    PSOQAR("DURATION" QTYX+2*, QPASS, QPASS+1
    PSOQEXC COMP+1~, COMP+7*, COMP+8*, COMP+9
    PSOQLN QTYX+1~, QTYX+3*
    PSOQLP QTYX+1~*, QTYX+2, QTYX+3, QPASS*, QPASS+1
    PSOQRND QTYCP+1~, QTYCP+22*, QTYCP+24, COMP+32*, COMP+39, ROUND+1, ROUND+3, ROUND+4
    PSOQTHEN COMP+1~, COMP+7*, COMP+8*
    PSOQX QTY~, QTYX~, DAYS~
    PSOQX("# OF R EFILLS" , QEND+10, QEND+11*
    PSOQX("CONJUNCTION" COMP+8
    PSOQX("DAYS S UPPLY OLD" , UPDQTY+6, UPPLY" , QTYCP+5, QTYCP+9, QTYCP+15, COMP+17, COMP+18, QEND+8, UPDQTY+7
    PSOQX("DOSE O RDERED" , QTYCP+3, QTYCP+8, QTYCP+22, COMP+25, COMP+32, QTYX+4, UPDQTY+9
    PSOQX("DOSE" QTYCP+3
    PSOQX("DURATION" QTYCP+9, QTYCP+11, QTYCP+12, QTYCP+13, QTYCP+14, COMP+12, COMP+13, COMP+14, COMP+15, COMP+27
    , COMP+28, COMP+29, COMP+30, QTYX+1, QTYX+2, QTYX+3*, QPASS+1*, UPDQTY+10
    PSOQX("FLD" QTY+4, QTY+5
    PSOQX("IRXN" QTY+3
    PSOQX("QTY" QTY+2!, QEND+4, QEND+5, QEND+9, QEND+10, ROUND+3*, ROUND+4*, QTYX+5, DAYS+2
    PSOQX("SCHEDULE" QTYCP+17, COMP+25, COMP+26, SCHFREQ+3, PRN+2
    PSOQX(52 QTY+4
    PSORXDRG QTYCP+1~, QTYCP+26*, QTYCP+27
    >> PSORXED("RX0" QTYCP+26
    PSORXIEN QTY+1~, QTY+3*, QTY+4, QTY+5, QTYCP+26, QTYCP+27
    PSOSCUP UPPER~, UPPER+1
    PSOSIGX EN~
    PSQ QTYCP+1~, QTYCP+3*, COMP+24*, COMP+25, COMP+26, COMP+27, COMP+28, COMP+29, COMP+30, COMP+32
    PSQ1 COMP+1~, COMP+11*, COMP+12, COMP+13, COMP+14, COMP+15
    PSQL COMP+1~, COMP+8*
    PSQMIN QTYCP+1~, QTYCP+20*, QTYCP+21, COMP+29*, COMP+30*, COMP+31
    PSQMINZ QTYCP+1~, QTYCP+21*, QTYCP+22, COMP+31*, COMP+32
    PSQMNL COMP+1~, COMP+27*, COMP+28
    PSQMNLX COMP+1~, COMP+28*, COMP+29
    PSQQUIT QTYCP+1~, QTYCP+2*, QTYCP+3*, QTYCP+4, QTYCP+17, COMP+24, COMP+25*, COMP+26*, COMP+33, QTS+2*
    QDOSE QTY+1~, QTYCP+3*, QTYCP+6, QTYCP+7, COMP+8, COMP+11, COMP+24, QTYX+1~, QTYX+4*
    QDOSEX QTYX+1~, QTYX+4*
    QTSH QTYCP+1~, QTYCP+17*, COMP+26*, QTS+1, QTSCH~, QTSCH+4, QTSCH+5, QTSCH+6*, QTSCH+7, QTSCH+8
    , QTSCH+11
    >> QTYHLD QTYCP+27, QTYCP+28, COMP+35, COMP+36, QEND+4, QEND+5, QEND+9, QEND+10, UPDQTY+8
    SCFLG EXP+1~, EXP+2*, EXP+3, EXP+4*, EXP+5, EXP+6*, EXP+7, EXP+8*, EXP+9
    SCH SCH+2, SCH+3, SCHE~, SCHE+4!, SCHE+5*, SCHE+6, SCHE+7, SCHE+8, SCHE+9, PRN+1~
    , PRN+2*
    SCHED SCHFREQ+2~, SCHFREQ+3*, SCHFREQ+4, SCHFREQ+5
    SCHEDIEN SCHFREQ+2~, SCHFREQ+4*, SCHFREQ+5*
    SCHEX SCH+2*, SCHE+3~, SCHE+7*, EXP+1~, EXP+2*, EXP+3, EXP+4*, EXP+5, EXP+6*, EXP+7
    , EXP+8*, EXP+9, EXP+13*, EXP+16*, EXP+17*, EXP+18, EXP+19*, EXP+20, EXP+21
    >> SCHTMP QTSCH+8*, QTSCH+9, QTSCH+11*, QTSCH+12
    >> SCLFL EXP+6, EXP+8
    SPCT SCHE+3~, SCHE+6*, SCHE+8, SCHE+9, QTSCH+3~, QTSCH+7*, QTSCH+8, QTSCH+11
    STR EXP+12~, EXP+13*, EXP+14*, EXP+15, EXP+16*, EXP+17*, EXP+19*
    TM EXP+12~, EXP+13*, EXP+21
    U QEND+5
    UPDQTY UPDQTY+4~, UPDQTY+5*, UPDQTY+6, UPDQTY+7, UPDQTY+8, UPDQTY+15*, UPDQTY+18*, UPDQTY+21*, UPDQTY+23, UPDQTY+27
    VAL EXP+12~, EXP+14*
    VAL1 EXP+12~, EXP+16*
    VARIABLE EN+1~
    X EXP~, EXP+2, EXP+4, EXP+6, EXP+8, EXP+10, EXP+13, EXP+14, EXP+20, DAY+1~
    , DAY+3*, DAY+4*, DAY+5
    XX EXP+12~, EXP+16*, EXP+17, EXP+19*
    Y SCH+2, SCH+3, EXP+12~
    YY EXP+12~, EXP+16*, EXP+17*
    ZREF QEND+9~*, QEND+10*, QEND+11
    ZRFA QEND+8~*, QEND+10
    ZTQ QEND+9~, QEND+10*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All