VAFCPTAD ;ISA/RJS,ZOLTAN - Add an entry to the PATIENT (#2) file; 26-Apr-2023 4:26 PM
Source file <VAFCPTAD.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 | 1 | VAFC VOA ADD PATIENT |
Name | Comments | DBIA/ICR reference |
---|---|---|
ADD(RETURN,PARAM) | ;Entry point for VAFC VOA ADD PATIENT remote procedure
|
|
EN1 | ;Check value of all required fields
|
|
FILE | ;Call FILE^DICN to add new entry to PATIENT (#2) file
|
|
END | ;**1050,VAMPI-9503 (mko): Record return value and quit
|
|
ALIAS | ;Optional - Add ALIAS and ALIAS SSN data for entry
|
|
UPDNC(VAFCDFN,NAME) | ;Update name components; Return 1 if updated
|
|
RECORD(PARAM,RPCNAME) | ;Record RPC inputs for debugging
|
|
RETURN(SEQ,RETURN) | ;Record the return value
|
|
DBON | ;Set DEBUG on
|
|
DBOFF | ;Set DEBUG off
|
|
ISDEBUG() | ;Return 1 if DEBUG mode flag is set
|
|
PURGE | ;Purge the debugging data stored in ^XTMP
|
|
SETXTMP0(NODE,DESC,LIFE) | ;Set 0 node of ^XTMP(node)
|
|
NODE() | ;Return ^XTMP Debug subscript
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | EN1+1 |
$$QRY^DGENQRY | FILE+56 |
FILE^DICN | FILE+12 |
CHK^DIE | EN1+10, EN1+16, EN1+18, EN1+36, EN1+41, EN1+46, EN1+57, EN1+67, EN1+76, EN1+86 , EN1+90, EN1+95, EN1+99, EN1+101, EN1+102, EN1+104, EN1+111, EN1+113, EN1+123, EN1+125 , EN1+128, EN1+135 |
FILE^DIE | FILE+40, FILE+49, FILE+62, UPDNC+23 |
UPDATE^DIE | ALIAS+23 |
GETS^DIQ | UPDNC+8 |
$$GETFLAG^VAFCPTED | EN1+26, FILE+52 |
$$SITE^VASITE | EN1+9, FILE+15, ALIAS+24 |
POSTAL^XIPUTIL | EN1+120 |
$$FMADD^XLFDT | SETXTMP0+6 |
$$NOW^XLFDT | RECORD+5 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
RPC Name | Call Tags |
---|---|
VAFC VOA ADD PATIENT | ADD |
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, CHK^DIE |
^VA(20 - [#20] | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(5 - [#5] | EN1+83, EN1+85, EN1+108, EN1+110, EN1+121 |
^DPT - [#2] | EN1+25, FILE+39, FILE+40, FILE+48, FILE+49, FILE+59, ALIAS+23, UPDNC+5 |
^DPT("AICN" | EN1+21, EN1+25!, EN1+26 |
^DPT(0 | FILE+11, FILE+13 |
^HL(779.004 - [#779.004] | EN1+133 |
^TMP("DIERR" | EN1+10, EN1+16, EN1+18, EN1+36, EN1+41, EN1+46, EN1+57, EN1+67 |
^XTMP( | RECORD+8, RECORD+10, RECORD+11*, RECORD+12*, RECORD+13*, RECORD+14*, RECORD+15, RETURN+2*, DBON+4*, DBON+5 , DBOFF+3!, DBOFF+4!, DBOFF+5, ISDEBUG+1, PURGE+3!, PURGE+4, SETXTMP0+3, SETXTMP0+6* |
Name | Line Occurrences |
---|---|
$$ISDEBUG | RECORD+3, RETURN+1, PURGE+2 |
$$NODE | RECORD+6, RETURN+2, DBON+2, DBOFF+2, ISDEBUG+1, PURGE+3, PURGE+4, SETXTMP0+2 |
$$RECORD | EN1+4 |
$$UPDNC | FILE+52 |
ALIAS | FILE+65 |
DBON | PURGE+5 |
END | EN1+7, EN1+9, EN1+10, EN1+14, EN1+16, EN1+18, EN1+22, EN1+30, EN1+36, EN1+40 , EN1+41, EN1+45, EN1+46, EN1+56, EN1+57, EN1+61, EN1+66, EN1+67, EN1+71, EN1+138 , FILE+15 |
RETURN | END+1 |
SETXTMP0 | RECORD+9, DBON+3 |
Name | Field # of Occurrence |
---|---|
^(0 | SETXTMP0+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AFN | ALIAS+4~, ALIAS+7*, ALIAS+11 |
ALN | ALIAS+4~, ALIAS+6*, ALIAS+10 |
ALSERR | EN1+2~, FILE+66, FILE+67, ALIAS+22*, ALIAS+24* |
AMN | ALIAS+4~, ALIAS+7*, ALIAS+12 |
ARR | EN1+119~, EN1+120 |
ARR("COUNTY" | EN1+120, EN1+121 |
ASFX | ALIAS+4~, ALIAS+8*, ALIAS+13 |
ASSN | ALIAS+4~, ALIAS+8*, ALIAS+15, ALIAS+19 |
CNTY | EN1+3~, EN1+133*, EN1+134, EN1+135 |
CREATEDT | SETXTMP0+1~, SETXTMP0+3*, SETXTMP0+6 |
CURR | UPDNC+2~ |
CURR("NAME" | UPDNC+11*, UPDNC+13 |
CURR(20 | UPDNC+11 |
DA | FILE+1~, FILE+12! |
DD | FILE+1!, FILE+12! |
DESC | SETXTMP0~, SETXTMP0+5*, SETXTMP0+6 |
DGZ | FILE+58~, FILE+59*, FILE+60, FILE+61 |
DIC | FILE+1~, FILE+2*, FILE+12! |
DIC("DR" | FILE+6*, FILE+7* |
DIC(0 | FILE+2* |
DIERR | EN1+2~, FILE+20~, FILE+46~, UPDNC+2~, UPDNC+8, UPDNC+24 |
DIHELP | FILE+20~, FILE+46~, UPDNC+2~ |
DIMSG | FILE+20~, FILE+46~, UPDNC+2~ |
DLAYGO | FILE+2*, FILE+12! |
DO | FILE+1!, FILE+12! |
DPTIDS | EN1+2~ |
DPTIDS( | EN1+42* |
DPTX | EN1+2~, EN1+37* |
DR | FILE+1~, FILE+12! |
DT | FILE+61, SETXTMP0+3, SETXTMP0+6 |
DUZ | FILE+60, RECORD+13 |
ERR | ALIAS+4~ |
ERR("DIERR" | ALIAS+24 |
ERROR | EN1+2~ |
FDA | EN1+2~, FILE+20~, FILE+38, FILE+46~, FILE+58~, FILE+62, ALIAS+4~, ALIAS+21, UPDNC+2~ |
FDA( | ALIAS+18*, ALIAS+19* |
FDA(2 | FILE+22*, FILE+23*, FILE+24*, FILE+26*, FILE+28*, FILE+29*, FILE+30*, FILE+31*, FILE+32*, FILE+33* , FILE+34*, FILE+35*, FILE+36*, FILE+37*, FILE+47*, FILE+60*, FILE+61* |
FDA(20 | UPDNC+17*, UPDNC+18*, UPDNC+19*, UPDNC+20* |
FLG | EN1+2~, EN1+5*, EN1+11*, EN1+17*, EN1+19*, EN1+37*, EN1+42*, EN1+47*, EN1+51*, EN1+53* , EN1+58*, EN1+68*, EN1+73*, EN1+77*, EN1+87*, EN1+91*, EN1+96*, EN1+101*, EN1+102*, EN1+103* , EN1+105*, EN1+112*, EN1+114*, EN1+124*, EN1+126*, EN1+129*, EN1+136*, EN1+138 |
FN | EN1+2~, EN1+31*, EN1+33 |
FULLICN | FILE+1~, FILE+5*, FILE+6 |
I | ALIAS+4~, ALIAS+5*, ALIAS+17*, ALIAS+18, ALIAS+19 |
IENS | FILE+20~, FILE+21*, FILE+22, FILE+23, FILE+24, FILE+26, FILE+28, FILE+29, FILE+30, FILE+31 , FILE+32, FILE+33, FILE+34, FILE+35, FILE+36, FILE+37 |
ISDEBUG | PURGE+1~, PURGE+2*, PURGE+5 |
LIFE | SETXTMP0~, SETXTMP0+4*, SETXTMP0+6 |
LN | EN1+2~, EN1+31*, EN1+32 |
LOC | ALIAS+4~ |
LOC( | ALIAS+10*, ALIAS+11*, ALIAS+12*, ALIAS+13*, ALIAS+14*, ALIAS+15*, ALIAS+18, ALIAS+19 |
MN | EN1+2~, EN1+31*, EN1+34 |
MSG | FILE+20~, FILE+46~, UPDNC+2~ |
NAME | UPDNC~, UPDNC+3, UPDNC+12*, UPDNC+13, UPDNC+17, UPDNC+18, UPDNC+19, UPDNC+20 |
NCIENS | UPDNC+2~, UPDNC+5*, UPDNC+8, UPDNC+11, UPDNC+17, UPDNC+18, UPDNC+19, UPDNC+20 |
NODE | RECORD+2~, RECORD+6*, RECORD+8, RECORD+9, RECORD+10, RECORD+11, RECORD+12, RECORD+13, RECORD+14, RECORD+15 , DBON+1~, DBON+2*, DBON+4, DBON+5, DBOFF+1~, DBOFF+2*, DBOFF+3, DBOFF+4, DBOFF+5, SETXTMP0~ , SETXTMP0+2*, SETXTMP0+3, SETXTMP0+6 |
NOW | RECORD+2~, RECORD+5*, RECORD+12 |
NUM | ALIAS+4~, ALIAS+5*, ALIAS+6, ALIAS+7, ALIAS+8, ALIAS+10, ALIAS+11, ALIAS+12, ALIAS+13, ALIAS+14 , ALIAS+15, ALIAS+18, ALIAS+19 |
PARAM | ADD~, EN1+4, RECORD~, RECORD+11 |
PARAM("ALIAS" | FILE+65, ALIAS+2, ALIAS+5, ALIAS+6, ALIAS+7, ALIAS+8 |
PARAM("CHKSUM" | EN1+15*, EN1+18 |
PARAM("DOB" | EN1+40, EN1+41 |
PARAM("ENROLLMENT" | FILE+56 |
PARAM("FULLICN" | EN1+14, EN1+15 |
PARAM("GENDER" | EN1+56, EN1+57 |
PARAM("ICN" | EN1+15*, EN1+16, EN1+21, EN1+25, EN1+26 |
PARAM("LONGNAME" | FILE+52 |
PARAM("MBI" | EN1+95*, EN1+96 |
PARAM("MMN" | EN1+90*, EN1+91 |
PARAM("NAME" | EN1+30, EN1+31, FILE+52, ALIAS+24 |
PARAM("POBCTY" | EN1+76*, EN1+77 |
PARAM("POBST" | EN1+81*, EN1+83, EN1+85*, EN1+86, EN1+87 |
PARAM("PRFCLTY" | EN1+7, EN1+9, EN1+10 |
PARAM("PSEUDO" | EN1+50*, EN1+53 |
PARAM("ResAddCity" | EN1+104*, EN1+105 |
PARAM("ResAddCountry" | EN1+131, EN1+133, EN1+134*, EN1+135*, EN1+136 |
PARAM("ResAddL1" | EN1+99*, EN1+101 |
PARAM("ResAddL2" | EN1+101*, EN1+102 |
PARAM("ResAddL3" | EN1+102*, EN1+103 |
PARAM("ResAddPCode" | EN1+128*, EN1+129 |
PARAM("ResAddProvince" | EN1+125*, EN1+126 |
PARAM("ResAddState" | EN1+106*, EN1+108, EN1+110*, EN1+111*, EN1+112 |
PARAM("ResAddZIP" | EN1+113*, EN1+114 |
PARAM("ResPhone" | EN1+123*, EN1+124 |
PARAM("SRVCNCTD" | EN1+61, EN1+63 |
PARAM("SSN" | EN1+45, EN1+46, EN1+47, EN1+48, EN1+49*, EN1+51 |
PARAM("TYPE" | EN1+66, EN1+67 |
PARAM("VET" | EN1+71, EN1+73 |
RESULT | EN1+2~, EN1+10, EN1+16, EN1+18, EN1+36, EN1+41, EN1+42, EN1+46, EN1+57, EN1+67 , EN1+76, EN1+86, EN1+90, EN1+95, EN1+99, EN1+101, EN1+102, EN1+104, EN1+111, EN1+113 , EN1+123, EN1+125, EN1+128, EN1+135 |
RETURN | ADD~, EN1+1!, END+1, RETURN~, RETURN+2 |
RETURN(1 | EN1+7*, EN1+9*, EN1+10*, EN1+14*, EN1+16*, EN1+18*, EN1+22, EN1+26*, EN1+30*, EN1+36* , EN1+40*, EN1+41*, EN1+45*, EN1+46*, EN1+56*, EN1+57*, EN1+61*, EN1+66*, EN1+67*, EN1+71* , EN1+138*, FILE+15*, FILE+66*, FILE+67*, FILE+70* |
RGRSICN | EN1+2~, EN1+5* |
RPCNAME | RECORD~, RECORD+4*, RECORD+14 |
SEQ | RECORD+2~, RECORD+10*, RECORD+11, RECORD+12, RECORD+13, RECORD+14, RECORD+16, RETURN~, RETURN+1, RETURN+2 |
SFX | EN1+2~, EN1+31*, EN1+35 |
STIEN | EN1+80~, EN1+83*, EN1+84, EN1+85, EN1+108*, EN1+109, EN1+110, EN1+121 |
TODAY | RECORD+2~, RECORD+5* |
U | FILE+15, FILE+70, UPDNC+5, UPDNC+11, UPDNC+12, UPDNC+17, UPDNC+18, UPDNC+19, UPDNC+20, SETXTMP0+3 , SETXTMP0+6 |
UNDEF | EN1+80~*, EN1+81, EN1+84*, EN1+86*, EN1+106, EN1+109* |
UPDNC | EN1+2~, FILE+52!*, FILE+70 |
VAFCA08 | EN1+2~, EN1+5* |
VAFCACTY | EN1+3~, EN1+122*, FILE+45, FILE+47 |
VAFCACY | EN1+3~, EN1+105*, FILE+31 |
VAFCAL1 | EN1+3~, EN1+101*, FILE+28 |
VAFCAL2 | EN1+3~, EN1+102*, FILE+29 |
VAFCAL3 | EN1+3~, EN1+103*, FILE+30 |
VAFCAST | EN1+3~, EN1+112*, EN1+118, FILE+32 |
VAFCAZ | EN1+3~, EN1+114*, EN1+118, EN1+120, FILE+33 |
VAFCDFN | EN1+2~, EN1+21*, EN1+22, EN1+25!, FILE+16*, FILE+21, FILE+39, FILE+40, FILE+47, FILE+48 , FILE+49, FILE+52, FILE+56, FILE+59, FILE+60, FILE+61, FILE+66, ALIAS+18, ALIAS+19, ALIAS+23 , ALIAS+24, UPDNC~, UPDNC+4, UPDNC+5 |
VAFCDOB | EN1+2~, EN1+42*, FILE+6 |
VAFCICN | EN1+2~, EN1+17*, FILE+5, FILE+6 |
VAFCMBI | EN1+3~, EN1+96*, FILE+26 |
VAFCMMN | EN1+2~, EN1+91*, FILE+24 |
VAFCNAM | EN1+2~, EN1+32*, EN1+33*, EN1+34*, EN1+35*, EN1+36, EN1+37, FILE+2, FILE+15 |
VAFCPC | EN1+3~, EN1+129*, FILE+36 |
VAFCPCT | EN1+3~, EN1+136*, FILE+37 |
VAFCPF | EN1+2~, EN1+11* |
VAFCPN | EN1+3~, EN1+124*, FILE+34 |
VAFCPOBC | EN1+2~, EN1+77*, FILE+22 |
VAFCPOBS | EN1+2~, EN1+87*, FILE+23 |
VAFCPR | EN1+3~, EN1+126*, FILE+35 |
VAFCRSLT | FILE+1!, FILE+56* |
VAFCRSN | EN1+3~, EN1+53*, FILE+7 |
VAFCSEQ | EN1+4~*, END+1 |
VAFCSRV | EN1+3~, EN1+63*, FILE+6 |
VAFCSSN | EN1+3~, EN1+47*, EN1+51*, FILE+6, FILE+7 |
VAFCSUM | EN1+3~, EN1+19*, FILE+5, FILE+6 |
VAFCSX | EN1+3~, EN1+58*, FILE+6 |
VAFCTYP | EN1+3~, EN1+68*, FILE+6 |
VAFCVET | EN1+3~, EN1+73*, FILE+6 |
VAL | EN1+2~, EN1+10*, EN1+11, EN1+16*, EN1+17, EN1+18*, EN1+19, EN1+41*, EN1+42, EN1+46* , EN1+47, EN1+57*, EN1+58, EN1+67*, EN1+68, EN1+76*, EN1+77, EN1+86*, EN1+87, EN1+90* , EN1+91, EN1+95*, EN1+96, EN1+99*, EN1+101*, EN1+102*, EN1+103, EN1+104*, EN1+105, EN1+111* , EN1+112, EN1+113*, EN1+114, EN1+121*, EN1+122, EN1+123*, EN1+124, EN1+125*, EN1+126, EN1+128* , EN1+129, EN1+135* |
X | EN1+2~, FILE+2* |
Y | EN1+2~, FILE+15, FILE+16 |