Routine: ASDROUT0

Package	Total	Call Graph
IHS Changes To Scheduling	3	(AIU,EF,HS,MP)^ASDFORM $$SHORT^ASDROUT2 ($$HRN,$$HSTYP)^ASDUT
Scheduling	3	(,END,LIN2)^SDROUT1 (HD,HED,SCCOND)^SDROUT2 DTS^SDUTL
VA Fileman	1	^DIE

Package

Total

Call Graph

IHS Changes To Scheduling

(AIU,EF,HS,MP)^ASDFORM $$SHORT^ASDROUT2 ($$HRN,$$HSTYP)^ASDUT

Scheduling

(,END,LIN2)^SDROUT1 (HD,HED,SCCOND)^SDROUT2 DTS^SDUTL

VA Fileman

^DIE

Entry Points

Name	Comments	DBIA/ICR reference
LOC	; -- SUBRTN to return location
FUT	;EP -- SUBRTN to print future appts
DIV()	; -- returns division ien
AIU	; -- insurance update
HS	; -- health summary
LIN	; -- SUBRTN to print individual appointments
HED2	;EP -- SUBRTN to print future appt heading
CLIN	; -- SUBRTN to print by clinic
PCO	; -- sort by principal clinic
GOT	;EP; -- SUBRTN to set up ^utility sort of patient appts
DATE
COL	; -- ??
SETP(J,K)	; -- called to set date printed
ONE(DFN,FORM)	; -- returns 1 if at least one clinic for pat wants form
PRINT(I,J)	; -- SUBRTN to print a routing slip based on patient ifn J
TM	; -- SUBRTN for printable time
X1	; -- SUBRTN to print extra info
GO1	; -- SUBRTN to initialize sort
CNT	; -- increment # of routing slips printed
CLO	; -- sort by clinic
PRINT2(I,J)	; -- SUBRTN to print rs by clinic
EF	; -- encounter form
NEW1()	; -- returns 1 if patient has new appt on same day
RS2()	; -- returns 1 if want >1 rs
OTHER	; -- calls other forms ; searhc/maw these all get set up in the clinic setup option
GO	;EP; called to print r slips
X	; -- SUBRTN to print extra info
TDO	; -- sort by terminal digit
LIN2	; -- SUBRTN to print future appts line
MP	; -- med profile
CKP1	; -- check if rs should be included in reprint
NMO	; -- sort by name
CKP	; -- check to see if rs should be printed for patient

External References

Name	Field # of Occurrence
AIU^ASDFORM	AIU+1
EF^ASDFORM	EF+1
HS^ASDFORM	HS+9
MP^ASDFORM	MP+1
$$SHORT^ASDROUT2	LIN+4, FUT+1
$$HRN^ASDUT	GOT+4
$$HSTYP^ASDUT	ONE+6, ONE+7
^DIE	SETP+7
^SDROUT1	GOT+5
END^SDROUT1	GO+14, CLIN+7
LIN2^SDROUT1	LIN2+1
HD^SDROUT2	PRINT2+3, PRINT+3
HED^SDROUT2	PRINT2+3, PRINT+3, LIN+14, FUT+3, FUT+6
SCCOND^SDROUT2	LIN+8
DTS^SDUTL	DATE+1, LIN2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT2+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$J(X,8) Line Location: LIN+1
Function Call: WRITE	Prompt: ?11,$P(^SC(L,0),U) Line Location: LIN+3
Function Call: WRITE	Prompt: SDLOC Line Location: LIN+5
Function Call: WRITE	Prompt: !,?4,$P(^(L),U) Line Location: X+1
Function Call: WRITE	Prompt: !,?4," COLLATERAL " Line Location: X+2
Function Call: WRITE	Prompt: !,?4,$P(^(J),U,2) Line Location: X1+1
Function Call: WRITE	Prompt: !,?4," COLLATERAL " Line Location: X1+2
Function Call: WRITE	Prompt: !!,"DATE PRINTED : " Line Location: DATE+1
Function Call: WRITE	Prompt: Y,!,"DATE REPRINTED: ",PRDATE Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"DATE PRINTED: ",PRDATE Line Location: DATE+3
Function Call: WRITE	Prompt: !,"Requested by: ",$P($G(^VA(200,+$G(DUZ),0)),U) Line Location: DATE+4
Function Call: WRITE	Prompt: !,Y,?11,$J(X,8),?20,$P(^SC(L,0),U,1) Line Location: LIN2+3
Function Call: WRITE	Prompt: ?52,SDLOC Line Location: LIN2+3
Function Call: WRITE	Prompt: !?13,$P(^(9999999),U,7) Line Location: LIN2+4
Function Call: WRITE	Prompt: !!,?9,"FUTURE APPOINTMENTS" Line Location: HED2+1
Function Call: WRITE	Prompt: !!," DATE",?11,"TIME",?21,"CLINIC",?55,"LOCATION",! Line Location: HED2+2
Function Call: WRITE	Prompt: @IOF Line Location: EF+1
Function Call: WRITE	Prompt: @IOF Line Location: HS+4
Function Call: WRITE	Prompt: @IOF Line Location: HS+8
Routine Call	DIE Line Location: SETP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("SITE"	LOC+2
^DG(40.8 - [#40.8]	LOC+3, OTHER+2, RS2+1, DIV+1
^DIC(4 - [#4]	LOC+2
^DIC(8 - [#8]	COL+3, X+2, X1+2
^DPT - [#2]	GOT+3, CKP+2, CKP+3, CKP+4, CKP1+1, CKP1+3, LIN+6, LIN+7, X+2, X1+2 , FUT+2, FUT+5, FUT+7, LIN2+2, SETP+4, SETP+5, SETP+6, NEW1+3, NEW1+4, NEW1+5 , ONE+3, ONE+4
^SC - [#44]	GOT+1, CLO+1, PCO+1, PCO+2, COL+1, COL+2, LIN+2, LIN+3, LIN+9, LIN+11 , LIN+12, LIN+13, LOC+1, LOC+3, LIN2+3, LIN2+4, ONE+5
^TMP("SDRS"	TDO+2, CLO+2, CLO+3, PCO+3, PCO+4, NMO+2, GO+5, GO+6, GO+10, GO+11 , GO1+6, CLIN+1, CLIN+2, CLIN+3, CLIN+4, CLIN+5, PRINT2+4, PRINT2+5, PRINT+4, PRINT+5 , X+1, X1+1
^VA(200 - [#200]	DATE+4

Label References

Name	Line Occurrences
$$DIV	OTHER+2, RS2+1
$$NEW1	CKP+4
$$ONE	EF+1, HS+7, HS+9, MP+1, AIU+1
$$RS2	GO+9, GO+10, CLIN+6
AIU	OTHER+6
CKP	GOT+2
CKP1	CKP+1
CLIN	GO+2
CLO	GOT+7
CNT	GO+8, GO+12, CLIN+6
COL	TDO+1, CLO+1, PCO+2, NMO+1
DATE	FUT+1
EF	OTHER+3
FUT	PRINT2+4, PRINT+4
GO1	GO+1
HED2	FUT+4, FUT+6
HS	OTHER+4
LIN	PRINT2+5, PRINT+5
LIN2	FUT+7
LOC	LIN+4, LIN2+3
MP	OTHER+5
NMO	GOT+9
OTHER	GO+9, GO+13, CLIN+6
PCO	GOT+8
PRINT	GO+8, GO+9, GO+12
PRINT2	CLIN+6
SETP	LIN+6
TDO	GOT+6
TM	LIN+1, LIN2+2
X	PRINT+5
X1	PRINT2+5

Name	Field # of Occurrence
^(	X+1, X1+1
^("DIV"	LOC+2
^(0	CLO+1, PCO+2, COL+3, CKP+2, CKP1+1, CKP1+3*, LIN+13, X+2, X1+2, LOC+3 , FUT+7, NEW1+5, ONE+4
^(9999999	LIN2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TM+2*
DA	SETP+1~, SETP+3, SETP+4, SETP+5, SETP+6
DA(1	SETP+3*
DFN	GOT+1*, GOT+3, GOT+4, TDO+2, CLO+2, CLO+3, PCO+3, PCO+4, NMO+2, CKP+2 , CKP+3, CKP+4, CKP1+1, CKP1+3, NEW1+3, NEW1+4, NEW1+5, ONE~, ONE+3, ONE+4 , ONE+6, ONE+7
DIE	SETP+1~, SETP+3*
>> DIV	LOC+3
DR	SETP+1~, SETP+6*
DT	SETP+6
DUZ	DATE+4
DUZ(2	DIV+1
END	SETP+1~, SETP+3*, SETP+4
FORM	ONE~, ONE+5, ONE+6, ONE+7
>> GDATE	GOT+1, TDO+2, CLO+3, PCO+4, NMO+2, COL+1, COL+2, CKP+2, CKP+3, CKP+4 , CKP1+1, CKP1+3, NEW1+2, NEW1+3
I	GO+5, GO+6, GO+8, GO+9, GO+10, GO+11, GO+12, GO1+1, GO1+4, GO1+6 , GO1+8, CLIN+1, CLIN+2, CLIN+3, CLIN+4, CLIN+5, CLIN+6, PRINT2~, PRINT~, PRINT+4 , PRINT+5, X+1, X1+1
IOF	CLIN+7, PRINT2+2, PRINT+2, EF+1
IOSL	LIN+14, FUT+3, FUT+6
J	GO+6, GO+8, GO+9, GO+10, GO+11, GO+12, CLIN+3, CLIN+4, CLIN+5, CLIN+6 , PRINT2~, PRINT2+4, PRINT2+5, PRINT~, PRINT+4, PRINT+5, LIN+6, LIN+7, LIN+12, X+1 , X+2, X1+1, X1+2, FUT+2, FUT+5, FUT+7, LIN2+2, SETP~, SETP+2, SETP+3 , SETP+4, SETP+5, SETP+6, EF+1, HS+7, HS+9, MP+1, AIU+1
K	GO+10, GO+11, PRINT2+1~, PRINT2+3, PRINT2+4, PRINT2+5, PRINT+1~, PRINT+4, PRINT+5, LIN+1 , LIN+6, LIN+7, LIN+11, LIN+12, LIN+13, X+1, SETP~, SETP+2, SETP+3
L	GOT+1, COL+1, COL+2, GO+11, PRINT2+1~, PRINT2+5, PRINT+1~, PRINT+5, LIN+2, LIN+3 , LIN+9, LIN+11, LIN+12, LIN+13, X+1, LOC+1, LOC+3, LIN2+2, LIN2+3, LIN2+4
>> M	FUT+5*, FUT+7, LIN2+2
>> NAME	GOT+3*, NMO+2
>> ORDER	GOT+6, GOT+7, GOT+8, GO+2
>> P	GO+7, CLIN+5
>> POP	GOT+2, CKP+2, CKP+3, CKP+4, CKP1+1, CKP1+2, CKP1+3, CKP1+4
>> PRDATE	DATE+2, DATE+3
>> SC	GOT+1, TDO+2, CLO+1, CLO+2, CLO+3, PCO+1, PCO+3, PCO+4, NMO+2, COL+1 , COL+2, CLIN+5*, EF+1
>> SCN	CLO+1, CLO+2, PCO+2, PCO+3
SCZ	PCO+1~*, PCO+2
>> SDATE	FUT+2, FUT+5, EF+1, ONE+2, ONE+3
>> SDCNT	GO+1, PRINT2+2, PRINT+2, CNT+1
>> SDI1	CKP+3
>> SDIQ	CKP+3
SDLOC	LIN+5!, LOC+1, LOC+2, LOC+3, LIN2+3!
>> SDREP	CKP+1, GO1+1, DATE
>> SDSTART	CKP1+3, GO1+1, GO1+2, GO1+3, GO1+6, GO1+7, GO1+8, DATE+1, NEW1+5
>> SDTD	CLIN+2*, CLIN+3, CLIN+4, CLIN+5, X1+1
>> SDX	CKP+3, CKP1+2, GO1+1, DATE
SDZ	GO+7, GO1+3, GO1+4!, GO1+7, GO1+8!, PRINT2+5*
>> SDZAI	AIU+1
>> SDZCV	GO+9
>> SDZEF	EF+1
>> SDZHS	HS+3
>> SDZMK	GO+8
>> SDZMP	MP+1
>> TDO	GOT+4*, TDO+2, CLO+2, PCO+3
U	GOT+1, GOT+3, CLO+1, PCO+1, PCO+2, COL+1, COL+2, COL+3, CKP+2, CKP+3 , CKP+4, CKP1+1, CKP1+3, LIN+3, LIN+12, LIN+13, X+1, X+2, X1+1, X1+2 , LOC+1, LOC+3, FUT+7, DATE+4, LIN2+3, LIN2+4, SETP+5, SETP+6, OTHER+2, HS+9 , NEW1+4, NEW1+5, ONE+4, ONE+5, ONE+7, RS2+1
V	TDO+2, CLO+2, CLO+3!, PCO+3, PCO+4!, NMO+2!, COL+1, COL+2, COL+3*
X	LIN+1, LIN+11~, LIN+12, LIN+13, LIN2+2, LIN2+3, TM+1, TM+2, NEW1+1~, NEW1+2* , NEW1+3, NEW1+4, NEW1+5, ONE+1~, ONE+2, ONE+3*, ONE+4
>> X1	TM+1*
Y	DATE+1, DATE+2, LIN2+2, LIN2+3, NEW1+1~, NEW1+2, NEW1+3, NEW1+5, NEW1+6, ONE+1~ , ONE+2, ONE+3, ONE+5, ONE+6, ONE+7, ONE+8
Z	ONE+1~, ONE+4*, ONE+5, ONE+6, ONE+7

Customize PDF page

Package: IHS Changes To Scheduling

Routine: ASDROUT0

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: