Routine: IB20PT86

Package	Total	Call Graph
Registration	4	$$LST^DGMTU (DC,SUF)^DGPTF LE^DGPTTS $$SITE^VASITE
VA FileMan	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
DGPTUTL	;ALB/AS - PTF UTILITY ROUTINE ; 12/13/89@8
D
PM	;sets variables from ^DGPM global
MT	;Determine and store Means Test Indicator
AS
DIE
RTY	; -- set rec type variables ; input: Y := rec type # ; output: DGRTY := rec type # ; DGRTY0 := name of type (in future, may expand to 0th node)
HANG	;
CEN	; -- find current active census ; return ifn and 0th node
FMT	; -- determime PTF record format
FDT	; -- set new format date for testing
UPDT	; -- update PTF record w/PTF and DFN defined
UPDTQ
EXPL	; -- explode string A(input) to DGA(output)
EXPL1	; -- explode string 'L' of form "1-12" ; input and output is 'L'
EXPL1Q

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"===> this patient has a blank Eligibility Code" Line Location: AS+3
Function Call: READ	Variable: DGPTHANG Timeout: 4 Line Location: HANG+1
Routine Call	DIE Line Location: DIE DIE+1

FileNo	Call Tags
^DGPT - [#45]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	MT+4
^DG(45.86 - [#45.86]	CEN+1
^DGP(45.84 - [#45.84]	UPDT+4
^DGPM - [#405]	PM+1
^DGPM("APTF"	PM+1
^DGPT - [#45]	MT+3, MT+5, DIE, DIE+1, UPDT+1, UPDT+8
^DIC(42 - [#42]	MT+4
^DIC(45.1 - [#45.1]	MT+3
^DIC(8 - [#8]	MT+1
^DPT - [#2]	MT+1, AS

Name	Field # of Occurrence
>> %	D*
>> A	EXPL+1
AD	UPDT+4*, UPDTQ!
AGE	UPDTQ!
D0	UPDTQ!
D1	UPDTQ!
DA	DIE!, DIE+1, DIE+2!, UPDTQ!
>> DFN	MT+1, MT+5, AS
DFN1	UPDTQ!
DFN2	UPDTQ!
DG	UPDTQ!
DG1	DIE!, DIE+2!
>> DGA	EXPL+1, EXPL+2
DGADM	MT+2, MT+4, UPDT+4*, UPDTQ!
>> DGBGJ	DIE
>> DGCN	CEN+1*
>> DGCN0	CEN+1*
DGLAST	UPDTQ!
>> DGLN	AS+3
DGP	UPDTQ!
DGPMAN	PM+1*, MT+4, UPDT+7~
DGPMCA	PM+1*, UPDT+7~, UPDT+8
DGPTFE	UPDT+4*, UPDT+6, UPDTQ!
>> DGPTFMT	FMT+3, FMT+4
DGPTHANG	HANG+1*!
>> DGRTY	RTY+5, RTY+6
>> DGRTY0	RTY+5, RTY+6
DGST	UPDT+4*, UPDT+5, UPDTQ!
DGT	MT+5*, DIE!, DIE+2!
DGTY	UPDTQ!
DGX	MT+1, MT+2, MT+3, MT+4, MT+6, AS, AS+1, AS+2, AS+3*, DIE! , DIE+1, DIE+2!, UPDTQ!
DGZ	AS*, DIE!, DIE+2!
DGZ1	MT+5*, MT+6, DIE!, DIE+2!
DGZEC	MT+1*, AS+1, AS+2, DIE!, DIE+2!
DI	UPDTQ!
DIC	UPDTQ!
DIE	DIE!, DIE+1, DIE+2!, UPDTQ!
DIG	UPDTQ!
DIH	UPDTQ!
DIK	UPDTQ!
DIKLM	UPDTQ!
DIS2	UPDTQ!
DISYS	UPDTQ!
DIU	UPDTQ!
DIV	UPDTQ!
DIW	UPDTQ!
DIWL	UPDTQ!
DIWR	UPDTQ!
DIWT	UPDTQ!
DN	UPDTQ!
DOB	UPDTQ!
DQ	UPDTQ!
DR	DIE!, DIE+1, DIE+2!, UPDTQ!
DRG	UPDTQ!
DT	FMT+2
I	EXPL1+1~, EXPL1+5*
I1	UPDTQ!
J	EXPL+1~, EXPL+2*
L	UPDTQ!, EXPL+1~, EXPL+2, EXPL1+2, EXPL1+3, EXPL1+4, EXPL1+5, EXPL1+6*
P1	UPDTQ!
PR	UPDTQ!
>> PTF	PM+1, MT+3, MT+5, DIE, DIE+1, UPDT+1, UPDT+3, UPDT+4, UPDT+5, UPDT+6 , UPDT+8
SEX	UPDTQ!
TDD	UPDTQ!
TY	UPDTQ!
U	MT+1, MT+4, MT+6, AS, AS+1, DIE, UPDT+3, UPDT+4, UPDT+8
X	UPDT+2, UPDT+3, UPDT+4, EXPL+2, EXPL1+1~, EXPL1+5*, EXPL1+6
>> Y	D, D+1, RTY+5, RTY+6, FMT+2, FMT+4, FDT+1*
Z	FMT+2*, FMT+4, FMT+5!
>> ZTQUEUED	UPDT+1, UPDT+3, UPDT+5, UPDT+6