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

Package: Outpatient Pharmacy

Routine: PSOSUCHG


Information

PSOSUCHG ;BIR/RTR-CHANGE SUSPENSE AND FILL AND REFILL DATES ;4/29/93

Source Information

Source file <PSOSUCHG.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Outpatient Pharmacy 7 ($$FLAG,$$SUSPFILL)^PSOBPSU4  EN^PSOHLSN1  ^PSOLSET  (CHANGE,CHKDEAD,DAREC)^PSOSUCH1  WARN^PSOSUDCN  (CKDIV,DIV,PSOINST)^PSOSUPAT  NEXT^PSOUTIL  
VA FileMan 6 DD^%DT  ^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
CMOP 1 (A,P)^PSXCH  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  

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 PSO PNDCHG  PSOSUCH1  
CMOP 1 PSXCH  

Entry Points

Name Comments DBIA/ICR reference
LU
EXIT
SPEC
  • ICR #1972
    • Status: Active
    • Usage: Private
    RTN
  • ICR #1972
    • Status: Active
    • Usage: Private
    ALL
  • ICR #1972
    • Status: Active
    • Usage: Private
    BC
    NAM
    TEST
    BEG
    DEL
    EXPCAN
    TST
    RF ;
    RFPS
    DATE
    DATEX
    IS
    SI ;
    DEL1 ;
    ULK ;Unlock prescriptions
    PAUSE ;
    LMES ;
    DELONE ;
    EXPCAN1 ;

    External References

    Name Field # of Occurrence
    DD^%DT EXPCANEXPCAN1+4
    ^DIC SPEC+1, NAM
    ^DIE RTN+13, RTN+14, BEG+1, BEG+2, RF+10, IS
    ^DIK DEL+6, EXPCANRF+5, DEL1+5, EXPCAN1+4
    $$GET1^DIQ NAM+16
    ^DIR LU+2, SPEC+1, ALL+1, BCDELPAUSE+1
    $$FLAG^PSOBPSU4 RTN+8, NAM+13
    $$SUSPFILL^PSOBPSU4 NAM+10
    EN^PSOHLSN1 DEL+8, EXPCAN+2, DEL1+7, EXPCAN1+6
    ^PSOLSET PSOSUCHG+7
    CHANGE^PSOSUCH1 RTN+15, BEG+3
    CHKDEAD^PSOSUCH1 RTN+1, TEST+3
    DAREC^PSOSUCH1 RF+2
    WARN^PSOSUDCN PSOSUCHG+7
    CKDIV^PSOSUPAT RTN+1
    DIV^PSOSUPAT TEST+3
    PSOINST^PSOSUPAT SPEC+1, BC+2
    NEXT^PSOUTIL RF+10
    PSOL^PSSLOCK SPEC+5, TEST+1, DEL+4, DELONE+1
    PSOUL^PSSLOCK ULK+2
    A^PSXCH TEST
    P^PSXCH SPEC+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: LU+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: SPEC+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: SPEC+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: SPEC+1
    Function Call: WRITE
    • Prompt: !,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be changed because"
    • Line Location: SPEC+5
    Function Call: WRITE
    • Prompt: !!,"Currently, Bypass 3/4 Day Supply is set to YES. If you continue, the"
    • Line Location: RTN+9
    Function Call: WRITE
    • Prompt: !,"prescription fill will transmit to CMOP on the new Suspense Date entered.",!
    • Line Location: RTN+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: RTN+13
    Function Call: WRITE
    • Prompt: !!,"Suspense date cannot be before Issue Date of Rx!",!
    • Line Location: RTN+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: ALL+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: BC+0
    Function Call: WRITE
    • Prompt: $C(7),!!?5,"Invalid Barcode!"
    • Line Location: BC+1
    Function Call: WRITE
    • Prompt: " ",$P($G(^DPT(DFN,0)),"^")
    • Line Location: BC+2
    Function Call: WRITE
    • Prompt: $C(7),!!?5,"Invalid Barcode!",!
    • Line Location: BC+4
    Function Call: WRITE
    • Prompt: !!?3,"This patient has no Rx's in suspense that have not already been printed!",!
    • Line Location: BC+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: NAM+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: NAM+15
    Function Call: WRITE
    • Prompt: !,"Rx #: ",$$GET1^DIQ(52,RXREC,.01,"E")
    • Line Location: NAM+16
    Function Call: WRITE
    • Prompt: !,"Currently, Bypass 3/4 Day Supply is set to YES. If you continue, the"
    • Line Location: NAM+20
    Function Call: WRITE
    • Prompt: !,"prescription fill(s) will transmit to CMOP on the new Suspense Date entered.",!
    • Line Location: NAM+21
    Function Call: WRITE
    • Prompt: !!,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be changed because"
    • Line Location: TEST+1
    Function Call: WRITE
    • Prompt: !!,"Deleting Rx's from suspense..",!
    • Line Location: DEL+1
    Function Call: WRITE
    • Prompt: !,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be deleted from suspense because"
    • Line Location: DEL+4
    Function Call: WRITE
    • Prompt: $C(7),!,"Rx# "_$P($G(^PSRX(RXREC,0)),"^")_" expired "_$G(PSOSSTP)_"."
    • Line Location: EXPCAN+0
    Function Call: WRITE
    • Prompt: !!,"Suspense date cannot be before Issue Date for Rx# ",$P($G(^PSRX(RXREC,0)),"^")
    • Line Location: IS+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !,"Rx number: "_$P($G(^PSRX(RXREC,0)),"^")_" cannot be deleted from suspense because"
    • Line Location: DELONE+1
    Function Call: WRITE
    • Prompt: $C(7),!,"Rx# "_$P($G(^PSRX(RXREC,0)),"^")_" expired "_$G(PSOSSTP)_"."
    • Line Location: EXPCAN1+4
    Routine Call
    • DIC
    • Line Location:
      • SPEC+1
      • NAM
    Routine Call
    • DIE
    • Line Location:
      • RTN+13
      • RTN+14
      • BEG+1
      • BEG+2
      • RF+10
      • IS
    Routine Call
    • DIR
    • Line Location:
      • LU+2
      • SPEC+1
      • ALL+1
      • BC
      • DEL
      • PAUSE+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^PSRX - [#52] GET1^DIQ
    ^PS(52.5 - [#52.5] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" TST
    ^DPT - [#2] BC+2
    ^PS(52.5 - [#52.5] SPEC+4, RTN+1, BC+5, NAM+24, TESTBEGBEG+1!, BEG+2!, DEL+6, RF+2
    RF+4, DEL1+2, DEL1+5, EXPCAN1+3
    ^PS(55 - [#55] NAM+8, NAM+9, NAM+24, DEL1+2
    ^PSRX - [#52] SPEC+2, SPEC+4, SPEC+5, RTN+1, RTN+6, RTN+14, BC+2, BC+4, NAM+11, TEST
    TEST+1, TEST+3, DEL+4, DEL+6, DEL+7*, EXPCANEXPCAN+1*, EXPCAN+3, RF+3, RF+4
    RF+8*, RF+9*, DATEDATE+1*, DATEXDATEX+1*, DATEX+2*, ISDEL1+4, DEL1+5
    DEL1+6*, DELONE+1, EXPCAN1+2, EXPCAN1+4, EXPCAN1+5*

    Label References

    Name Line Occurrences
    ALL LU+2, RTN+16, BCNAMNAM+25
    BC BC+3, BC+4, BC+5
    BEG TEST+3
    DATE RF+6
    DATEX DATEX
    DEL RTN+16
    DEL1 DEL+1
    DELONE DEL1+3
    EXIT LU+2
    EXPCAN RTNTEST
    EXPCAN1 DEL1+4
    IS BEG+2, SI+3
    LMES SPEC+5, TEST+1, DEL+4, DELONE+1
    LU LU+2
    PAUSE SPEC+5, TEST+1, DEL+4, DELONE+1
    RF DEL+6, DEL1+5
    RFPS RF+7
    SI BEG+1
    SPEC LU+2, SPEC+1, SPEC+4, RTN+16, NAM+25
    TEST NAM+24
    TST SPEC+4, TEST
    ULK LU+2, EXITSPECALLNAM+24

    Naked Globals

    Name Field # of Occurrence
    ^("STA" SPEC+4, TEST
    ^(0 NAM+24, DEL1+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACT LU+2*, EXIT!, RTN+16, NAM+25, DELDEL+1, DEL+6, DEL1+5
    BC EXIT!, ALL+1*, BCBC+4, BC+5, NAM
    BCNUM EXIT!, BC*, BC+1
    CBD EXIT!, NAM+24*
    CNT EXIT!
    COM EXIT!
    D1 EXIT!
    DA EXIT!, SPEC+4*, RTN+13*, RTN+14*, RTN+15*, BEG+1*, BEG+2*, DEL+6*, EXPCAN*, RF+1
    RF+2*, RF+5~*, RF+10*, RFPS*, IS*, DEL1+5*, EXPCAN1+4*
    DA(1 RF+5*
    DEAD EXIT!, SPEC+4*, RTN+1, TEST+3
    DEL EXIT!, DEL*, DEL+1, DEL+2, DEL+6
    DELCNT EXIT!, SPEC*, ALL*, DEL*, DEL+1
    DELFLAG EXIT!, ALL*, DEL+1*
    DFN EXIT!, SPEC+4*, BC+2*, BC+5, NAM*, NAM+8, NAM+9, NAM+24, BEG+1, BEG+2
    DEL1+2
    DIC SPEC+1*!, NAM*!
    DIC("S" SPEC+1*, NAM*
    DIC(0 SPEC+1*, NAM*
    DIE RTN+13*!, RTN+14*!, BEG+1*, BEG+2*!, RF+10*!, IS!*
    DIK DEL+6*!, EXPCAN*!, RF+5~*, DEL1+5*!, EXPCAN1+4*!
    DIR LU+2!, SPEC+1!, ALL+1!, BC!, DEL!, PAUSE+1!
    DIR("?" LU+1*, SPEC*, ALL+1*, BC*
    DIR("??" SPEC*
    DIR("A" LU*, SPEC*, ALL*, BC*, DEL*, PAUSE+1*
    DIR("B" DEL*
    DIR(0 LU*, SPEC*, ALL*, BC*, DEL*, PAUSE+1*
    DIRUT LU+2, EXIT!, SPEC+1, ALL+1, BCDEL
    DR EXIT!, RTN+13*, RTN+14*, BEG+1*, BEG+2*, RF+10*, IS*
    DT RTNTESTEXPCANDEL1+4, EXPCAN1+4
    DTOUT EXIT!, SPEC+1, NAMBEG+1, BEG+2
    DUOUT EXIT!, SPEC+1, NAMBEG+2
    HDSFN EXIT!
    I EXIT!
    II EXIT!
    INDT EXIT!, SPEC!, RTN+14, ALL!, BEG+2, IS
    ISFLAG EXIT!, BEG*, BEG+1, BEG+2, IS*, SI+2*
    OLD EXIT!
    OUT EXIT!, SPEC*, SPEC+1, BC*, BC+1*, BC+2, BC+3
    PNOD RFPS!, DATE*, DATE+1, DATEX*, DATEX+1, DATEX+2
    PSDIVCHK EXIT+1!, ALL*, TEST+3*
    PSIFN RF+3*, RF+4, RF+5, RF+8*, RFPS!
    PSINN RF+2*!, RF+3, RF+4, RF+5, RF+8, RF+9, RF+10, RFPS!, DATEDATE+1
    DATEXDATEX+1, DATEX+2
    PSOCNT NAM+5~, NAM+6*, NAM+14*, NAM+15, NAM+19
    PSODELLK LU~, EXIT+1!, DEL+3, DEL+4!*, DEL1+3!, DELONE+1!*
    PSODFS RF+1*, RF+2!, RF+6*, RF+7, RFPS!
    >> PSODIV RTN+1, TEST+3
    PSOFILL RTN+5~, RTN+6*, RTN+7*, RTN+8, NAM+5~, NAM+11*, NAM+12*, NAM+13
    PSOLKQT LU~, EXIT+1!, SPEC+4, SPEC+5!*, TESTTEST+1!*
    PSOMSG EXIT+1!, SPEC+5!, SPEC+6!, TEST+1!, TEST+2!, DEL+4!, DEL+5!, LMES+1, DELONE+1!, DELONE+2!
    PSONEXT RF+10*!
    >> PSOPAR PSOSUCHG+7
    PSOPOPUP EXIT!, ALL*, NAM+24, TEST+3*, BEG+1*, BEG+2*, DEL*, SI+2*
    PSOPP NAM+5~, NAM+7*, NAM+8*, NAM+9
    PSOSDLK LU~, EXIT!, ULK+3!
    PSOSDLK( SPEC+6*, TEST+2*, DEL+3, DEL+5*, DEL1+3, ULK+2, DELONE+2*
    PSOSDLK("" ULK+1
    PSOSDLKR ULK+2~*
    >> PSOSITE RTN+1
    PSOSSTP LU~, EXIT+1!, EXPCAN*, EXPCAN1+1~, EXPCAN1+4*
    >> PSOSUPOP DEL1+1*
    PSOX RF+10!
    PSOX("IRXN" RF+10*
    PSOX("RX3" RF+10
    PSOZZD DEL+8~*!, EXPCAN+2~*!, DEL1+7~*!, EXPCAN1+6~*!
    PSPOP EXIT!, SPEC*, RTN+1*, ALL*, TEST+3*
    PSSHLDDA RF+1*, RF+2, RF+4, RFPS!
    PSUSD RF+6*, RFPS!
    RECORD EXIT!
    RF EXIT!
    RFCNT EXIT!
    RX EXIT!, BC+1*, BC+2, BC+4
    RXDATE EXIT!, SPEC+4*, RTN+14, RTN+15, BEG*, IS
    RXREC EXIT!, SPEC+4*, SPEC+5, SPEC+6, RTN+1, RTN+6, RTN+8, RTN+14, RTN+15, NAM+9*
    NAM+10, NAM+11, NAM+13, NAM+16, NAM+24*, TESTTEST+1, TEST+2, TEST+3, BEG+3
    DEL+3, DEL+4, DEL+5, DEL+6, DEL+7, DEL+8, EXPCANEXPCAN+1, EXPCAN+2, EXPCAN+3
    ISDEL1+2*, DEL1+3, DEL1+4, DEL1+5, DEL1+6, DEL1+7, DELONE+1, DELONE+2, EXPCAN1+2
    EXPCAN1+3, EXPCAN1+4, EXPCAN1+5, EXPCAN1+6
    SFN EXIT!, SPEC+4*, RTN+1, RTN+13, RTN+14, TEST*, BEGBEG+1, BEG+2, EXPCAN
    ISEXPCAN1+1~, EXPCAN1+3*, EXPCAN1+4
    SNODE RF+2*!, RF+4, RF+6, RFPS!
    SRXPAR EXIT!
    SRXREC EXIT!
    STAT SPEC+4*, RTN, TEST*, EXPCANEXPCAN+3!, EXPCAN1+1~, EXPCAN1+2*, EXPCAN1+4
    STOP EXIT!, SPEC+4*, RTN, TEST*, EXPCANEXPCAN+3!, EXPCAN1+1~, EXPCAN1+2*, EXPCAN1+4
    SUB EXIT!
    SUSCNT EXIT!, ALL*, BEG+1*, BEG+2, SI+1*
    SUSDOD EXIT!
    >> VA("BID" EXIT+1!
    >> VA("PID" EXIT+1!
    VADM EXIT!, EXIT+1!
    WARN EXIT!, SPEC*, ALL*
    >> WW DEL1+2*
    X EXIT!, SPEC+2*, SPEC+3*, RTN+15, BEG+1, TST~*!
    XOK EXIT!, TEST
    Y LU+2, EXIT!, SPEC+1, SPEC+2*, SPEC+3, SPEC+4, RTN+13, RTN+14*, ALL+1, BC
    NAMBEG+1, BEG+2, DEL, EXPCAN*, EXPCAN+3, SI+2, EXPCAN1+1~, EXPCAN1+4*
    Y(0 SPEC+4
    ZZZ RFPS!, DATE*
    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