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 Total: 9

Package Total Call Graph
Registration 7 $$FORIEN^DGADDUTL  $$LST^DGMTCOU1  INS^DGRPDB  (,KVAR)^VADATE  (ELIG,KVAR)^VADPT  $$UPPER^VALM1  $$SITE^VASITE  
Scheduling 1 ($$SEQ,CL)^SDCO21  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Outpatient Pharmacy 2 PSOCPB  PSOMLLD2  
Scheduling 2 SDROUT0  SDROUT1  
IHS Changes To Scheduling 1 ASDROUT0  
Problem List 1 GMPLEDT1  

Entry Points

Name Comments DBIA/ICR reference
OVR
SCCOND ; - text on routing sheet for determining if care for sc condition.
DIS1
DISQ
WCAT
CLQ
HED
CL(DFN) ;Classification
HD
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

    External References

    Name Field # of Occurrence
    $$FORIEN^DGADDUTL HED+20
    $$LST^DGMTCOU1 WCAT
    INS^DGRPDB OVR+3
    $$GET1^DIQ HED+20
    $$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+20
    $$SITE^VASITE HED+1

    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+1
    Function Call: WRITE
    • Prompt: !,"*** CLINIC: ",$P(^SC(+SC,0),"^")
    • Line Location: HED+2
    Function Call: WRITE
    • Prompt: !,"*** PHYSICAL LOCATION: "_I
    • Line Location: HED+3
    Function Call: WRITE
    • Prompt: ?45,"*** EXPOSURE SURVEY ***",!
    • Line Location: HED+5
    Function Call: WRITE
    • Prompt: ?45,"*** UPDATE SURVEY DATA ***"
    • Line Location: HED+6
    Function Call: WRITE
    • Prompt: ?45,"*** UPDATE SURVEY DATA ***"
    • Line Location: HED+7
    Function Call: WRITE
    • Prompt: !,"PAGE ",P,?10,"OUTPATIENT ROUTING SLIP"
    • Line Location: HED+9
    Function Call: WRITE
    • Prompt: ?45,"*** ",$S($T:$P(^DIC(8,+^DPT(J,.36),0),"^",1),1:"ELIG NOT SPECIFIED")," ***"
    • Line Location: HED+11
    Function Call: WRITE
    • Prompt: !!,NAME,?54,"APPOINTMENT DATE"
    • Line Location: HED+13
    Function Call: WRITE
    • Prompt: !,$E(SSN,1,3),"-",$E(SSN,4,5),"-",$E(SSN,6,10),?58,APDATE
    • Line Location: HED+14
    Function Call: WRITE
    • Prompt: !!,"*** INPATIENT ***",!,"LOCATED ON WARD: ",$P(^DPT(J,.1),"^",1),!
    • Line Location: HED+15
    Function Call: WRITE
    • Prompt: !,$P(ADDR,U,4)_", "_$P($G(^DIC(5,+$P(ADDR,U,5),0)),U)_" "_SDZIP
    • Line Location: HED+23
    Function Call: WRITE
    • Prompt: !,$P(ADDR,U,9)_" "_$P(ADDR,U,4)_" "_$P(ADDR,U,8)
    • Line Location: HED+25
    Function Call: WRITE
    • Prompt: !!,"PSA: UNKNOWN"
    • Line Location: HED+28
    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 ________________________________________________"
    • Line Location: SCCOND+2
    Function Call: WRITE
    • Prompt: !!?11,"List any procedures performed during this clinic visit ________",!!?11,"_______________________________________________________________"
    • Line Location: SCCOND+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: SCCOND+5
    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+1
    ^DIC(31 - [#31] DIS1
    ^DIC(5 - [#5] HED+23
    ^DIC(8 - [#8] HED+11
    ^DPT - [#2] HED+4, HED+10, HED+11, HED+12, HED+15, HED+16, DIS+8, DIS+9, DIS1
    ^SC - [#44] HED+2
    ^SD(409.41 - [#409.41] CL+6

    Label References

    Name Line Occurrences
    CL SCCOND+4
    CLQ CL+2
    DIS OVR+1
    DIS1 DIS+8
    DISQ DIS+7
    OVR HED+15
    WCAT HED+8

    Naked Globals

    Name Field # of Occurrence
    ^( HED+4
    ^(0 HED+1, DIS+7, DIS1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ADDR HED~, HED+16*, HED+17, HED+20, HED+22, HED+23, HED+25
    >> APDATE HED+14
    CNTRY HED+19~, HED+20*, HED+26
    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+1
    DT CL+2
    FILE HED+19~, HED+20*
    FOREIGN HED+19~, HED+20*, HED+21
    FORIEN HED+19~, HED+20*
    I HED+3, OVR+1~, DIS+8*, DIS1
    I1 DISQ!, DIS1*
    I2 DISQ!, DIS1*
    I3 DIS+8*, DIS+9, DISQ!, DIS1*
    IOF HED+1
    >> J HED+4, HED+10, HED+11, HED+12, HED+15, HED+16, OVR+1, OVR+3*, WCAT, SCCOND+4
    LL HED~, HED+17*
    NAME HED~, HED+12*, HED+13
    >> ORDER HED+2, HED+3
    >> P HED+1*, HED+8, HED+9
    >> SC HED+2
    >> SDATE OVR+2
    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+4*
    SDZ HED+8*!, WCAT+3, WCAT+4
    SDZIP HED+22~*, HED+23
    SSN HED~, HED+12*, HED+14
    U HED+1, HED+20, HED+22, HED+23, HED+25, 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+12*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All