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

Package: Outpatient Pharmacy

Routine: PSOSULB1


Information

PSOSULB1 ;BHAM ISC/RTR,SAB - Print suspended labels cont. ;10/10/96

Source Information

Source file <PSOSULB1.m>

Call Graph

Call Graph

Call Graph Total: 21

Package Total Call Graph
Outpatient Pharmacy 10 DEVBAR^PSOBMST  $$LSTRFL^PSOBPSU1  RXACT^PSOBPSU2  $$SELPRT^PSOFDAUT  ^PSOLSET  PREVRX^PSOREJP2  ^PSOSUCAT  CHANGE^PSOSUCH1  
$$EBILLABLE^PSOSULB2  EXIT^PSOSULBL  
VA FileMan 5 ^%DT  (C,NOW)^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
CMOP 1 ^PSXRSUS  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Outpatient Pharmacy 2 PSOSUCAT  PSOSULBL  
CMOP 1 PSXRSUS  

Entry Points

Name Comments DBIA/ICR reference
DEV
DEV1
  • ICR #2478
    • Status: Other
    • Usage: Private
    START
    ASK
    PRLBL
    FDAPRT ; Selects FDA Medication Guide Printer
    QUE
    MESS
    MESSL
    BAIMAIL ;Send mail message
    DSH(REC) ; ePharmacy - verify that 3/4 days supply has elapsed before printing from suspense
  • ICR #2478
    • Status: Other
    • Usage: Private
    DSHDT(RXIEN,RFL) ; ePharmacy function to determine the 3/4 of the days supply date
    ; Input: RXIEN = Prescription file #52 ien
    ; RFL = fill#
    ; Returns: DATE value of last date of service plus 3/4 of days supply
    ; PREVRX = Previous Rx if PREVRX^PSOREJP2 identified one that
    ; should be used in the 3/4 days' supply calculation.
    LFDS(RXIEN) ;

    External References

    Name Field # of Occurrence
    ^%DT ASK+1, QUE
    C^%DTC START, ASK+11
    NOW^%DTC QUE
    ^%ZIS DEV1+1, PRLBL
    ^%ZISC DEV1+1, FDAPRT+9, QUE+5
    ^%ZTLOAD QUE+5
    ^DIE DSH+26, DSH+28
    $$GET1^DIQ FDAPRT+1, BAIMAIL+9, DSH+6, DSH+7, DSH+18
    ^DIR ASK+9, ASK+10
    DEVBAR^PSOBMST FDAPRT+7
    $$LSTRFL^PSOBPSU1 DSH+8, LFDS+3
    RXACT^PSOBPSU2 DSH+25
    $$SELPRT^PSOFDAUT FDAPRT+3
    ^PSOLSET DEV
    PREVRX^PSOREJP2 DSHDT+11
    ^PSOSUCAT START
    CHANGE^PSOSUCH1 DSH+29
    $$EBILLABLE^PSOSULB2 DSH+12
    EXIT^PSOSULBL DEV1+1, ASK+1, ASK+9, ASK+10, PRLBL, FDAPRT+1, QUE, QUE+5
    ^PSXRSUS DEV+1
    $$FMADD^XLFDT DSHDT+18
    $$FMTE^XLFDT DSH+21
    ^XMD BAIMAIL+24

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: $C(7),!!,"PROFILES MUST BE SENT TO PRINTER !!",!
    • Line Location: DEV1+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+0
    Function Call: WRITE
    • Prompt: $C(7),!!,"NOTHING THRU DATE TO PRINT"
    • Line Location: ASK+2
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASK+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: PRLBL+0
    Function Call: WRITE
    • Prompt: $C(7),!,"You must select a valid FDA Medication Guide printer."
    • Line Location: FDAPRT+4
    Function Call: WRITE
    • Prompt: !!,"PRINT FROM SUSPENSE JOB QUEUED!",!
    • Line Location: QUE+5
    Function Call: WRITE
    • Prompt: $C(7),!!?3,"NOTHING QUEUED TO PRINT!",!
    • Line Location: MESS+0
    Function Call: WRITE
    • Prompt: $C(7),!?3,"LABELS MUST BE SENT TO A PRINTER!",!
    • Line Location: MESSL+0
    Routine Call
    • DIE
    • Line Location:
      • DSH+26
      • DSH+28
    Routine Call
    • DIR
    • Line Location:
      • ASK+9
      • ASK+10
    Routine Call
    • %ZIS
    • Line Location:
      • DEV1+1
      • PRLBL

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PS(52.5 - [#52.5] Classic Fileman Calls,  GET1^DIQ
    ^PS(59 - [#59] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" DEV+1
    ^PS(52.5 - [#52.5] ASK+2
    ^PSDRUG - [#50] BAIMAIL+22
    ^PSRX - [#52] BAIMAIL+22, DSHDT+8, LFDS+2, LFDS+4
    ^TMP("PSOM" BAIMAIL+2!, BAIMAIL+10*, BAIMAIL+11*, BAIMAIL+12*, BAIMAIL+13*, BAIMAIL+16*, BAIMAIL+17*, BAIMAIL+20*, BAIMAIL+22*, BAIMAIL+23*
    ^TMP("PSOSM" BAIMAIL+14, BAIMAIL+15, BAIMAIL+18, BAIMAIL+20
    ^TMP($J ASK!
    ^XUSEC("PSX XMIT" DEV+1
    ^XUSEC("PSXCMOPMGR" DEV+1

    Label References

    Name Line Occurrences
    $$DSHDT DSH+14
    $$LFDS DSH+24
    ASK ASK+2
    DEV DEV, DEV1+1
    MESS ASK+1, ASK+9, ASK+10, PRLBL, QUE
    MESSL PRLBL+1
    PRLBL PRLBL+1
    START DEV1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ASK+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % QUE
    %DT ASK+1*!, QUE!*
    %DT("A" ASK+1*, QUE*
    %DT("B" ASK+1*, QUE*
    %DT(0 QUE*
    %ZIS DEV1+1!*, PRLBL*
    %ZIS("A" DEV1+1*!, PRLBL*
    %ZIS("B" PRLBL*
    COMM DSH+2~, DSH+21*, DSH+22*, DSH+23*, DSH+25
    DA DSH+2~, DSH+26*, DSH+27~, DSH+28*
    DAYSSUP DSH+2~, DSH+24*, DSHDT+7~, DSHDT+11, DSHDT+14
    DEAD DSH+27~, DSH+29*
    DIE DSH+2~, DSH+26*, DSH+27~, DSH+28*
    DIFROM BAIMAIL+24~
    DIR ASK+3!, ASK+9!, ASK+10!
    DIR("?" ASK+4*, ASK+5*, ASK+6*, ASK+7*
    DIR("A" ASK+3*, ASK+10*
    DIR("T" ASK+8*
    DIR(0 ASK+3*, ASK+10*
    >> DIRUT ASK+9, ASK+10
    DR DSH+2~, DSH+26*, DSH+27~, DSH+28*
    DSH34 DSHDT+7~, DSHDT+14*, DSHDT+15*, DSHDT+18
    DSHDT DSH+2~, DSH+14*, DSH+15, DSH+16*, DSH+17, DSH+18, DSH+21, DSH+28, DSH+29
    DSHOLD DSH+2~, DSH+5*, DSH+12, DSH+17*, DSH+33
    DT START, DSH+17
    DTIME ASK+8
    >> DTOUT QUE
    DUZ DEV+1, ASK, BAIMAIL+1, DSH+25
    FDAPRT FDAPRT+1~*, FDAPRT+2, FDAPRT+3*, FDAPRT+4, FDAPRT+5
    FILL BAIMAIL+3~, BAIMAIL+18*, BAIMAIL+20, BAIMAIL+22
    FILLDT DSHDT+7~, DSHDT+11, DSHDT+12, DSHDT+18
    FIRST BAIMAIL+3~, BAIMAIL+17*, BAIMAIL+19*
    INDT DSH+27~, DSH+29*
    IO("Q" DEV1+1!, ASK+11!, FDAPRT+9!
    ION DEV, DEV1+1, PRLBL
    IOP DEV1+1!, ASK+11!, PRLBL*
    >> IOS FDAPRT+7
    IOST DEV1+1, PRLBL+1
    NAME BAIMAIL+3~, BAIMAIL+14*, BAIMAIL+15, BAIMAIL+17, BAIMAIL+18, BAIMAIL+20
    OLD DSH+27~
    >> PDUZ ASK*, BAIMAIL+1*, BAIMAIL+5
    PFIO DEV1+1~
    >> PFIOQ ASK*
    POP DEV1+1!, ASK+11!, PRLBL
    PREVRX DSH+3~, DSH+15*, DSH+22, DSHDT+7~, DSHDT+11, DSHDT+18
    >> PRTDT ASK+1*, ASK+2, ASK+11
    PSARR DSH+3~
    PSINSUR DSH+3~
    >> PSLION PRLBL*, QUE+2
    >> PSOBAR0 FDAPRT+8
    >> PSOBAR1 FDAPRT+8
    >> PSOBARS FDAPRT+8*
    >> PSOCUTDT START
    >> PSODBQ QUE+1*
    >> PSODTCUT START*
    >> PSOFDAPT FDAPRT+1, FDAPRT+3, FDAPRT+5*
    >> PSOG QUE+4*
    PSOION DEV*, DEV1+1, PRLBL, FDAPRT+9!
    PSOIOS FDAPRT+7~*
    PSOOUT QUE!
    >> PSOPAR DEV, DEV1, START, ASK+11, FDAPRT+8
    PSOPROP DEV1+1~*
    >> PSOPRPAS START*
    >> PSOSITE FDAPRT+1, BAIMAIL+9
    PSOSU ASK!
    PSOSUSPR ASK!, QUE+1*
    PSOTIME QUE!, QUE+1*, QUE+2
    PSOX DSH+27~
    >> PSRT ASK+9*
    >> PSRTONE ASK+10*
    PSSN BAIMAIL+3~, BAIMAIL+15*, BAIMAIL+17, BAIMAIL+18, BAIMAIL+20
    >> PSXSYS DEV+1
    REC DSH~, DSH+6, DSH+7, DSH+18, DSH+26, DSH+28, DSH+29
    RFL DSH+3~, DSH+7*, DSH+8*, DSH+12, DSH+14, DSH+25, DSH+29, DSHDT~, DSHDT+9, DSHDT+11
    RX BAIMAIL+3~, BAIMAIL+18*, BAIMAIL+20, BAIMAIL+22
    RXFIL LFDS+1~, LFDS+3*, LFDS+4
    RXIEN DSH+3~, DSH+6*, DSH+8, DSH+12, DSH+14, DSH+24, DSH+25, DSH+29, DSHDT~, DSHDT+8
    , DSHDT+11, LFDS~, LFDS+2, LFDS+3, LFDS+4
    SDT DSH+3~
    SEQ BAIMAIL+3~, BAIMAIL+4*, BAIMAIL+10*, BAIMAIL+11*, BAIMAIL+12*, BAIMAIL+13*, BAIMAIL+16*, BAIMAIL+17, BAIMAIL+20, BAIMAIL+21*
    , BAIMAIL+22*, BAIMAIL+23
    SFN DSH+3~, DSH+27~, DSH+29*
    SHDT DSH+3~
    SUB DSH+27~
    U DSH+15, DSH+16, DSHDT+18, LFDS+4
    X DEV+1~*, START, ASK+11
    >> X1 START*, ASK+11*
    >> X2 START*, ASK+11*
    >> XDATE ASK+11*
    XMDUZ BAIMAIL+3~, BAIMAIL+7*, BAIMAIL+24!
    XMSUB BAIMAIL+3~, BAIMAIL+8*, BAIMAIL+9*, BAIMAIL+24!
    XMTEXT BAIMAIL+3~, BAIMAIL+24*!
    XMY BAIMAIL+3~, BAIMAIL+24!
    XMY( BAIMAIL+5*
    XMY("G.PSO EX TERNAL DISPENSE ALERTS" , BAIMAIL+6*
    XOK DSH+27~
    >> Y ASK+1, ASK+9, ASK+10, QUE, QUE+1
    >> ZTDESC QUE+2*
    >> ZTDTH QUE+2*
    >> ZTIO QUE+2*
    >> ZTRTN QUE+2*
    >> ZTSAVE( QUE+4*
    >> ZTSAVE("PSOSULST(" QUE+3*
    ZTSK ASK+11!
    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