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

Package Total Call Graph
Outpatient Pharmacy 9 DEVBAR^PSOBMST  $$LSTRFL^PSOBPSU1  RXACT^PSOBPSU2  $$SELPRT^PSOFDAUT  ^PSOLSET  PREVRX^PSOREJP2  ^PSOSUCAT  CHANGE^PSOSUCH1  
EXIT^PSOSULBL  
VA FileMan 5 ^%DT  (C,NOW)^%DTC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
Integrated Billing 2 $$INSUR^IBBAPI  $$BILLABLE^IBNCPDP  
CMOP 1 ^PSXRSUS  
E Claims Management Engine 1 $$STATUS^BPSOSRX  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

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
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.
    MESS
    MESSL
    DEV
    START
    DEV1
  • ICR #2478
    • Status: Other
    • Usage: Private
    QUE
    BAIMAIL ;Send mail message
    ASK
    FDAPRT ; Selects FDA Medication Guide Printer
    LFDS(RXIEN) ;
    PRLBL

    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
    $$STATUS^BPSOSRX DSH+10
    ^DIE DSH+30, DSH+32
    $$GET1^DIQ FDAPRT+1, BAIMAIL+9, DSH+4, DSH+6
    ^DIR ASK+9, ASK+10
    $$INSUR^IBBAPI DSH+6
    $$BILLABLE^IBNCPDP DSH+14
    DEVBAR^PSOBMST FDAPRT+7
    $$LSTRFL^PSOBPSU1 DSH+4, LFDS+3
    RXACT^PSOBPSU2 DSH+29
    $$SELPRT^PSOFDAUT FDAPRT+3
    ^PSOLSET DEV
    PREVRX^PSOREJP2 DSHDT+11
    ^PSOSUCAT START
    CHANGE^PSOSUCH1 DSH+33
    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+25
    ^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+30
      • DSH+32
    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
    ^PSRX - [#52] GET1^DIQ
    ^PS(52.5 - [#52.5] Classic Fileman Calls
    ^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, DSH+3
    ^PSDRUG - [#50] BAIMAIL+22
    ^PSRX - [#52] BAIMAIL+22, DSH+7, DSH+12, 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+18
    $$LFDS DSH+28
    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+1~, DSH+25*, DSH+26*, DSH+27*, DSH+29
    DA DSH+1~, DSH+30*, DSH+31~, DSH+32*
    DAYSSUP DSH+1~, DSH+28*, DSHDT+7~, DSHDT+11, DSHDT+14
    DEAD DSH+31~, DSH+33*
    DIE DSH+1~, DSH+30*, DSH+31~, DSH+32*
    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+1~, DSH+30*, DSH+31~, DSH+32*
    DRG DSH+1~, DSH+6*, DSH+14
    DSH34 DSHDT+7~, DSHDT+14*, DSHDT+15*, DSHDT+18
    DSHDT DSH+1~, DSH+18*, DSH+19, DSH+20*, DSH+21, DSH+22, DSH+25, DSH+32, DSH+33
    DSHOLD DSH+1~, DSH+3*, DSH+10, DSH+12, DSH+14, DSH+16, DSH+21*, DSH+36
    DT START, DSH+21
    DTIME ASK+8
    >> DTOUT QUE
    DUZ DEV+1, ASK, BAIMAIL+1, DSH+29
    ELIG DSH+2~, DSH+7*, DSH+14
    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*
    IBINS DSH+1~, DSH+6
    >> IBSTAT DSH+6*, DSH+16
    II DSH+31~
    INDT DSH+31~, DSH+33*
    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
    LSTFIL DSH+1~, DSH+4*, DSH+5, DSH+10
    NAME BAIMAIL+3~, BAIMAIL+14*, BAIMAIL+15, BAIMAIL+17, BAIMAIL+18, BAIMAIL+20
    OLD DSH+31~
    >> PDUZ ASK*, BAIMAIL+1*, BAIMAIL+5
    PFIO DEV1+1~
    >> PFIOQ ASK*
    POP DEV1+1!, ASK+11!, PRLBL
    PREVRX DSH+2~, DSH+19*, DSH+26, DSHDT+7~, DSHDT+11, DSHDT+18
    >> PRTDT ASK+1*, ASK+2, ASK+11
    PS0 DSH+1~, DSH+3*, DSH+22
    PSARR DSH+1~
    PSINSUR DSH+1~
    >> 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+31~
    >> PSRT ASK+9*
    >> PSRTONE ASK+10*
    PSSN BAIMAIL+3~, BAIMAIL+15*, BAIMAIL+17, BAIMAIL+18, BAIMAIL+20
    >> PSXSYS DEV+1
    PTDFN DSH+1~, DSH+4*, DSH+6
    REC DSH~, DSH+3, DSH+30, DSH+32, DSH+33
    RFL DSH+1~, DSH+3*, DSH+5*, DSH+7, DSH+18, DSH+29, DSH+33, DSHDT~, DSHDT+9, DSHDT+11
    RX BAIMAIL+3~, BAIMAIL+18*, BAIMAIL+20, BAIMAIL+22
    RXFIL LFDS+1~, LFDS+3*, LFDS+4
    RXIEN DSH+1~, DSH+3*, DSH+4, DSH+6, DSH+7, DSH+10, DSH+12, DSH+18, DSH+28, DSH+29
    , DSH+33, DSHDT~, DSHDT+8, DSHDT+11, LFDS~, LFDS+2, LFDS+3, LFDS+4
    SDT DSH+2~
    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+2~, DSH+31~, DSH+33*
    SHDT DSH+1~
    SUB DSH+31~
    U DSH+3, DSH+7, DSH+12, DSH+19, DSH+20, DSH+22, DSHDT+18, LFDS+4
    X DEV+1~*, START, ASK+11, DSH+31~
    >> 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+31~
    >> 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