Routine: ASDPCNA

Information

ASDPCNA ; IHS/ADC/PDW/ENM - # DAYS TIL NEXT APPT ; [ 03/25/1999 11:48 AM ]

Source file <ASDPCNA.m>

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	2	(,C,NOW)^%DTC ^DIR
IHS Changes To Scheduling	1	PRTOPT^ASDVAR

Package	Total	Caller Graph
Scheduling	1	SD IHS PC NEXT APPT

Name	Comments	DBIA/ICR reference
A	; -- driver
NPC()	; -- principle clinic (none=false)
EN
D(X1,X2,X)
CK()	; -- active clinic? (yes=true)
DEV	; -- device selection
Q	; -- cleanup
PC	; -- principle clinic
SD(X1,X2,X)
QUE	; -- queued output
NA()	; -- next appointment
SC	; -- loop principle clinic x-ref
DAY	; -- loop visit days / clinic and print next appt
HD	; -- heading

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"*No Principal Clinic" Line Location: SC+4
Function Call: WRITE	Prompt: ?26,$E($P(^SC(SC,0),U),1,30),?57,"none",! Line Location: DAY+2
Function Call: WRITE	Prompt: ?26,$E($P(^SC(SC,0),U),1,30),?57,Y,?71,$J($$D(SDAY),2)," days",! Line Location: DAY+7
Function Call: WRITE	Prompt: !,$E($P(^SC(PC,0),U),1,25) Line Location: PC+1
Function Call: WRITE	Prompt: @IOF,!!,?2,"Next Available Appointment by Principle Clinic" Line Location: HD+1
Function Call: WRITE	Prompt: ?60,%I(1),"/",%I(2),"/",$E(%I(3),2,3) Line Location: HD+2
Function Call: WRITE	Prompt: " ",$E($P(%,".",2),1,2),":",$E($P(%,".",2),3,4),!! Line Location: HD+3
Function Call: WRITE	Prompt: !,$E($P(^SC(PC,0),U),1,16)," ..cont." Line Location: HD+4
Routine Call	%ZIS Line Location: Q+2
Routine Call	DIR Line Location: DAY+4 DAY+9
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	SC+5, DAY+1, DAY+2, DAY+5, DAY+7, PC+1, HD+4, CK+2, CK+3, NA+2 , NA+4, NPC+1
^SC("AIHSPC"	SC+2, SC+3, HD+4

Name	Field # of Occurrence
^("ST"	CK+2

Name	Field # of Occurrence
%	HD+2~, HD+3
%H	HD+2~
%I	HD+2~
%I(1	HD+2
%I(2	HD+2
%I(3	HD+2
%ZIS	DEV+1*!
DIR	DAY+4~, DAY+9~
DIR(0	DAY+4, DAY+9
DT	CK+2, CK+3, D+1, SD+1
IO	SC+1
IO("Q"	A+1
IOF	HD+1
IOSL	DAY+3, DAY+8
IOST	DAY+3, DAY+8, Q+1
J	ASDPCNA+3~, NA+1~, NA+5*, NA+6
PC	ASDPCNA+3~, SC+2*, SC+3, PC+1, HD+4
POP	ASDPCNA+3~, A+1, SC+1, SC+2, SC+3, SC+4, SC+5, DAY+3, DAY+4, DAY+8 , DAY+9*, Q+1
SC	ASDPCNA+3~, SC+3, SC+5, DAY+1, DAY+2, DAY+5, DAY+7, HD+4, CK+2, CK+3 , NA+2, NA+4, NPC+1
SDAY	ASDPCNA+3~, DAY+1*, DAY+2, DAY+5, DAY+6, DAY+7, NA+2, NA+4
U	DAY+2, DAY+7, PC+1, HD+4, CK+3, NPC+1
X	ASDPCNA+3~, DAY+5, HD+2~, CK+1~, CK+2, CK+3, NA+1~, NA+3*, NA+5, D~ , D+1, SD~, SD+1
X1	D~, SD~, SD+1*
X2	D~, D+1, SD~, SD+1
Y	ASDPCNA+3~, DAY+4, DAY+6, DAY+7, DAY+9, NA+1~, NA+2, NA+4
Z	ASDPCNA+3~, NA+1~, NA+4*, NA+5
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*