Routine: DGPTUTL

Information

DGPTUTL ;ALB/AS - PTF UTILITY ROUTINE ; 8/14/03 11:35am

Source Information

Source file <DGPTUTL.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Registration	10	$$GETSTAT^DGMSTAPI $$SC^DGMTR $$LST^DGMTU $$PA^DGMTUTL $$GETCUR^DGNTAPI (DC,SUF)^DGPTF $$ANYSC^DGPTSCAN LE^DGPTTS ELIG^VADPT $$SITE^VASITE
VA Fileman	1	^DIE

Caller Graph

Caller Graph Total: 37

Package	Total	Caller Graph
Registration	34	DGPTC DGPTC1 DGPTCO DGPTF DGPTF099 DGPTF1 DGPTF2 DGPTF4 DGPTF41 DGPTF5 DGPTFCR DGPTFDEL DGPTFFB DGPTFM DGPTFM0 DGPTFM1 DGPTFM2 DGPTFM3 DGPTFM4 DGPTFM5 DGPTFM6 DGPTFM7 DGPTFM71 DGPTFMO DGPTFOU DGPTFREL DGPTFTR DGPTFUP DGPTFVC DGPTOM2 DGPTOTRL DGPTR0 DGPTTS3 DGPTUTL1
Integrated Billing	3	IB20PT82 IB20PT85 IBCU6

Entry Points

Name	Comments	DBIA/ICR reference
CKPOSQ	;
CKPOS(ADEL,DEFAULT)	;-- This function will check the admitting eligibility ; and the POS to make sure for Non-Vet eligibilities that a ; 9 - Other or None POS is present.
D
EXPL	; -- explode string A(input) to DGA(output)
DIE
FMT	; -- determime PTF record format
UPDT	; -- update PTF record w/PTF and DFN defined	ICR #422 Status: Active Usage: Private
HANG	;
EXPL1	; -- explode string 'L' of form "1-12" ; input and output is 'L'
EXPL1Q
MT	;Determine and store Means Test Indicator
AS
FDT	; -- set new format date for testing
CEN	; -- find current active census ; return ifn and 0th node
UPDTQ
RTY	; -- set rec type variables ; input: Y := rec type # ; output: DGRTY := rec type # ; DGRTY0 := name of type (in future, may expand to 0th node)
PM	;sets variables from ^DGPM global

External References

Name	Field # of Occurrence
$$GETSTAT^DGMSTAPI	AS+6
$$SC^DGMTR	MT+11, MT+13
$$LST^DGMTU	MT+9
$$PA^DGMTUTL	MT+21
$$GETCUR^DGNTAPI	AS+4
DC^DGPTF	UPDT+8
SUF^DGPTF	UPDT+8
$$ANYSC^DGPTSCAN	MT+11, MT+13
LE^DGPTTS	UPDT+8
^DIE	DIE, DIE+1
ELIG^VADPT	CKPOS+11
$$SITE^VASITE	DIE

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	MT+8
^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+7, MT+9, DIE, DIE+1, UPDT+1, UPDT+8
^DIC(42 - [#42]	MT+8
^DIC(45.1 - [#45.1]	MT+7
^DIC(8 - [#8]	MT+3, CKPOS+14, CKPOS+15
^DIC(8.1 - [#8.1]	CKPOS+15
^DPT - [#2]	MT+15, AS, AS+2

Label References

Name	Line Occurrences
AS	MT+9
CKPOSQ	CKPOS+12, CKPOS+14
DIE	MT+3, MT+5, MT+7, MT+8, MT+11, MT+13, MT+15, MT+19, MT+22, AS , AS+2, AS+4, AS+6, AS+8, AS+10
EXPL1	EXPL+2
EXPL1Q	EXPL1+2, EXPL1+3, EXPL1+4
FDT	FMT+3
PM	UPDT+7
UPDTQ	UPDT+1, UPDT+3, UPDT+5, UPDT+6

Naked Globals

Name	Field # of Occurrence
^(	AS, AS+2
^(0	PM+1, MT+3, MT+7, MT+8, CEN+1, UPDT+2
^(101	MT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	D*
>> A	EXPL+1
AD	UPDT+4*, UPDTQ!
ADEL	CKPOS~, CKPOS+14, CKPOS+15
AGE	UPDTQ!
D0	UPDTQ!
D1	UPDTQ!
DA	DIE!, DIE+1, DIE+2!, UPDTQ!
DEFAULT	CKPOS~, CKPOS+12, CKPOS+13
DFN	MT+9, MT+11, MT+13, MT+15, AS, AS+2, AS+4, AS+6, CKPOS+10~*!
DFN1	UPDTQ!
DFN2	UPDTQ!
DG	UPDTQ!
DG1	DIE!, DIE+2!
>> DGA	EXPL+1, EXPL+2
DGADM	MT+5, MT+8, UPDT+4*, UPDTQ!
>> DGBGJ	DIE
>> DGCN	CEN+1*
>> DGCN0	CEN+1*
DGLAST	UPDTQ!
>> DGLN	AS+12
DGNTARR	AS+4~
DGNTARR("NTR"	AS+4
DGP	UPDTQ!
DGPMAN	PM+1*, MT+8, 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
>> DGSDFN	CKPOS+10
DGST	UPDT+4*, UPDT+5, UPDTQ!
DGT	MT+9*, DIE!, DIE+2!
DGTY	UPDTQ!
DGX	MT+3, MT+5, MT+7, MT+8, MT+11, MT+13, MT+15, MT+17, MT+19, MT+20* , MT+21, MT+22, AS, AS+2, AS+4, AS+6, AS+8, AS+10, AS+12*, DIE! , DIE+1, DIE+2!, UPDTQ!
DGZ	AS, AS+2, AS+4, AS+6, DIE!, DIE+2!
DGZ1	MT+9*, MT+13, MT+15, MT+17, MT+20, MT+21, DIE!, DIE+2!
DGZEC	MT+3*, MT+11, MT+13, MT+15, AS+8, AS+10, 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+7, MT+9, MT+11, MT+13, DIE, DIE+1, UPDT+1, UPDT+3 , UPDT+4, UPDT+5, UPDT+6, UPDT+8
RESULT	CKPOS+8~, CKPOS+12, CKPOS+13, CKPOS+17, CKPOS+19, CKPOSQ+1
SEX	UPDTQ!
TDD	UPDTQ!
TY	UPDTQ!
U	MT+3, MT+8, MT+11, MT+13, MT+15, MT+17, MT+20, MT+21, AS, AS+2 , AS+4, AS+6, AS+8, DIE, UPDT+3, UPDT+4, UPDT+8, CKPOS+15, CKPOS+17, CKPOS+19
>> VAEL(1	CKPOS+12
X	UPDT+2, UPDT+3, UPDT+4, EXPL+2, EXPL1+1~, EXPL1+5, EXPL1+6, CKPOS+8~, CKPOS+15, CKPOS+17 , CKPOS+19
Y	D, D+1, RTY+5, RTY+6, FMT+2, FMT+4, FDT+1, CKPOS+8~, CKPOS+13, CKPOS+19
Z	FMT+2*, FMT+4, FMT+5!
>> ZTQUEUED	UPDT+1, UPDT+3, UPDT+5, UPDT+6

Customize PDF page

Package: Registration

Routine: DGPTUTL

Call Graph Total: 11

Caller Graph Total: 37