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

Package: Scheduling

Routine: SDROUT1


Information

SDROUT1 ;MAN/GRR - ROUTING SLIPS ;3/5/92 13:21

Source Information

Source file <SDROUT1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Scheduling 3 (FUT,GO,HED2,TM)^SDROUT0  (HD,HED,SCCOND)^SDROUT2  (DT,DTS)^SDUTL  
VA FileMan 3 ^%DT  NOW^%DTC  ^DIC  
Registration 2 (CLOSE,ZIS)^DGUTQ  $$SITE^VASITE  

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

Package Total Caller Graph
Scheduling 5 SDAMWI1  SDECRT  SDECRT1  SDROUT  SDROUT0  
Automated Information Collection System 1 IBDFN3  

Entry Points

Name Comments DBIA/ICR reference
AO
OSET ;
LIN2
SIN1
SIN
EN
EN1 ; -- main entry point
; required input: as defined in VAR above
; optional input:
; SDPARMS("START") := start date for appts
; ("DO NOT CLOSE") := [1 or 0] if 1 then device will stay open
  • ICR #405
    • Status: Retired
    • Usage: Controlled Subscription
    NOCA
    NOAP
    GOT
    SC
    END
    END1
    REP
    ALL
    DQ
    HELP

    External References

    Name Field # of Occurrence
    ^%DT REP
    NOW^%DTC END1
    CLOSE^DGUTQ END+4
    ZIS^DGUTQ EN+1
    ^DIC SIN
    FUT^SDROUT0 NOCA
    GO^SDROUT0 EN1+12
    HED2^SDROUT0 NOAP
    TM^SDROUT0 LIN2
    HD^SDROUT2 NOCA, NOAP
    HED^SDROUT2 NOCA, NOAP
    SCCOND^SDROUT2 NOCA, NOAP
    DT^SDUTL SIN+1
    DTS^SDUTL LIN2, EN1+6, EN1+10, NOAP+1, GOT
    $$SITE^VASITE END1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,Y,?11,$J(X,8),?20,$S(SDI=3:"LAB",SDI=4:"XRAY",1:"EKG")
    • Line Location: LIN2+0
    Function Call: WRITE
    • Prompt: !,"PATIENT NOT FOUND"
    • Line Location: SIN+0
    Function Call: WRITE
    • Prompt: !!!
    • Line Location: NOCA+0
    Function Call: WRITE
    • Prompt: !,@IOF
    • Line Location: NOCA+0
    Function Call: WRITE
    • Prompt: !!!
    • Line Location: NOAP+0
    Function Call: WRITE
    • Prompt: !!,"DATE PRINTED : ",Y,!,"DATE REPRINTED: ",PRDATE
    • Line Location: NOAP+1
    Function Call: WRITE
    • Prompt: !!,"DATE PRINTED: ",PRDATE
    • Line Location: NOAP+2
    Function Call: WRITE
    • Prompt: !,@IOF
    • Line Location: NOAP+3
    Function Call: WRITE
    • Prompt: !!?2,"***FACILITY: ",$S($D(^DG(40.8,+DIV,0)):$P(^(0),"^",1),1:$P($$SITE^VASITE,U,2)),?48," PRINTED: "
    • Line Location: END1+0
    Function Call: WRITE
    • Prompt: Y
    • Line Location: END1+0
    Function Call: WRITE
    • Prompt: !!!?25,"ROUTING SLIPS PRINTED FOR ",!?32
    • Line Location: END1+1
    Function Call: WRITE
    • Prompt: Y,!!!!?20,"TOTAL NUMBER OF ROUTING SLIPS PRINTED: ",SDCNT
    • Line Location: END1+1
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: ALL+0
    Function Call: WRITE
    • Prompt: !,"ENTER ",$S(ORDER=1:"TERMINAL DIGIT",ORDER=2:"CLINIC NAME",ORDER=3:"PHYSICAL LOCATION",1:"PATIENT NAME")," TO BEGIN REPRINT FROM: "
    • Line Location: ALL+0
    Function Call: WRITE
    • Prompt: !,*7,"MUST BE 4 NUMERICS"
    • Line Location: ALL+2
    Function Call: WRITE
    • Prompt: !!,"THE REPRINT WILL BEGIN PRINTING AT THE ",$S(ORDER=1:"TERMINAL DIGIT",ORDER=2:"CLINIC NAME",ORDER=3:"PHYSICAL LOCATION",1:"PATIENT NAME")," YOU SPECIFY",!
    • Line Location: HELP+0
    Function Call: WRITE
    • Prompt: "TERMINAL DIGITS MUST BE ENTERED IN TERMINAL DIGIT ORDER",!,"I.E., LAST TWO DIGITS OF SSN PRECEDING THE SIXTH AND SEVENTH DIGITS",!
    • Line Location: HELP+1
    Routine Call
    • DIC
    • Line Location:
      • SIN

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" END1, END1+1
    ^DG(40.8 - [#40.8] END1
    ^DIC(8 - [#8] SC, SC+1
    ^DPT - [#2] AO, LIN2, EN1+6, EN1+8, EN1+9, EN1+11, GOT, SC
    ^SC - [#44] SC+1
    ^UTILITY($J OSET+1*, OSET+2*, OSET+3*, EN1+6!, GOT*

    Label References

    Name Line Occurrences
    ALL REP, ALL, ALL+2
    AO GOT
    EN1 DQ
    END SIN, EN+1, NOCA, NOAP+3
    END1 END
    GOT EN1+11
    HELP ALL
    NOAP EN1+8
    NOCA EN1+9, EN1+12
    OSET AO
    SC GOT
    SIN SIN

    Naked Globals

    Name Field # of Occurrence
    ^( EN1+11, SC+1
    ^(0 AO, LIN2, EN1+11, SC, SC+1, END1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % END+2!, END1
    %DT END+2!, REP*
    %DT("A" REP*!
    %I END+2!
    A END+3!
    ADDR END+2!
    ALL END+2!
    APDATE EN1+6*, EN1+10*, GOT*, END+2!
    C END+3!
    DFN AO, OSET+1, OSET+2, OSET+3, SIN+1*, EN1+6, EN1+8, EN1+9, EN1+11, GOT
    , SC, SC+1, END+2!
    DGMT END+2!
    >> DGPGM EN*
    DIC SIN*, END+2!
    DIC(0 SIN*
    DIV END+2!, END1
    DT SIN+1, EN1+6, EN1+7, EN1+10
    DTIME ALL
    G END+2!
    GDATE AO*, AO+1*, OSET+1, OSET+2, OSET+3, EN1+6*, EN1+11*, GOT, SC+1, END+2!
    H END+2!
    HGDT AO*, AO+1!
    I END+2!
    IO EN1+6
    IOF NOCA, NOAP+3
    IOSL LIN2
    J LIN2, EN1+6*, END+2!
    K END+2!
    L END+2!
    LL END+2!
    M LIN2*, LIN2+1*, SC+1*, END+2!
    NAME OSET+1, EN1+6*, GOT*, END+2!
    NDATE EN1+9*, END+2!
    ORD END+2!
    ORDER OSET+1, OSET+2, SIN1*, EN1+6*, END+2!, ALL, ALL+2, HELP
    P EN1+6*, END+2!
    POP EN+1, END+2!, REP*, ALL+1*
    PRDATE EN1+6*, NOAP+1, NOAP+2, END+2!
    SC AO*, AO+1*, OSET+1, OSET+2, OSET+3, GOT*, SC+1, END+3!
    SCN END+3!
    SD END+3!
    SDA EN1+11!, EN1+12, GOT*, END+3!
    SDATE EN1+7*, EN1+9, EN1+11, GOT, END+3!, END1+1
    SDCNT SIN1*, END, END+3!, END1+1
    SDEF END+3!
    SDHSC AO*, AO+1!
    SDI AO*, LIN2*, LIN2+1!, END+3!
    SDI1 END+3!
    SDIQ SIN, EN1+6*, END+3!
    SDM LIN2*, LIN2+1!, END+3!
    >> SDPARMS("DO N OT CLOSE" , END+1, END+4
    >> SDPARMS("START" EN1+7
    SDREP EN1+6*, NOAP+1, END+3!, REP*
    SDSCCOND NOCA, NOAP, END+3!
    SDSP END+3!
    SDSTART EN1+6*, NOAP+1, END+3!, REP+1*, ALL+3*
    SDTD END+3!
    SDVA END+3!
    SDX EN1+6*, NOAP+1, END+3!, REP
    SDX1 END+3!
    SSN END+3!
    SZ END+3!
    TDO OSET+2, END+3!
    U END1
    V GOT, SC*, SC+1*, END+3!
    VAR EN*, END+3!
    X LIN2*, SIN, END+3!, ALL*, ALL+1, ALL+2, ALL+3
    X1 END+3!
    Y LIN2*, SIN, SIN+1, EN1+6*, EN1+10*, NOAP+1*, GOT*, END+3!, END1*, END1+1*
    , REP, REP+1
    ZIP END+3!
    >> ZTREQ DQ*
    ZX END+3!
    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