Routine: DGPTF5

Information

DGPTF5 ;ALB/MTC - PTF ENTRY/EDIT-4 ; 07 JUN 91

Source file <DGPTF5.m>

Package	Total	Call Graph
DRG Grouper	2	$$ICDDX^ICDCODE $$GETDATE^ICDGTDRG
Registration	2	CLS^DGPTC1 RTY^DGPTUTL
VA Fileman	2	^DIC YN^DICN
Lexicon Utility	1	CONFIG^LEXSET

Package	Total	Caller Graph
Registration	10	DGPTDRG DGPTF4 DGPTFIC DGPTX51 DGPTX52 DGPTX7 DGPTX73 DGPTX74 DGX5F1 DGX5F4

Name	Line Occurrences
Function Call: WRITE	Prompt: @DGVI,Z,@DGVO Line Location: Z+0
Function Call: WRITE	Prompt: " " Line Location: Z+1
Function Call: WRITE	Prompt: Z Line Location: Z1+1
Function Call: WRITE	Prompt: !!,*7,"Record #",PTF," MUST be closed for CENSUS first.",! Line Location: CEN+1
Function Call: WRITE	Prompt: !,"Would you like to close this record for CENSUS" Line Location: ASK+0
Function Call: WRITE	Prompt: !?5,"Answer 'YES' to close record for CENSUS also",!?5," or 'NO' to not close this record at all." Line Location: ASK+1
Routine Call	DIC Line Location: ICDEN+10 ICDEN1+5

Name	Field # of Occurrence
>> %	ASK*, ASK+1, ASK+2
>> DA	ICDEN+4, ICDEN+6, ICDEN+7
>> DA(1	ICDEN+4
>> DGDAT	ICDEN1+2, ICDEN1+8
>> DGN	Z
>> DGPTF	ICDEN+4
DGRTY	ASK+3!
DGRTY0	ASK+3!
>> DGVI	Z
>> DGVO	Z
DIC	ICDEN+2~, ICDEN+8, ICDEN1+1~, ICDEN1+3
DIC("A"	ICDEN+9, ICDEN1+4
DIC(0	ICDEN+8, ICDEN1+3
>> I	Z1*
IOST	Z
>> PROMPT	ICDEN1+4
>> PTF	CEN+1, ICDEN+6
X	ICDEN+1, ICDEN+2, ICDEN+8, ICDEN+11, ICDEN+12, ICDEN1+1!, ICDEN1+3, ICDEN1+6, ICDEN1+7*, ICDEN1+8
Y	ASK+2, ICDEN+2~, ICDEN+11, ICDEN1+1!, ICDEN1+6, ICDEN1+8
Y(1	ICDEN+12, ICDEN1+7
>> Z	Z, Z1, Z1+1
>> Z1	Z1