DGNAME ;SFISC/MKO-PATIENT NAME UTILITIES ;4 Dec 2018 11:53 AM
Source file <DGNAME.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
UPDNC(RETURN,FLAG,IEN,NEWNC) | ;Remote Procedure DG UPDATE NAME COMPONENTS
; FLAG : "G" - "GET" mode, Name and Aliases should be returned, not updated ; Otherwise, the Name Components entry IEN will be updated with values in NEWNC array ; IEN : If FLAG["G", IEN is the DFN of the Patient whose name and alias should be returned ; If FLAG'["G", IEN is the IEN of the Name Components entry to update ; NEWNC : Array of name components, with subscripts: "FAMILY", "GIVEN", "MIDDLE", and "SUFFIX" |
|
GETNAMES(RETURN,PATIEN) | ;Get the Name and Aliases
|
|
GETCOMP(RETURN,NCIEN) | ;Get the Name Components into the RETURN array
|
|
BLDERR(MSGROOT) | ;Build an error from the error message array
|
RPC Name | Call Tags |
---|---|
DG UPDATE NAME COMPONENTS | UPDNC |
FileNo | Call Tags |
---|---|
^VA(20 - [#20] | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | GETNAMES+5, GETNAMES+8, GETNAMES+12, GETNAMES+13 |
^VA(20 - [#20] | UPDNC+13 |
Name | Line Occurrences |
---|---|
$$BLDERR | UPDNC+25, GETCOMP+4 |
GETCOMP | GETNAMES+9, GETNAMES+14 |
GETNAMES | UPDNC+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALSIEN | GETNAMES+1~, GETNAMES+12*, GETNAMES+13 |
DIERR | UPDNC+6~, UPDNC+25, GETCOMP+1~, GETCOMP+4 |
DIHELP | UPDNC+6~, GETCOMP+1~ |
DIMSG | UPDNC+6~, GETCOMP+1~ |
DIRUT | UPDNC+6~ |
DTOUT | UPDNC+6~ |
DUOUT | UPDNC+6~ |
ERRARR | UPDNC+6~, BLDERR+1~, BLDERR+2 |
ERRARR( | BLDERR+3 |
ERRMSG | UPDNC+6~, BLDERR+1~, BLDERR+3*, BLDERR+4 |
FDA | UPDNC+6~ |
FDA(20 | UPDNC+17*, UPDNC+18*, UPDNC+19*, UPDNC+20*, UPDNC+21* |
FLAG | UPDNC~, UPDNC+7*, UPDNC+10 |
I | BLDERR+1~, BLDERR+3* |
IEN | UPDNC~, UPDNC+10, UPDNC+12, UPDNC+13, UPDNC+16, UPDNC+27 |
IENS | UPDNC+6~, UPDNC+16*, UPDNC+17, UPDNC+18, UPDNC+19, UPDNC+20, UPDNC+21 |
MSG | UPDNC+6~, GETCOMP+1~ |
MSGROOT | BLDERR~, BLDERR+2 |
NCIEN | GETNAMES+1~, GETNAMES+8*, GETNAMES+9, GETNAMES+13*, GETNAMES+14, GETCOMP~, GETCOMP+2, GETCOMP+5 |
NCIENS | GETCOMP+1~, GETCOMP+2*, GETCOMP+3, GETCOMP+5 |
NEWNC | UPDNC~ |
NEWNC("FAMILY" | UPDNC+17 |
NEWNC("GIVEN" | UPDNC+18 |
NEWNC("MIDDLE" | UPDNC+19 |
NEWNC("SUFFIX" | UPDNC+20 |
PATIEN | GETNAMES~, GETNAMES+4, GETNAMES+5, GETNAMES+8, GETNAMES+12, GETNAMES+13 |
RETURN | UPDNC~, UPDNC+10, UPDNC+12*, UPDNC+13*, UPDNC+25*, UPDNC+27*, GETNAMES~, GETNAMES+2!, GETNAMES+4*, GETNAMES+5* , GETNAMES+9, GETNAMES+12, GETNAMES+14, GETCOMP~, GETCOMP+4* |
RETURN( | GETCOMP+5* |
RETURN("" | GETCOMP+5 |
TARG | GETCOMP+1~ |
TARG(20 | GETCOMP+5 |
U | UPDNC+13, GETNAMES+5, GETNAMES+8, GETNAMES+13, GETCOMP+5 |