Routine: IB20PT86

Information

IB20PT86 ;ALB/CPM - EXPORT ROUTINE 'DGPTUTL' ; 14-FEB-94

Source file <IB20PT86.m>

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

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"===> this patient has a blank Eligibility Code" Line Location: AS+3
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