Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

    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
    Info |  Source |  Entry Points |  Interaction Calls