Routine: DGRRPSXX

Information

DGRRPSXX ; ALB/SGG - DGRR patient services - TEST MUMPS SIDE COMPONENTS ; Compiled December 9, 2003 15:38:25

Source file <DGRRPSXX.m>

Package	Total	Call Graph
Registration	1	PATIENT^DGRRPSGT

Name	Comments	DBIA/ICR reference
DOC	; This routine is ======== FOR TESTING PURPOSES ONLY ========= ; ; It can be called to print out an XML doc from the mumps database ; for one patient record by inputing that patients DFN ; eg D TEST^DGRRPSXX("DFN",dfn#,,) ; or to get the XML from a patient ICN ; eg D TEST^DGRRPSXX("ICN",icn#,,)
VIEWLAST(TRACENO)	; ENTER(-1) TO GET THE ONE BEFORE LAST
APPLY	;
TESTERR	; test error
TEST(TYPE,NUM,ALLICN,ALLDFN,REQDT)	; ; TYPE DFN OR ICN ; NUM DFN# OR ICN#

Name	Field # of Occurrence
PATIENT^DGRRPSGT	APPLY+14, TESTERR+5

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	TEST+23
^DPT("AICN"	TEST+18
^XTMP("DGRRPS"	VIEWLAST+2, VIEWLAST+3, VIEWLAST+6, VIEWLAST+7, VIEWLAST+9, VIEWLAST+10

Name	Line Occurrences
APPLY	TEST+16, TEST+21, TEST+26
VIEWLAST	APPLY+15, TESTERR+6

Name	Field # of Occurrence
ALLDFN	TEST~, TEST+8, TEST+23
ALLICN	TEST~, TEST+8, TEST+18
DFN	TEST+23~*, TEST+24
DFNALL	TEST+6~
I	VIEWLAST+1~, VIEWLAST+6, VIEWLAST+7, VIEWLAST+9, VIEWLAST+10
ICN	TEST+18~*, TEST+19
ICNALL	TEST+6~
NUM	TEST~, TEST+10, TEST+12
PARAMS	TEST+6~, APPLY+14, TESTERR+5
PARAMS("ADTInfo"	APPLY+10*
PARAMS("ConfidentialAddress"	APPLY+8, TESTERR+4
PARAMS("ContactInfo"	APPLY+9*
PARAMS("EnrollEligibility"	APPLY+11*
PARAMS("Incompetent"	APPLY+12*
PARAMS("MainAddress"	APPLY+6*
PARAMS("PatientId"	TEST+10, TEST+15, TEST+19, TEST+24, TESTERR+2*
PARAMS("PatientId_Type"	TEST+9, TEST+14, TEST+20, TEST+25, TESTERR+1*
PARAMS("PrimaryDemo"	APPLY+3*
PARAMS("REQUESTED_DATE"	TEST+11*
PARAMS("SecondaryDemo"	APPLY+4*
PARAMS("TemporaryAddress"	APPLY+7, TESTERR+3
PARAMS("TertiaryDemo"	APPLY+5*
PARAMS("UserId"	APPLY+1*
PARAMS("UserInstitution"	APPLY+2*
PTID	TEST+6~
REQDT	TEST~, TEST+11
RESULT	APPLY+13~, APPLY+14, TESTERR+5
TRACENO	VIEWLAST~, VIEWLAST+2, VIEWLAST+3, VIEWLAST+4, VIEWLAST+6, VIEWLAST+7, VIEWLAST+9, VIEWLAST+10, VIEWLAST+11
TYPE	TEST~, TEST+9, TEST+12