Routine: DGRUUTL

Information

DGRUUTL ;ALB/GRR - RAI/MDS UTILITY ROUTINE ; 10/11/07 8:42am

Source Information

Source file <DGRUUTL.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Health Level Seven	2	$$UPPER^HLFNC GENERATE^HLMA
Registration	2	EN^DGRUGMFU IN5^VADPT
VA Fileman	2	^DIC $$GET1^DIQ
Integrated Billing	1	$$HICN^IBCNSU1

Caller Graph

Caller Graph Total: 19

Package	Total	Caller Graph
Registration	19	DGRUADT DGRUADT0 DGRUADT2 DGRUDD01 DGRUGA01 DGRUGA02 DGRUGA03 DGRUGA08 DGRUGA11 DGRUGA12 DGRUGA13 DGRUGA21 DGRUGA22 DGRUGBJ DGRUGDS DGRUGSEE VAFHLIN2 VAFHLNK1 VAFHLPV2

Entry Points

Name	Comments	DBIA/ICR reference
MEDICAID(DFN)	;Will retrieve the patient's Medicaid Number and return it or a null
MEDICARE(DFN)	;Will retrieve the patient's Medicare Number and return it or return null
RELATE(X)	;CONVERT FREE TEXT RELATIONSHIP TO RELATIONSHIP FILE ENTRY NUMBER AND NAME
CHKWARD(X)	;RETURNS 1 IF RAI/MDS WARD AND 0 IF NOT
DOCID(X)	;Insure provider ID not greater than 6 digits
ATTDOC(X)	;get attending physician - p-762
SENDMFU()	;Function to determine if master file updates should be sent
NAMQ
GETAMOV(DFN)	;GET LAST ADMISSION MOVEMENT FOR A PATIENT
HLNAME(DGNAME)	;Piece apart name into LAST NAME_"^"_FIRST NAME_"^"_MIDDLE NAME_"^"_SUFFIX
SUF(X)	;COMPARES PASSED DATA TO LIST OF SUFFIX'S AND RETURNS A FOUND SUFFIX OR NULL
ENC(DGRSEG,DGRMNMT,DGRFLN,DGRFLNM,DGROLDN,DGRNDATA,DGRSIED,DGCIEN)	;CREATE AND SEND MASTER FILE UPDATE HL7 MESSAGE
EXITDOC

External References

Name	Field # of Occurrence
EN^DGRUGMFU	ENC+12
^DIC	RELATE+4
$$GET1^DIQ	CHKWARD+3, MEDICAID+5
$$UPPER^HLFNC	RELATE+2
GENERATE^HLMA	ENC+15
$$HICN^IBCNSU1	MEDICARE+5
IN5^VADPT	ATTDOC+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DG(408.11 - [#408.11]	Classic Fileman Calls
^DIC(42 - [#42]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	SENDMFU+1
^DGPM("ATID1"	GETAMOV+3, GETAMOV+4
^TMP($J	ENC+13, ENC+14

Label References

Name	Line Occurrences
$$HLNAME	ATTDOC+3
$$SUF	HLNAME+7
EXITDOC	DOCID+4
NAMQ	HLNAME+9, HLNAME+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	MEDICAID+5~, MEDICAID+6, MEDICAID+7
ATTNAME	ATTDOC+1~, ATTDOC+3, ATTDOC+4
ATTPTR	ATTDOC+1~, ATTDOC+2, ATTDOC+4
DFN	MEDICARE~, MEDICARE+4, MEDICARE+5, MEDICAID~, MEDICAID+5, GETAMOV~, GETAMOV+3, GETAMOV+4
DGCIEN	ENC~, ENC+12
DGDOC	DOCID+2~, DOCID+3, DOCID+5, DOCID+6
>> DGFN	HLNAME+2, HLNAME+9, HLNAME+11, HLNAME+12, HLNAME+13, HLNAME+14, NAMQ
>> DGLN	HLNAME+2, HLNAME+9, HLNAME+11, HLNAME+12, HLNAME+13, HLNAME+14, NAMQ
>> DGMN	HLNAME+2, HLNAME+9, HLNAME+11, HLNAME+13, NAMQ
>> DGN	HLNAME+5*, HLNAME+6
DGNAME	HLNAME~, HLNAME+3, HLNAME+4, HLNAME+5
DGNIEN	DOCID+2~, DOCID+5*
DGRFLN	ENC~, ENC+11, ENC+12
DGRFLNM	ENC~, ENC+11, ENC+12
DGRMNMT	ENC~, ENC+11, ENC+12
DGRNDATA	ENC~, ENC+11, ENC+12
DGROLDN	ENC~, ENC+12
DGRSEG	ENC~, ENC+11, ENC+12
DGRSIED	ENC~, ENC+11
>> DGRUET	ENC+15
DGSUB	MEDICARE+3~, MEDICARE+5*, MEDICARE+6, MEDICARE+7
>> DGSUF	HLNAME+2, HLNAME+7, HLNAME+8, NAMQ
DIC	RELATE+1~, RELATE+4*
DIC(0	RELATE+4*
>> HL("ECH"	DOCID+3, DOCID+5, ATTDOC+4
>> HL("FS"	DOCID+3, DOCID+6
>> HLA("HLS"	ENC+14*
I	GETAMOV+2~, GETAMOV+3, GETAMOV+4
IEN	DOCID+2~, DOCID+3*, DOCID+4, DOCID+5
J	GETAMOV+2~, GETAMOV+4, GETAMOV+5
>> P	HLNAME+3, HLNAME+6, HLNAME+7, HLNAME+8*, HLNAME+9, HLNAME+10
>> P1	HLNAME+2, HLNAME+5, HLNAME+9, HLNAME+11, HLNAME+12, HLNAME+13, HLNAME+14
>> P2	HLNAME+2, HLNAME+5, HLNAME+9, HLNAME+11, HLNAME+12, HLNAME+13, HLNAME+14
>> P3	HLNAME+2*, HLNAME+9, HLNAME+11, HLNAME+12, HLNAME+13
>> P4	HLNAME+2*, HLNAME+9
VAIP	ATTDOC+1~!
VAIP(18	ATTDOC+1
X	SUF~, SUF+1, SUF+2, CHKWARD~, CHKWARD+3, RELATE~, RELATE+2, RELATE+3, DOCID~, DOCID+1 , DOCID+3, DOCID+6*, EXITDOC, ATTDOC~
Y	RELATE+1~, RELATE+5*, RELATE+6
>> Z	HLNAME+3, HLNAME+6

Customize PDF page

Package: Registration

Routine: DGRUUTL

Call Graph Total: 7

Caller Graph Total: 19