Routine: DGPTR0

Information

DGPTR0 ;MJK/JS/ADL - PTF TRANSMISSION ; 9/26/05 6:44pm

Source Information

Source file <DGPTR0.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Registration	7	$$CVEDT^DGCV UP^DGHELP $$GETSTAT^DGMSTAPI (HEAD,START)^DGPTR1 (501,FILL)^DGPTR2 $$CKPOS^DGPTUTL $$EMGRES^DGUTL
DRG Grouper	2	$$ICDOP^ICDCODE $$GETDATE^ICDGTDRG
VA Fileman	2	$$GET1^DIQ ^DIR
Scheduling	1	$$SHAD^SDCO22

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPTFTR

Entry Points

External References

Name	Field # of Occurrence
$$CVEDT^DGCV	101+41
UP^DGHELP	DGNAM+1
$$GETSTAT^DGMSTAPI	101+39
HEAD^DGPTR1	DGPTR0+10
START^DGPTR1	SAVE
501^DGPTR2	501
FILL^DGPTR2	101+49, P401+5, SUR+16
$$CKPOS^DGPTUTL	101+20
$$EMGRES^DGUTL	101+46
$$GET1^DIQ	101+48
^DIR	SUR+4
$$ICDOP^ICDCODE	P401+4, SUR+8
$$GETDATE^ICDGTDRG	P401+4, SUR+8
$$SHAD^SDCO22	101+44

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^HL(779.004 - [#779.004]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	101+18
^DGPM("APTF"	101+18
^DGPT - [#45]	101+20, P401+1, P401+2, 401+1, SUR, SUR+13
^DIC(11 - [#11]	101+13
^DIC(21 - [#21]	101+17
^DIC(45.1 - [#45.1]	101+5
^DIC(45.3 - [#45.3]	SUR+5
^DIC(45.88 - [#45.88]	SUR+13
^DIC(5 - [#5]	101+28, 101+30
^TMP("AEDIT"	SAVE+1*
^UTILITY($J	401+1!, SUR+1*, SUR+2
^XMB(3.9 - [#3.9]	SAVE*

Label References

Name	Line Occurrences
$$PTFNMFT	101+3
401	P401+1
501	401+1, SUR
DGNAM	PTFNMFT+11
ENTER	DGPTR0+9, 101+7, 101+21, 101+32, 101+48, SUR+6
ENTER0	101+28, 101+30, 101+37
SAVE	101+49, P401+5, SUR+16
SUR	SUR, SUR+1, SUR+16

Naked Globals

Name	Field # of Occurrence
^(	SUR, SUR+1, SUR+5
^("401P"	P401+1, P401+2
^("ODS"	101+18
^(0	101+5, 101+13, 101+17, 101+28, 101+30, SUR+1, SUR+5
^(300	SUR

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DG0	DGPTR0+7, DGPTR0+9, 101+9, 101+34, 101+39, 101+41, 101+44, 101+46
DG10	DGPTR0+5, 101+3, 101+13, 101+15, PTFNMFT~, PTFNMFT+11
>> DG101	101+5, 101+7, 101+9, 101+36, 101+37
>> DG11	101+28, 101+30, 101+32, 101+48
>> DG32	101+17
>> DG321	101+23, 101+25
>> DG41	P401+1, P401+2, P401+3*, P401+4
>> DG52	101+11
>> DG70	101+34
>> DGACNT	SAVE+1*
>> DGAO	101+23*
DGAUX	SUR, SUR+13, SUR+14, SUR+15!
>> DGCNT	SAVE*
>> DGDOB	101+15*
>> DGERR	SUR+2*, SAVE, SAVE+1
>> DGHEAD	DGPTR0+10*, 101+3, P401+1, SUR+5
>> DGNAM	DGNAM, DGNAM+2, PTFNMFT+11, PTFNMFT+12
>> DGNT	101+25*
DGPOS	101+17, 101+18, 101+20*, 101+21, 101+23, 101+25, 101+26!
>> DGPTTMP	P401+4, SUR+8
>> DGSUD	SUR+1*, SUR+2, SUR+5
>> DGSUR	SUR, SUR+1, SUR+5, SUR+6, SUR+7, SUR+8
>> DGXMZ	SAVE
DIR	SUR+4!
DIR("A"	SUR+4*
DIR("B"	SUR+4*
DIR(0	SUR+4*
E	101+25*, 101+26!
>> F	SUR+1*, SUR+2, SUR+3
G	101+23*, 101+26!
I	P401+4, 401+1, SUR, DGNAM, PTFNMFT+10~
>> J	101+18, P401+1, P401+2, P401+4, 401+1, SUR, SUR+8, SUR+13
>> K	P401+3, SUR+7, SUR+8*
>> L	DGPTR0+9, 101+7, 101+21, 101+28, 101+30, 101+32, 101+37, 101+48, P401+3, SUR+6 , SUR+7*, ENTER, ENTER0
>> PTF	101+20
>> T1	101+3, 101+50, P401+1, SUR+1, SUR+5
>> T2	SUR+1
U	DGPTR0+5, DGPTR0+7, DGPTR0+9, 101+3, 101+5, 101+7, 101+9, 101+11, 101+13, 101+15 , 101+17, 101+20, 101+23, 101+25, 101+28, 101+30, 101+34, 101+36, 101+46, 101+48 , P401+3, P401+4, SUR+5, SUR+7, SUR+8, SUR+13, SUR+14, ENTER, ENTER0
X	DGPTR0+5, DGPTR0+7, DGPTR0+9, 101+7, 101+21, 101+28, 101+30, 101+32, 101+37, 101+39 , 101+41, 101+42, 101+44, 101+46, 101+48, SUR+6, ENTER, ENTER0, DGNAM*, DGNAM+1 , DGNAM+2, PTFNMFT+10~
>> Y	DGPTR0+5, DGPTR0+7, DGPTR0+9, DGPTR0+10, 101+3, 101+5, 101+7, 101+9, 101+11, 101+13 , 101+15, 101+26, 101+34, 101+36, 101+39, 101+41, 101+42, 101+44, 101+46, 101+50 , P401+1, P401+4, P401+5, SUR+2, SUR+5, SUR+8, SUR+10, SUR+14, ENTER, ENTER0 , SAVE, SAVE+1
>> Z	DGPTR0+9, 101+7, 101+21, 101+28, 101+30, 101+32, 101+37, 101+48, SUR+6, ENTER , ENTER0, DGNAM

Name	Comments	DBIA/ICR reference
ENTER0
P401	; -- setup 401P transaction
SAVE
PTFNMFT(DG10)	;this function will format the name of the patient for ; transmission of the 101 record to Austin. In addition, this ; function will be used by OPC so that the format will be consistent ; for OPC and PTF. ; INPUT : DG10 - .01 field from the patient record. ; OUTPUT: name in the format proper format. ; A = <12 - characters of last name padded with blanks> ; B = <1 - first initial of fist name> ; C = <1 - first initial of middle name> ; returns :ABC <14 - characters>
DGNAM
Q
SUR
401	; -- setup 401 transactions
ENTER
101	; -- setup 101 transation ; control data and name
501

Customize PDF page

Package: Registration

Routine: DGPTR0

Call Graph Total: 12

Caller Graph Total: 1