Routine: DGRP14

Information

DGRP14 ;ALB/MRL/EG/GAH - REGISTRATION SCREEN 14/APPOINTMENT INFORMATION ; 10/18/06

Source file <DGRP14.m>

Package	Total	Call Graph
Registration	4	$$FAPCHK^DGENRPD2 ^DGRPP H^DGRPU WW^DGRPV
Scheduling	1	$$SDAPI^SDAMA301
VA FileMan	1	$$FMTE^DILIBF

Name	Comments	DBIA/ICR reference
Q
CANCEL(DFN,APPDATE)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: " Enrollment Clinics: " Line Location: DGRP14+2
Function Call: WRITE	Prompt: !?24 Condition for execution: (79-$X)<$L(X) Line Location: DGRP14+6
Function Call: WRITE	Prompt: X Line Location: DGRP14+6
Function Call: WRITE	Prompt: ! Line Location: DGRP14+8
Function Call: WRITE	Prompt: " Pending Appt's",?18,": " Line Location: DGRP14+8
Function Call: WRITE	Prompt: $$FAPCHK^DGENRPD2 Line Location: DGRP14+13
Function Call: WRITE	Prompt: !?24 Condition for execution: (79-$X)<$L(X) Line Location: DGRP14+20
Function Call: WRITE	Prompt: X Line Location: DGRP14+20
Function Call: WRITE	Prompt: "NO PENDING APPOINTMENTS ON FILE" Line Location: DGRP14+22

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DGRP14+4, CANCEL+3
^SC - [#44]	DGRP14+5
^TMP($J	DGRP14+15, DGRP14+19, Q!

Name	Line Occurrences
Q	DGRP14+13

Name	Field # of Occurrence
^(	DGRP14+4
^(0	DGRP14+5

Name	Field # of Occurrence
APPDATE	CANCEL~, CANCEL+3
APTDT	DGRP14+9~, DGRP14+14, DGRP14+15, DGRP14+19, DGRP14+20, Q!
CLIFN	DGRP14+9~
CLNAM	DGRP14+9~, DGRP14+19*, DGRP14+20, Q!
DFN	DGRP14+4, DGRP14+10, DGRP14+15, DGRP14+19, CANCEL~, CANCEL+3
DGARRAY	DGRP14+9~, DGRP14+11, Q!
DGARRAY("FLDS"	DGRP14+10*
DGARRAY("SORT"	DGRP14+10*
DGARRAY(1	DGRP14+10*
DGARRAY(3	DGRP14+10*
DGARRAY(4	DGRP14+10*
>> DGRPS	DGRP14+2*
>> DGRPW	DGRP14+2*
DT	DGRP14+8, DGRP14+10
I	DGRP14+4*, Q!
I1	DGRP14+3, DGRP14+5, DGRP14+7, DGRP14+8, DGRP14+11, DGRP14+13, DGRP14+22, Q!
I2	DGRP14+8*, Q!
STATUS	CANCEL+1~, CANCEL+5*, CANCEL+6, CANCEL+7
U	DGRP14+4, DGRP14+5, DGRP14+19, CANCEL+1~, CANCEL+2*, CANCEL+5
X	DGRP14+5, DGRP14+6, DGRP14+20, Q!, CANCEL+1~, CANCEL+3*, CANCEL+4, CANCEL+5
Y	Q!
>> Z	DGRP14+2, DGRP14+8