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; Mar 16, 2026@09:30

Source Information

Source file <PSOSUCH1.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  IX1^DIK  $$GET1^DIQ  
Outpatient Pharmacy 4 $$LSTRFL^PSOBPSU1  CAN^PSOCAN  (ALL,SPEC)^PSOSUCHG  NEXT^PSOUTIL  
CMOP 1 X^PSXCH  
Kernel 1 $$NOW^XLFDT  
MailMan 1 SENDMSG^XMXAPI  
Registration 1 DEM^VADPT  

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

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

Entry Points

Name Comments DBIA/ICR reference
LISTSUS
LISTPAT
PSOINST
AREC ;
CHKDEAD
DEAD
NEXT
CHANGE(RXREC,SUB) ; File update for Suspense Date change
  • ICR #5427
    • Status: Active
    • Usage: Controlled Subscription
    EXP ;PSO*7.0*823: Create Mailman message and add activity log for suspense beyond expiration date
    FIN
    DAREC ;

    External References

    Name Field # of Occurrence
    NOW^%DTC AREC+7, DAREC+7
    ^DIC LISTSUS, LISTPAT
    FILE^DICN EXP+41
    ^DIE NEXT, CHANGE+3, CHANGE+6, CHANGE+7
    IX1^DIK FIN
    $$GET1^DIQ EXP+29
    $$LSTRFL^PSOBPSU1 EXP+39
    CAN^PSOCAN DEAD
    ALL^PSOSUCHG PSOINST, PSOINST+1
    SPEC^PSOSUCHG PSOINST, PSOINST+1
    NEXT^PSOUTIL NEXT
    X^PSXCH FIN+1
    DEM^VADPT CHKDEAD
    $$NOW^XLFDT EXP+38
    SENDMSG^XMXAPI EXP+34

    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
    • DIC
    • Line Location:
      • LISTSUS
      • LISTPAT
    Routine Call
    • DIE
    • Line Location:
      • NEXT
      • CHANGE+3
      • CHANGE+6
      • CHANGE+7

    FileMan Files Accessed Via FileMan Db Call

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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" FIN+1
    ^DIC(19.1 - [#19.1] EXP+9
    ^DIC(4 - [#4] PSOINST
    ^DPT - [#2] DEAD+1
    ^PS(52.5 - [#52.5] CHKDEAD+3, CHANGE+3, CHANGE+6!, CHANGE+8!, EXP+2
    ^PSRX - [#52] PSOINST, AREC+5, AREC+6, AREC+9*, AREC+10*, CHANGE+3, CHANGE+4, CHANGE+5, CHANGE+7*, EXP+2
    , EXP+5, EXP+24, DAREC+5, DAREC+6, DAREC+9*, DAREC+10*
    ^TMP("PSO SUSPENSE EXPIRATION" EXP+11!, EXP+12*, EXP+13*, EXP+14*, EXP+15*, EXP+16*, EXP+17*, EXP+18*, EXP+19*, EXP+20*
    , EXP+21*
    ^VA(200 - [#200] AREC+3, EXP+28, DAREC+3
    ^XMB(1 - [#4.3] PSOINST

    Label References

    Name Line Occurrences
    AREC FIN+1
    DEAD CHKDEAD+3
    EXP CHANGE+12
    FIN CHANGE+3, CHANGE+13
    NEXT CHANGE+6, CHANGE+8

    Naked Globals

    Name Field # of Occurrence
    ^(0 CHANGE+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % AREC+10, DAREC+10
    >> ACT PSOINST, PSOINST+1
    >> CNT AREC+5*, AREC+8*, AREC+9, AREC+10
    >> COM AREC+4*, AREC+10, DEAD*
    DA DEAD*, DEAD+1*, NEXT*, CHANGE+3*, CHANGE+5*, CHANGE+6!, CHANGE+7*, CHANGE+8*!, EXP+37~, FIN*
    DA(1 CHANGE+3*, CHANGE+7*, EXP+38*
    DD EXP+37~
    >> DEAD AREC+4, AREC+10, CHKDEAD*, CHKDEAD+1*, DEAD*
    >> DFN CHKDEAD+3, DEAD+1, CHANGE+6, CHANGE+8
    DIC LISTSUS*!, LISTPAT*!, EXP+37~, EXP+38*
    DIC("DR" EXP+39*, EXP+40*
    DIC("S" LISTSUS*, LISTPAT*
    DIC(0 LISTSUS*, LISTPAT*, EXP+38*
    DIE NEXT*!, CHANGE+3*, CHANGE+5*, CHANGE+6!, CHANGE+7*!
    >> DIK FIN*
    DINUM EXP+37~
    DLAYGO EXP+37~, EXP+38*
    DO EXP+37~
    DR NEXT*, CHANGE+3*, CHANGE+5*, CHANGE+7*, EXP+37~
    >> DTOUT LISTSUS, NEXT, CHANGE+6
    >> DUOUT NEXT, CHANGE+6
    DUZ AREC+2, EXP+34, EXP+39, DAREC+2
    >> HDSFN CHANGE+3*, CHANGE+5*, CHANGE+6, CHANGE+8, FIN, FIN+1
    HOLD DEAD*, DEAD+1!
    >> II CHANGE+4*
    >> INDT AREC+4, CHANGE+3, CHANGE+5, CHANGE+7
    NEXT NEXT*, NEXT+1!
    >> OLD AREC+4, CHANGE+3*, CHANGE+5*, CHANGE+7*
    PSOAREC CHANGE+2~*, EXP+6*, FIN+1
    PSOCOMNT EXP+1~, EXP+36*, EXP+40
    PSODUZ AREC+1~, AREC+2*, AREC+3*, AREC+10, EXP+1~, EXP+27*, EXP+28*, EXP+29, EXP+30, DAREC+1~
    , DAREC+2*, DAREC+3*, DAREC+10
    PSOEXPDT EXP+1~, EXP+2*, EXP+4, EXP+8*, EXP+13, EXP+36
    PSOFNSH EXP+1~, EXP+24*, EXP+25
    >> PSOINST PSOINST*, PSOINST+1
    PSOKEY EXP+1~, EXP+9*, EXP+28
    PSORXNUM EXP+1~, EXP+5*, EXP+12, EXP+15
    >> PSOSDLK CHANGE+12
    PSOSUS EXP+1~, EXP+2*
    PSOSUSDT EXP+1~, EXP+2*, EXP+4, EXP+7*, EXP+12, EXP+36
    PSOSUSPA AREC+4, AREC+10, AREC+11!, CHANGE+3*
    PSOUSR EXP+1~
    PSOX NEXT, NEXT+1!
    PSOX("IRXN" NEXT*
    PSOX("RX3" NEXT
    REA DEAD*, DEAD+1!
    >> RECORD CHKDEAD+3*, DEAD
    >> RF AREC+6*
    >> RFCNT AREC+6*, AREC+10
    RXREC AREC+5, AREC+6, AREC+9, AREC+10, CHKDEAD+3*, NEXT, CHANGE~, CHANGE+3, CHANGE+4, CHANGE+5
    , CHANGE+7, CHANGE+8, EXP+2, EXP+5, EXP+24, EXP+38, EXP+39, DAREC+5, DAREC+6, DAREC+9
    , DAREC+10
    SCOM DAREC+4*, DAREC+10, DAREC+11!
    SCXX DAREC+6*, DAREC+11!
    >> SFN CHANGE+3, CHANGE+5, FIN+1*
    >> SNODE DAREC+4, DAREC+10
    >> SRXPAR CHANGE+3*
    >> SRXREC CHKDEAD+3*
    SSX DAREC+5*, DAREC+8*, DAREC+9, DAREC+10, DAREC+11!
    SSXX DAREC+5*, DAREC+11!
    SUB AREC+4, AREC+5*, CHANGE~, CHANGE+4*, CHANGE+5, CHANGE+7
    >> SUSDOD CHKDEAD+2*, DEAD, DEAD+1
    SXCNT DAREC+6*, DAREC+10, DAREC+11!
    U EXP+2, EXP+5, EXP+24
    >> VADM(1 CHKDEAD
    >> VADM(6 CHKDEAD+1, CHKDEAD+2
    >> WARN DEAD+1*
    X LISTSUS*, LISTPAT*, CHANGE+5*, CHANGE+7*, EXP+37~, EXP+38*, FIN+1~*!
    XMDUZ EXP+1~
    XMIN EXP+1~, EXP+34
    XMIN("FROM" EXP+32*
    XMSUB EXP+1~, EXP+31*, EXP+34
    XMTEXT EXP+1~, EXP+33*, EXP+34
    XMY EXP+1~, EXP+34
    XMY( EXP+25*, EXP+30*
    >> XOK FIN+1
    Y LISTSUS, PSOINST, PSOINST+1, EXP+37~
    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