Routine: DGRRPSGT

Package	Total	Call Graph
Registration	13	($$CHARCHK,$$XMLHDR)^DGRR557U GETPSARY^DGRRPSAC GETPSARY^DGRRPSAD GETPSARY^DGRRPSAM GETPSARY^DGRRPSAT GETPSARY^DGRRPSD1 GETPSARY^DGRRPSD2 GETPSARY^DGRRPSD3 GETPSARY^DGRRPSEE GETPSARY^DGRRPSIC GETPSARY^DGRRPSID GETPSARY^DGRRPSIN GETPSARY^DGRRPSKN
Kernel	2	($$FMADD,$$NOW)^XLFDT $$HLNAME^XLFNAME
VA Fileman	2	DTNOLF^DICRW $$IENS^DILF
Uncategorized	1	($$GETDFN,$$GETICN)^MPIF001

Package	Total	Caller Graph
Registration	1	DGRRPSXX

Entry Points

Name	Comments	DBIA/ICR reference
PURGE	; Purge trace > 31 days and >10,000 records
INTRACE	; Keep a record of what has been requested
APPEND(PSARRAY)	; ; Append PSARRAY(1...n)= TextOnly ^ XML_attribute ^ ValueOfAttribute ^ FileNowFlag ; In some code there are 5th and 6th pieces to this,, they are not used,, it was the start of a receiver/parser that was never needed
DOC	; ; ================================================================== ; Documentation for the DGRRPS* routines is in DGRRPSAA. ; ================================================================== ; This routine is called from the RPC DGRR GET PATIENT SERVICES DATA ; ==================================================================
OUTTRACE	; Keep a record of what has been put out
GETGLOBS	; Get required DPT globals
INITIZE	; Initialize variables
EXIT
BUILD	; BUILD THE PATIENT XML
ERROR	; Build an Error XML and quit
GETNME(PTID)	; return patient name components
GETPATID(ICN,PTID,ERRMESS)	; Get patient PTID and ICN
PATIENT(RESULT,PARAMS)	;

External References

Name	Field # of Occurrence
$$CHARCHK^DGRR557U	APPEND+12
$$XMLHDR^DGRR557U	BUILD+1, ERROR+2
GETPSARY^DGRRPSAC	BUILD+9
GETPSARY^DGRRPSAD	BUILD+11
GETPSARY^DGRRPSAM	BUILD+7
GETPSARY^DGRRPSAT	BUILD+8
GETPSARY^DGRRPSD1	BUILD+4
GETPSARY^DGRRPSD2	BUILD+5
GETPSARY^DGRRPSD3	BUILD+6
GETPSARY^DGRRPSEE	BUILD+12
GETPSARY^DGRRPSIC	BUILD+13
GETPSARY^DGRRPSID	BUILD+3
GETPSARY^DGRRPSIN	BUILD+14
GETPSARY^DGRRPSKN	BUILD+10
DTNOLF^DICRW	INITIZE+6
$$IENS^DILF	GETNME+4
$$GETDFN^MPIF001	GETPATID+5
$$GETICN^MPIF001	GETPATID+7, GETPATID+11
$$FMADD^XLFDT	INTRACE+2, PURGE+1
$$NOW^XLFDT	INTRACE+6
$$HLNAME^XLFNAME	GETNME+5

Used in RPC

RPC Name	Call Tags
DGRR GET PATIENT SERVICES DATA	PATIENT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGSL(38.1 - [#38.1]	GETGLOBS+18
^DPT - [#2]	GETGLOBS+1, GETGLOBS+2, GETGLOBS+3, GETGLOBS+4, GETGLOBS+5, GETGLOBS+6, GETGLOBS+7, GETGLOBS+8, GETGLOBS+9, GETGLOBS+10 , GETGLOBS+11, GETGLOBS+12, GETGLOBS+13, GETGLOBS+14, GETGLOBS+15, GETGLOBS+16, GETGLOBS+17, GETGLOBS+19
^TMP($J	APPEND+14, APPEND+19, INITIZE+2!, OUTTRACE+1
^XTMP("DGRRPS"	INTRACE+3, INTRACE+4, INTRACE+5, INTRACE+6, INTRACE+7, OUTTRACE+1, PURGE+1!, PURGE+2!

Label References

Name	Line Occurrences
$$GETNME	GETGLOBS+20
APPEND	BUILD+1, BUILD+2, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+8, BUILD+9, BUILD+10 , BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15, BUILD+16, ERROR+8
ERROR	PATIENT+7
GETGLOBS	PATIENT+9
GETPATID	PATIENT+7
INITIZE	PATIENT+4, ERROR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ATTRIB	APPEND+3~, APPEND+7*, APPEND+12
CLOSEOUT	APPEND+3~, APPEND+9*, APPEND+18
CURLINE	PATIENT+2~, APPEND+10, APPEND+13, APPEND+14, APPEND+16, APPEND+17, APPEND+18, APPEND+19, APPEND+21
DGRRN	GETNME+1~, GETNME+5
DGRRN("FIELD"	GETNME+3*
DGRRN("FILE"	GETNME+2*
DGRRN("IENS"	GETNME+4*
DGRRPS	PATIENT+2~, INITIZE+4*, INITIZE+5
DT	INITIZE+6, INTRACE+2, INTRACE+3, INTRACE+6, PURGE+1
ERRMESS	PATIENT+2~, PATIENT+7, GETPATID~, GETPATID+8, GETPATID+14, ERROR+5
GLOB	PATIENT+2~
GLOB(	GETGLOBS+2, GETGLOBS+3, GETGLOBS+4, GETGLOBS+5!, GETGLOBS+6, GETGLOBS+7, GETGLOBS+8, GETGLOBS+9, GETGLOBS+10, GETGLOBS+11 , GETGLOBS+12, GETGLOBS+13, GETGLOBS+14, GETGLOBS+15, GETGLOBS+16, GETGLOBS+17, GETGLOBS+18*
GLOB("NAME"	GETGLOBS+20*
GLOB(0	GETGLOBS+1*
GLOB(57	GETGLOBS+19*
ICN	PATIENT+2~, PATIENT+7, GETPATID~, GETPATID+2, GETPATID+3, GETPATID+4, GETPATID+5, GETPATID+7, GETPATID+11, GETPATID+13
MAXGL	APPEND+3~, APPEND+4*, APPEND+13, APPEND+14, APPEND+16
NEWLINE	APPEND+3~, APPEND+11, APPEND+12, APPEND+13, APPEND+14, APPEND+16*, APPEND+17
PARAMS	PATIENT~, INTRACE+7
PARAMS("ADTInfo"	BUILD+11
PARAMS("ConfidentialAddress"	BUILD+9
PARAMS("ContactInfo"	BUILD+10
PARAMS("EnrollEligibility"	BUILD+12
PARAMS("Incompetent"	BUILD+13
PARAMS("MainAddress"	BUILD+7
PARAMS("PatientId"	GETPATID+2, GETPATID+10, ERROR+6
PARAMS("PatientId_Type"	GETPATID+1, GETPATID+9, GETPATID+14
PARAMS("PrimaryDemo"	BUILD+4
PARAMS("REQUESTED_DATE"	PATIENT+8
PARAMS("SecondaryDemo"	BUILD+5
PARAMS("TemporaryAddress"	BUILD+8
PARAMS("TertiaryDemo"	BUILD+6
PSARRAY	PATIENT+2~, BUILD+1, BUILD+2, BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+8, BUILD+9 , BUILD+10, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15, BUILD+16, APPEND~, APPEND+5*, APPEND+6 , APPEND+7, APPEND+8, APPEND+9, APPEND+23!, INITIZE+7!, ERROR+8
PSARRAY(	APPEND+5, APPEND+6, APPEND+7, APPEND+8, APPEND+9
PSARRAY(1	BUILD+1, BUILD+2, BUILD+15, BUILD+16, ERROR+2*
PSARRAY(2	ERROR+3*
PSARRAY(3	ERROR+4*
PSARRAY(4	ERROR+5*
PSARRAY(5	ERROR+6*
PSARRAY(6	ERROR+7*
PSARRAY(7	ERROR+8*
PSGLBCNT	PATIENT+2~, APPEND+14, APPEND+15, APPEND+19, APPEND+20, INITIZE+3*
PTID	PATIENT+2~, PATIENT+7, GETPATID~, GETPATID+5, GETPATID+7, GETPATID+8, GETPATID+10, GETPATID+11, GETGLOBS+1, GETGLOBS+2 , GETGLOBS+3, GETGLOBS+4, GETGLOBS+5, GETGLOBS+6, GETGLOBS+7, GETGLOBS+8, GETGLOBS+9, GETGLOBS+10, GETGLOBS+11, GETGLOBS+12 , GETGLOBS+13, GETGLOBS+14, GETGLOBS+15, GETGLOBS+16, GETGLOBS+17, GETGLOBS+18, GETGLOBS+19, GETGLOBS+20, GETNME~, GETNME+4
PURGDT	INTRACE+1~, INTRACE+2*, INTRACE+3, INTRACE+4
RE	GETNME+1~, GETNME+5*, GETNME+6
REQDT	PATIENT+2~, PATIENT+8*, BUILD+11
RESULT	PATIENT~, INITIZE+1!, INITIZE+5*
TEXT	APPEND+3~, APPEND+6*, APPEND+11
TRACECNT	PATIENT+2~, INTRACE+5*, INTRACE+6, INTRACE+7, OUTTRACE+1
TRACENO	PATIENT+2~, PURGE+1, PURGE+2
VALUE	APPEND+3~, APPEND+8*, APPEND+12

Customize PDF page

Package: Registration

Routine: DGRRPSGT

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend: