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

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

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

Local Variables

>>	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*

Customize PDF page

Package: Scheduling

Routine: SDROUT2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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