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

Package: Outpatient Pharmacy

Routine: PSOSUCH1


Information

PSOSUCH1 ;BHAM ISC/JMB-Change suspense and fill/refill dates ; 4/49/93

Source Information

Source file <PSOSUCH1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  ^DIE  IX1^DIK  
Outpatient Pharmacy 3 CAN^PSOCAN  (ALL,SPEC)^PSOSUCHG  NEXT^PSOUTIL  
CMOP 1 X^PSXCH  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 4 PSOBPSU2  PSOREJP2  PSOSUCHG  PSOSULB1  
CMOP 1 PSXRPPL2  

Entry Points

Name Comments DBIA/ICR reference
AREC
LISTSUS
CHANGE(RXREC,SUB) ; File update for Suspense Date change
  • ICR #5427
    • Status: Active
    • Usage: Controlled Subscription
    DEAD
    NEXT
    DAREC ;
    CHKDEAD
    LISTPAT
    PSOINST
    FIN

    External References

    Name Field # of Occurrence
    NOW^%DTC AREC+3, DAREC+4
    ^DIC LISTSUS, LISTPAT
    ^DIE NEXT, CHANGE+1, CHANGE+4, CHANGE+5
    IX1^DIK FIN
    CAN^PSOCAN DEAD
    ALL^PSOSUCHG PSOINST, PSOINST+1
    SPEC^PSOSUCHG PSOINST, PSOINST+1
    NEXT^PSOUTIL NEXT
    X^PSXCH FIN+1
    DEM^VADPT CHKDEAD

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: LISTSUS+0
    Function Call: WRITE
    • Prompt: !,?7,$C(7),$C(7),$C(7)," NON-EXISTENT PRESCRIPTION"
    • Line Location: PSOINST+0
    Function Call: WRITE
    • Prompt: !,?7,$C(7),$C(7),$C(7)," NOT FROM THIS INSTITUTION"
    • Line Location: PSOINST+1
    Function Call: WRITE
    • Prompt: !?10,"PATIENT NAME UNKNOWN"
    • Line Location: CHKDEAD+0
    Routine Call
    • DIE
    • Line Location:
      • NEXT
      • CHANGE+1
      • CHANGE+4
      • CHANGE+5
    Routine Call
    • DIC
    • Line Location:
      • LISTSUS
      • LISTPAT

    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" FIN+1
    ^DIC(4 - [#4] PSOINST
    ^DPT - [#2] DEAD+1
    ^PS(52.5 - [#52.5] CHKDEAD+3, CHANGE+1, CHANGE+4!, CHANGE+6!
    ^PSRX - [#52] PSOINST, AREC+1, AREC+2, AREC+3*, CHANGE+1, CHANGE+2, CHANGE+3, CHANGE+5*, DAREC+2, DAREC+3
    , DAREC+4*
    ^XMB(1 - [#4.3] PSOINST

    Label References

    Name Line Occurrences
    AREC FIN+1
    DEAD CHKDEAD+3
    FIN CHANGE+1
    NEXT CHANGE+4, CHANGE+6

    Naked Globals

    Name Field # of Occurrence
    ^(0 CHANGE+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % AREC+3, DAREC+4
    >> ACT PSOINST, PSOINST+1
    >> CNT AREC+1*, AREC+3*
    >> COM AREC*, AREC+3, DEAD*
    DA DEAD*, DEAD+1*, NEXT*, CHANGE+1*, CHANGE+3*, CHANGE+4!, CHANGE+5*, CHANGE+6*!, FIN*
    DA(1 CHANGE+1*, CHANGE+5*
    >> DEAD AREC, AREC+3, CHKDEAD*, CHKDEAD+1*, DEAD*
    >> DFN CHKDEAD+3, DEAD+1, CHANGE+4, CHANGE+6
    DIC LISTSUS*!, LISTPAT*!
    DIC("S" LISTSUS*, LISTPAT*
    DIC(0 LISTSUS*, LISTPAT*
    DIE NEXT*!, CHANGE+1*, CHANGE+3*, CHANGE+4!, CHANGE+5*!
    >> DIK FIN*
    >> DR NEXT*, CHANGE+1*, CHANGE+3*, CHANGE+5*
    >> DTOUT LISTSUS, NEXT, CHANGE+4
    >> DUOUT NEXT, CHANGE+4
    DUZ AREC+3, DAREC+4
    >> HDSFN CHANGE+1*, CHANGE+3*, CHANGE+4, CHANGE+6, FIN, FIN+1
    HOLD DEAD*, DEAD+1!
    >> II CHANGE+2*
    >> INDT AREC, CHANGE+1, CHANGE+3, CHANGE+5
    NEXT NEXT*, NEXT+1!
    >> OLD AREC, CHANGE+1*, CHANGE+3*, CHANGE+5*
    >> PSOINST PSOINST*, PSOINST+1
    PSOSUSPA AREC, AREC+3!, CHANGE+1*
    PSOX NEXT, NEXT+1!
    PSOX("IRXN" NEXT*
    PSOX("RX3" NEXT
    REA DEAD*, DEAD+1!
    >> RECORD CHKDEAD+3*, DEAD
    >> RF AREC+2*
    >> RFCNT AREC+2*, AREC+3
    RXREC AREC+1, AREC+2, AREC+3, CHKDEAD+3*, NEXT, CHANGE~, CHANGE+1, CHANGE+2, CHANGE+3, CHANGE+5
    , CHANGE+6, DAREC+2, DAREC+3, DAREC+4
    SCOM DAREC+1*, DAREC+4, DAREC+5!
    SCXX DAREC+3*, DAREC+5!
    >> SFN CHANGE+1, CHANGE+3, FIN+1*
    >> SNODE DAREC+1, DAREC+4
    >> SRXPAR CHANGE+1*
    >> SRXREC CHKDEAD+3*
    SSX DAREC+2*, DAREC+4*, DAREC+5!
    SSXX DAREC+2*, DAREC+5!
    SUB AREC, AREC+1*, CHANGE~, CHANGE+2*, CHANGE+3, CHANGE+5
    >> SUSDOD CHKDEAD+2*, DEAD, DEAD+1
    SXCNT DAREC+3*, DAREC+4, DAREC+5!
    >> VADM(1 CHKDEAD
    >> VADM(6 CHKDEAD+1, CHKDEAD+2
    >> WARN DEAD+1*
    X LISTSUS*, LISTPAT*, CHANGE+3*, CHANGE+5*, FIN+1~*!
    >> XOK FIN+1
    >> Y LISTSUS, PSOINST, PSOINST+1
    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