Routine: ADEMNG3

Information

ADEMNG3 ; IHS/HQT/MJL - DENTAL FOLLOWUP MGT PT 3 ; [ 03/24/1999 9:04 AM ]

Source file <ADEMNG3.m>

Package	Total	Call Graph
VA Fileman	3	^%DT C^%DTC ^DIC

Package	Total	Caller Graph
IHS Dental System	1	ADEMNG

Name	Comments	DBIA/ICR reference
A1
END
21
PRIO	;I $D(ADEPRI) S ADEPRI=$S(ADEPRI="u":"URGENT",ADEPRI="r":"ROUTINE",1:"HIGH")
CTRL	;------->GET PRIORITY
PROV
ADAT
1
3
2
ACT

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"*FOLLOWUP DATA ENTRY ABORTED",7 Line Location: END+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: PRIO+1
Function Call: WRITE	Prompt: " <Required -- type `^' to abort>",*7 Line Location: PRIO+3
Function Call: WRITE	Prompt: " ROUTINE" Line Location: PRIO+5
Function Call: WRITE	Prompt: " HIGH" Line Location: PRIO+6
Function Call: WRITE	Prompt: " URGENT" Line Location: PRIO+7
Function Call: WRITE	Prompt: !?5,"Enter H for High Priority, R for Routine, U for Urgent" Line Location: PRIO+9
Function Call: WRITE	Prompt: !,"Select PROVIDER: ",$S($D(ADEMPRO):ADEMPRO_"// ",1:"") Line Location: PROV+1
Function Call: WRITE	Prompt: *7," ??" Line Location: PROV+7
Routine Call	DIC Line Location: PROV+5

Name	Line Occurrences (* Changed, ! Killed)
^ADETYP - [#9002003.1]	ACT+1
^DD("DD"	ADAT+1, ACT+3, A1

Name	Field # of Occurrence
>> %DT	ADAT+2, A1
>> %DT("A"	ADAT+2, A1
>> %DT("B"	ADAT+2, A1
>> %DT(0	ADAT+2, A1
ADEDICS	PROV+5!
>> ADEMACT	ACT+1, ACT+2, ACT+3, A1, A1+3*
>> ADEMDAT	ADAT+1, ADAT+2, ADAT+5, ACT+3
>> ADEMPRO	PROV+1, PROV+4, PROV+8*
>> ADENEWM	ACT
>> ADEPRI	PRIO+1, PRIO+2, PRIO+5, PRIO+6, PRIO+7*, ACT+1
>> ADEPROD	PROV+8*
>> ADESUB	ACT+1
DIC	PROV!*, PROV+5!
DIC("S"	PROV*
DIC(0	PROV*
DT	ADAT+2, A1
DTIME	PRIO+1, PROV+1
U	2, 21, 3, PRIO+1, PRIO+4, ADAT, PROV+8, ACT+1
X	2, 21, 3, PRIO+1, PRIO+2, PRIO+3, PRIO+4, PRIO+5, PRIO+6, PRIO+7 , PRIO+8, ADAT, PROV+1, PROV+2, PROV+3, PROV+4*, PROV+6, ACT+3!
X1	ACT+3*!
X2	ACT+3*!
Y	1, 2, 21, 3, END, PRIO+4, PRIO+5, PRIO+6, PRIO+7, ADAT+1 , ADAT+4, ADAT+5, PROV!, PROV+2, PROV+3, PROV+6, PROV+7, PROV+8, PROV+9, ACT+3* , A1, A1+2, A1+3
Y(0	PROV+8