DGRRPSGT ; ALB/SGG - DG R&R PatientServices GET data - return XML ; 09/30/03
Source file <DGRRPSGT.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Registration | 2 | DGRR GET PATIENT SERVICES DATA DGRRPSXX |
Name | Comments | DBIA/ICR reference |
---|---|---|
DOC | ;
; ================================================================== ; Documentation for the DGRRPS* routines is in DGRRPSAA. ; ================================================================== ; This routine is called from the RPC DGRR GET PATIENT SERVICES DATA ; ================================================================== |
|
PATIENT(RESULT,PARAMS) | ;
|
|
BUILD | ; BUILD THE PATIENT XML
|
|
EXIT | ||
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 |
|
INITIZE | ; Initialize variables
|
|
INTRACE | ; Keep a record of what has been requested
|
|
GETPATID(ICN,PTID,ERRMESS) | ; Get patient PTID and ICN
|
|
GETGLOBS | ; Get required DPT globals
|
|
GETNME(PTID) | ; return patient name components
|
|
OUTTRACE | ; Keep a record of what has been put out
|
|
PURGE | ; Purge trace > 31 days and >10,000 records
|
|
ERROR | ; Build an Error XML and quit
|
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 |
RPC Name | Call Tags |
---|---|
DGRR GET PATIENT SERVICES DATA | PATIENT |
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! |
>> | 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 |