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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SDROUT2

Package: Scheduling

Routine: SDROUT2


Information

SDROUT2 ;BSN/GRR - PRINT ROUTING SLIPS HEADING ;4/24/01 3:10pm

Source Information

Source file <SDROUT2.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 6 $$FORIEN^DGADDUTL  $$LST^DGMTCOU1  INS^DGRPDB  (,KVAR)^VADATE  (ELIG,KVAR)^VADPT  $$SITE^VASITE  
DRG Grouper 1 $$IMP^ICDEX  
List Manager 1 $$UPPER^VALM1  
Scheduling 1 ($$SEQ,CL)^SDCO21  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Scheduling 2 SDROUT0  SDROUT1  
Inpatient Medications 1 PSGDSP0  
Problem List 1 GMPLEDT1  

Entry Points

Name Comments DBIA/ICR reference
HED
OVR
WCAT
HD
SCCOND ; - text on routing sheet for determining if care for sc condition.
CL(DFN) ;Classification
CLQ
DIS ;rated disabilities
; -- Pharmacy is allowed to call this tag via a special agreement
; with MAS. MAS should notify pharmacy developers of any
; changes that may impact PS* code. (5/91 - MJK/BOK)
  • ICR #112
    • Status: Retired
    • Usage: Private
  • ICR #195
    • Status: Retired
    • Usage: Private
  • ICR #341
    • Status: Active
    • Usage: Private
    DISQ
    DIS1

    External References

    Name Field # of Occurrence
    $$FORIEN^DGADDUTL HED+21
    $$LST^DGMTCOU1 WCAT
    INS^DGRPDB OVR+3
    $$GET1^DIQ HED+21
    $$IMP^ICDEX SCCOND+3
    $$SEQ^SDCO21 CL+3
    CL^SDCO21 CL+2
    ^VADATE WCAT+2
    KVAR^VADATE WCAT+2
    ELIG^VADPT DIS+5
    KVAR^VADPT OVR+3, DISQ
    $$UPPER^VALM1 HED+21
    $$SITE^VASITE HED+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,@IOF,"*** FACILITY: ",$S($D(^DG(40.8,+DIV,0)):$P(^(0),"^"),1:$P($$SITE^VASITE,U,2))
    • Line Location: HED+2
    Function Call: WRITE
    • Prompt: !,"*** CLINIC: ",$P(^SC(+SC,0),"^")
    • Line Location: HED+3
    Function Call: WRITE
    • Prompt: !,"*** PHYSICAL LOCATION: "_I
    • Line Location: HED+4
    Function Call: WRITE
    • Prompt: ?45,"*** EXPOSURE SURVEY ***",!
    • Line Location: HED+6
    Function Call: WRITE
    • Prompt: ?45,"*** UPDATE SURVEY DATA ***"
    • Line Location: HED+7
    Function Call: WRITE
    • Prompt: ?45,"*** UPDATE SURVEY DATA ***"
    • Line Location: HED+8
    Function Call: WRITE
    • Prompt: !,"PAGE ",P,?10,"OUTPATIENT ROUTING SLIP"
    • Line Location: HED+10
    Function Call: WRITE
    • Prompt: ?45,"*** ",$S($T:$P(^DIC(8,+^DPT(J,.36),0),"^",1),1:"ELIG NOT SPECIFIED")," ***"
    • Line Location: HED+12
    Function Call: WRITE
    • Prompt: !!,NAME,?54,"APPOINTMENT DATE"
    • Line Location: HED+14
    Function Call: WRITE
    • Prompt: !,$E(SSN,1,3),"-",$E(SSN,4,5),"-",$E(SSN,6,10),?58,APDATE
    • Line Location: HED+15
    Function Call: WRITE
    • Prompt: !!,"*** INPATIENT ***",!,"LOCATED ON WARD: ",$P(^DPT(J,.1),"^",1),!
    • Line Location: HED+16
    Function Call: WRITE
    • Prompt: !,$P(ADDR,U,4)_", "_$P($G(^DIC(5,+$P(ADDR,U,5),0)),U)_" "_SDZIP
    • Line Location: HED+24
    Function Call: WRITE
    • Prompt: !,$P(ADDR,U,9)_" "_$P(ADDR,U,4)_" "_$P(ADDR,U,8)
    • Line Location: HED+26
    Function Call: WRITE
    • Prompt: !!,"PSA: UNKNOWN"
    • Line Location: HED+29
    Function Call: WRITE
    • Prompt: !
    • Line Location: OVR+0
    Function Call: WRITE
    • Prompt: !
    • Line Location: OVR+4
    Function Call: WRITE
    • Prompt: !?27,SDZ,!?27,$S($P(DGMT,U,5)=1:SDVA,1:"PHARMACY CO-PAY: "_SDVA)
    • Line Location: WCAT+3
    Function Call: WRITE
    • Prompt: !?27,"LAST TEST: ",VADATE("E")
    • Line Location: WCAT+3
    Function Call: WRITE
    • Prompt: !?27,SDZ
    • Line Location: WCAT+4
    Function Call: WRITE
    • Prompt: !,?11,"**CURRENT APPOINTMENTS**",!!,?3,"TIME",?11,"CLINIC",?45,"LOCATION",!
    • Line Location: HD+0
    Function Call: WRITE
    • Prompt: !!?11,"List diagnosis "_$S(SDATE<ICD10IMPDT:"(ICD9)",1:"(ICD10)")_" ________________________________________________"
    • Line Location: SCCOND+4
    Function Call: WRITE
    • Prompt: !!?11,"List any procedures performed during this clinic visit ________",!!?11,"_______________________________________________________________"
    • Line Location: SCCOND+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: SCCOND+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: CL+4
    Function Call: WRITE
    • Prompt: !," Disabilities: "
    • Line Location: DIS+7
    Function Call: WRITE
    • Prompt: "NOT A VETERAN"
    • Line Location: DIS+7
    Function Call: WRITE
    • Prompt: !,I2,?48,$J($P(I1,"^",2),4),"% - ",$S($P(I1,"^",3):"SERVICE CONNECTED",1:"")
    • Line Location: DIS1+0

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(391 - [#391] DIS+7
    ^DG(40.8 - [#40.8] HED+2
    ^DIC(31 - [#31] DIS1
    ^DIC(5 - [#5] HED+24
    ^DIC(8 - [#8] HED+12
    ^DPT - [#2] HED+5, HED+11, HED+12, HED+13, HED+16, HED+17, DIS+8, DIS+9, DIS1
    ^SC - [#44] HED+3
    ^SD(409.41 - [#409.41] CL+6

    Label References

    Name Line Occurrences
    CL SCCOND+6
    CLQ CL+2
    DIS OVR+1
    DIS1 DIS+8
    DISQ DIS+7
    OVR HED+16
    WCAT HED+9

    Naked Globals

    Name Field # of Occurrence
    ^( HED+5
    ^(0 HED+2, DIS+7, DIS1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ADDR HED~, HED+17*, HED+18, HED+21, HED+23, HED+24, HED+26
    >> APDATE HED+15
    CNTRY HED+20~, HED+21*, HED+27
    DFN OVR+1*, OVR+3, CL~, CL+2, DIS+8, DIS+9, DIS1
    DGINSDT OVR+2~*
    DGKVAR DIS+5*, DISQ!
    DGMT WCAT~*, WCAT+1, WCAT+2, WCAT+3
    >> DIV HED+2
    DT CL+2
    FILE HED+20~, HED+21*
    FOREIGN HED+20~, HED+21*, HED+22
    FORIEN HED+20~, HED+21*
    I HED+4, OVR+1~, DIS+8*, DIS1
    I1 DISQ!, DIS1*
    I2 DISQ!, DIS1*
    I3 DIS+8*, DIS+9, DISQ!, DIS1*
    ICD10IMPDT HED+1~, SCCOND+3~*, SCCOND+4
    IOF HED+2
    >> J HED+5, HED+11, HED+12, HED+13, HED+16, HED+17, OVR+1, OVR+3*, WCAT, SCCOND+6
    LL HED~, HED+18*
    NAME HED~, HED+13*, HED+14
    >> ORDER HED+3, HED+4
    >> P HED+2*, HED+9, HED+10
    >> SC HED+3
    >> SDATE OVR+2, SCCOND+4
    SDCLY CL+1~, CL+2
    SDCLY( CL+5
    SDCTI CL+1~, CL+5*, CL+6
    SDCTIS CL+1~, CL+3*, CL+5
    SDCTS CL+1~, CL+5*
    >> SDSCCOND SCCOND+1*
    SDVA WCAT*, WCAT+1*, WCAT+3, WCAT+4!
    SDX HED~
    >> SDX1 HED+5*
    SDZ HED+9*!, WCAT+3, WCAT+4
    SDZIP HED+23~*, HED+24
    SSN HED~, HED+13*, HED+15
    U HED+2, HED+21, HED+23, HED+24, HED+26, WCAT, WCAT+1, WCAT+2, WCAT+3
    VADAT WCAT+4!
    VADAT("W" WCAT+2*
    VADATE WCAT+4!
    VADATE("E" WCAT+3
    >> VAEL DIS+5
    >> VAEL(3 DIS+6
    >> VAEL(4 DIS+7
    >> VAEL(6 DIS+7
    Y HED~, HED+13*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All