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

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

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

Entry Points

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

    External References

    Name Field # of Occurrence
    DD^%DT EXPCAN, EXPCAN1+4
    ^DIC SPEC+1, NAM
    ^DIE RTN+2, RTN+3, 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
    EN^PSOHLSN1 DEL+8, EXPCAN+2, DEL1+7, EXPCAN1+6
    ^PSOLSET PSOSUCHG+7
    CHANGE^PSOSUCH1 RTN+4, 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: !
    • Line Location: RTN+2
    Function Call: WRITE
    • Prompt: !!,"Suspense date cannot be before Issue Date of Rx!",!
    • Line Location: RTN+3
    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: !!,"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
    • DIE
    • Line Location:
      • RTN+2
      • RTN+3
      • BEG+1
      • BEG+2
      • RF+10
      • IS
    Routine Call
    • DIC
    • Line Location:
      • SPEC+1
      • NAM
    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
    ^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+1, TEST, BEG, BEG+1!, BEG+2!, DEL+6, RF+2
    , RF+4, DEL1+2, DEL1+5, EXPCAN1+3
    ^PS(55 - [#55] NAM+1, DEL1+2
    ^PSRX - [#52] SPEC+2, SPEC+4, SPEC+5, RTN+1, RTN+3, BC+2, BC+4, TEST, TEST+1, TEST+3
    , DEL+4, DEL+6, DEL+7*, EXPCAN, EXPCAN+1*, EXPCAN+3, RF+3, RF+4, RF+8*, RF+9*
    , DATE, DATE+1*, DATEX, DATEX+1*, DATEX+2*, IS, DEL1+4, DEL1+5, DEL1+6*, DELONE+1
    , EXPCAN1+2, EXPCAN1+4, EXPCAN1+5*

    Label References

    Name Line Occurrences
    ALL LU+2, RTN+5, BC, NAM, NAM+2
    BC BC+3, BC+4, BC+5
    BEG TEST+3
    DATE RF+6
    DATEX DATEX
    DEL RTN+5
    DEL1 DEL+1
    DELONE DEL1+3
    EXIT LU+2
    EXPCAN RTN, TEST
    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+5, NAM+2
    TEST NAM+1
    TST SPEC+4, TEST
    ULK LU+2, EXIT, SPEC, ALL, NAM+1

    Naked Globals

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

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACT LU+2*, EXIT!, RTN+5, NAM+2, DEL, DEL+1, DEL+6, DEL1+5
    BC EXIT!, ALL+1*, BC, BC+4, BC+5, NAM
    BCNUM EXIT!, BC*, BC+1
    CBD EXIT!, NAM+1*
    CNT EXIT!
    COM EXIT!
    D1 EXIT!
    DA EXIT!, SPEC+4*, RTN+2*, RTN+3*, RTN+4*, 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+1, BEG+1, BEG+2, DEL1+2
    DIC SPEC+1*!, NAM*!
    DIC("S" SPEC+1*, NAM*
    DIC(0 SPEC+1*, NAM*
    DIE RTN+2*!, RTN+3*!, 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, BC, DEL
    DR EXIT!, RTN+2*, RTN+3*, BEG+1*, BEG+2*, RF+10*, IS*
    DT RTN, TEST, EXPCAN, DEL1+4, EXPCAN1+4
    DTOUT EXIT!, SPEC+1, NAM, BEG+1, BEG+2
    DUOUT EXIT!, SPEC+1, NAM, BEG+2
    HDSFN EXIT!
    I EXIT!
    II EXIT!
    INDT EXIT!, SPEC!, RTN+3, 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!, DATE, DATE+1
    , DATEX, DATEX+1, DATEX+2
    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
    PSOLKQT LU~, EXIT+1!, SPEC+4, SPEC+5!*, TEST, TEST+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+1, TEST+3*, BEG+1*, BEG+2*, DEL*, SI+2*
    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+3, RTN+4, BEG*, IS
    RXREC EXIT!, SPEC+4*, SPEC+5, SPEC+6, RTN+1, RTN+3, RTN+4, NAM+1*, TEST, TEST+1
    , TEST+2, TEST+3, BEG+3, DEL+3, DEL+4, DEL+5, DEL+6, DEL+7, DEL+8, EXPCAN
    , EXPCAN+1, EXPCAN+2, EXPCAN+3, IS, DEL1+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+2, RTN+3, TEST*, BEG, BEG+1, BEG+2, EXPCAN
    , IS, EXPCAN1+1~, EXPCAN1+3*, EXPCAN1+4
    SNODE RF+2*!, RF+4, RF+6, RFPS!
    SRXPAR EXIT!
    SRXREC EXIT!
    STAT SPEC+4*, RTN, TEST*, EXPCAN, EXPCAN+3!, EXPCAN1+1~, EXPCAN1+2*, EXPCAN1+4
    STOP EXIT!, SPEC+4*, RTN, TEST*, EXPCAN, EXPCAN+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+4, BEG+1, TST~*!
    XOK EXIT!, TEST
    Y LU+2, EXIT!, SPEC+1, SPEC+2*, SPEC+3, SPEC+4, RTN+2, RTN+3*, ALL+1, BC
    , NAM, BEG+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