Routine: SDAMWI

Information

SDAMWI ;ALB/MJK - Unscheduled Appointments ; 5/3/05 5:50pm

Source file <SDAMWI.m>

Package	Total	Call Graph
Scheduling	5	$$MAKE^SDAMWI1 DOW^SDM0 WL^SDM1 ^SDM4 $$CLNCK^SDUTL2
Registration	3	$$SUB^DGSAUTL (2,KVAR)^VADPT ($$FDATE,$$FTIME,$$UPPER,PAUSE)^VALM1
VA Fileman	3	^%DT ^DIC $$GET1^DIQ
IHS Changes To ADT	2	PAUSE^BDGF $$LASTREG^BDGF2
IHS Changes To Scheduling	1	$$PC^BSDU

Package	Total	Caller Graph
Scheduling	2	SDAM2 SDCI

Name	Comments	DBIA/ICR reference
CLQ
CANCHKQ
IHS1	;IHS/ANMC/LJF 9/10/2001 added line label
TIME(DFN,SC,SDT)	; -- get appt date/time ; input: DFN ; SC := clinic# ; output: SDT := date/time of wi appt ; returned: success or fail := 1/0
AVAIL(SC,SDT)	; -- does clinic meet ; input: SC := clinic# ; SDT := date/time of wi appt ; returned: success or fail := 1/0
TIMEQ
ENQ
CANCHK(SC,SDT)	; -- is clinic cancelled for date ; input: SC := clinic# ; SDT := date/time of wi appt ; returned: success or fail := 1/0
EN(DFN,SC)	; -- main entry point ; input: DFN ; SC := clinic# ; returned: success or fail := 1/0
PT(SC)	; ; input: SC := clinic# ; returned: success or fail := 1/0
AVAILQ
ASK
CL(DFN)	; -- make wi appt ; input: DFN ; returned: success or fail := 1/0
PTQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,*7,"o Patient has died!" Line Location: EN+5
Function Call: WRITE	Prompt: !!?5,*7,"o Clinic is inactive from ",$$FTIME^VALM1(SDIN)," to "_SDRE1 Line Location: EN+9
Function Call: WRITE	Prompt: !!?5,*7,"o Clinic is inactive as of ",$$FTIME^VALM1(SDIN) Line Location: EN+10
Function Call: WRITE	Prompt: !,?5,*7,"o Clinic MUST be corrected before continuing." Line Location: EN+12
Function Call: READ	Prompt: "APPOINTMENT TIME: NOW// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !?5,*7,"o Patient already has an appt on ",$$FTIME^VALM1(SDT) Line Location: ASK+9
Function Call: WRITE	Prompt: !?5,*7,"o This date's clinic has been cancelled!" Line Location: CANCHK+7
Function Call: WRITE	Prompt: !?5,*7,"o Warning: Part of this day's clinic has been cancelled!" Line Location: CANCHK+8
Function Call: WRITE	Prompt: !?5,*7,"o Clinic does not meet on this date!" Line Location: AVAIL+7
Function Call: WRITE	Prompt: !?5,"Last Registration Update: ",$$LASTREG^BDGF2(DFN) Line Location: CL+4
Function Call: WRITE	Prompt: !,"Access to ",$$GET1^DIQ(44,+Y,.01)," is prohibited!",!,"Only users with a special code may access this clinic." Line Location: IHS1+7
Routine Call	DIC Line Location: IHS1+3 PT+5

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ASK+9
^SC - [#44]	EN+6, EN+8, CANCHK+6, CANCHK+7, CANCHK+8, AVAIL+6, IHS1+7

Name	Field # of Occurrence
%DT	TIME+5~, ASK+7*
%DT(0	ASK+7*
COLLAT	EN+4~
DFN	EN~, EN+13, EN+19, TIME~, ASK+9, CL~, CL+4, IHS1+9, PT+7*
DIC	IHS1+1, IHS1+3!, PT+4, PT+5!
DIC("A"	IHS1+1, PT+4
DIC("S"	IHS1+1, IHS1+2
DIC(0	IHS1+1, PT+4
DT	EN+9, EN+10, ASK+7, AVAIL+6
DTIME	ASK
DUZ	IHS1+7
ORDER	EN+4~
SC	EN~, EN+6, EN+8, EN+11, EN+13, TIME~, ASK+8, CANCHK~, CANCHK+6, CANCHK+7 , CANCHK+8, CANCHK+9, AVAIL~, AVAIL+6, IHS1+9*, PT~, PT+7
SDALLE	EN+4~
SDAPTYP	EN+4~, EN+18
SDATD	EN+4~
SDCL	EN+4~, EN+6*, EN+19
SDD	EN+4~, EN+6*
SDDA	EN+4~
SDDECOD	EN+4~
SDEC	EN+4~
SDEMP	EN+4~
SDIN	EN+4~, EN+7!, EN+8*, EN+9, EN+10
SDOEL	EN+4~
SDPL	EN+4~
SDRE	EN+4~, EN+7!, EN+8*, EN+9, EN+10
SDRE1	EN+4~, EN+7!, EN+8*, EN+9
SDREP	EN+4~
SDRES	EN+11~*, EN+12
SDRT	EN+4~
SDSC	EN+4~
SDSL	EN+4~, EN+6*
SDSTART	EN+4~
SDT	EN+13, EN+14, EN+19, TIME~, ASK+7*, ASK+8, ASK+9, CANCHK~, CANCHK+6, CANCHK+7 , CANCHK+8, CANCHK+9, AVAIL~, AVAIL+5
SDTTM	EN+4~
SDX	EN+4~
SDXSCAT	EN+18*, EN+20!
SDY	EN+4~, EN+5, EN+9, EN+10, EN+12, EN+13, EN+14, EN+19, ENQ+1, TIME+5~ , ASK+1, ASK+10, TIMEQ, CANCHK+4~, CANCHK+5, CANCHK+7, CANCHK+9, CANCHKQ, AVAIL+4~, AVAIL+6* , AVAIL+7, AVAILQ, IHS1+4, IHS1+9, CLQ, PT+6, PT+7*, PTQ
U	EN+8, IHS1+7
>> VADM(6	EN+5
>> X	EN+14, ASK, ASK+1, ASK+2, ASK+5, ASK+6, AVAIL+5
>> Y	EN+8, EN+14, ASK+7, AVAIL+6, IHS1+4, IHS1+7, IHS1+9, PT+6, PT+7
>> Z	AVAIL+6*