VAFCPTAD ; ISA/RJS,Zoltan ;14 Apr 2021 5:08 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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ADD(RETURN,PARAM) | ;Add an entry to the PATIENT (#2) file for VOA
|
|
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+35, EN1+40, EN1+45, EN1+56, EN1+66, EN1+75, EN1+85 , EN1+89, EN1+94, EN1+98, EN1+100, EN1+101, EN1+103, EN1+110, EN1+112, EN1+122, EN1+124 , EN1+127, EN1+134 |
FILE^DIE | FILE+40, FILE+49, FILE+62, UPDNC+18 |
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+119 |
$$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+82, EN1+84, EN1+107, EN1+109, EN1+120 |
^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+132 |
^TMP("DIERR" | EN1+10, EN1+16, EN1+18, EN1+35, EN1+40, EN1+45, EN1+56, EN1+66 |
^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+29, EN1+35, EN1+39 , EN1+40, EN1+44, EN1+45, EN1+55, EN1+56, EN1+60, EN1+65, EN1+66, EN1+70, EN1+137 , 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+118~, EN1+119 |
ARR("COUNTY" | EN1+119, EN1+120 |
ASFX | ALIAS+4~, ALIAS+8*, ALIAS+13 |
ASSN | ALIAS+4~, ALIAS+8*, ALIAS+15, ALIAS+19 |
CNTY | EN1+3~, EN1+132*, EN1+133, EN1+134 |
CREATEDT | SETXTMP0+1~, SETXTMP0+3*, SETXTMP0+6 |
CURR | UPDNC+2~ |
CURR(20 | UPDNC+11, UPDNC+12, UPDNC+13, UPDNC+14 |
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+19 |
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+41* |
DPTX | EN1+2~, EN1+36* |
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~, UPDNC+15 |
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+11*, UPDNC+12*, UPDNC+13*, UPDNC+14* |
FLG | EN1+2~, EN1+5*, EN1+11*, EN1+17*, EN1+19*, EN1+36*, EN1+41*, EN1+46*, EN1+50*, EN1+52* , EN1+57*, EN1+67*, EN1+72*, EN1+76*, EN1+86*, EN1+90*, EN1+95*, EN1+100*, EN1+101*, EN1+102* , EN1+104*, EN1+111*, EN1+113*, EN1+123*, EN1+125*, EN1+128*, EN1+135*, EN1+137 |
FN | EN1+2~, EN1+30*, EN1+32 |
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+30*, EN1+31 |
LOC | ALIAS+4~ |
LOC( | ALIAS+10*, ALIAS+11*, ALIAS+12*, ALIAS+13*, ALIAS+14*, ALIAS+15*, ALIAS+18, ALIAS+19 |
MN | EN1+2~, EN1+30*, EN1+33 |
MSG | FILE+20~, FILE+46~, UPDNC+2~ |
NAME | UPDNC~, UPDNC+3, UPDNC+11, UPDNC+12, UPDNC+13, UPDNC+14 |
NCIENS | UPDNC+2~, UPDNC+5*, UPDNC+8, UPDNC+11, UPDNC+12, UPDNC+13, UPDNC+14 |
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+39, EN1+40 |
PARAM("ENROLLMENT" | FILE+56 |
PARAM("FULLICN" | EN1+14, EN1+15 |
PARAM("GENDER" | EN1+55, EN1+56 |
PARAM("ICN" | EN1+15*, EN1+16, EN1+21, EN1+25, EN1+26 |
PARAM("LONGNAME" | FILE+52 |
PARAM("MBI" | EN1+94*, EN1+95 |
PARAM("MMN" | EN1+89*, EN1+90 |
PARAM("NAME" | EN1+29, EN1+30, EN1+31*, EN1+32*, EN1+33*, EN1+34*, EN1+35, FILE+52, ALIAS+24 |
PARAM("POBCTY" | EN1+75*, EN1+76 |
PARAM("POBST" | EN1+80*, EN1+82, EN1+84*, EN1+85, EN1+86 |
PARAM("PRFCLTY" | EN1+7, EN1+9, EN1+10 |
PARAM("PSEUDO" | EN1+49*, EN1+52 |
PARAM("ResAddCity" | EN1+103*, EN1+104 |
PARAM("ResAddCountry" | EN1+130, EN1+132, EN1+133*, EN1+134*, EN1+135 |
PARAM("ResAddL1" | EN1+98*, EN1+100 |
PARAM("ResAddL2" | EN1+100*, EN1+101 |
PARAM("ResAddL3" | EN1+101*, EN1+102 |
PARAM("ResAddPCode" | EN1+127*, EN1+128 |
PARAM("ResAddProvince" | EN1+124*, EN1+125 |
PARAM("ResAddState" | EN1+105*, EN1+107, EN1+109*, EN1+110*, EN1+111 |
PARAM("ResAddZIP" | EN1+112*, EN1+113 |
PARAM("ResPhone" | EN1+122*, EN1+123 |
PARAM("SRVCNCTD" | EN1+60, EN1+62 |
PARAM("SSN" | EN1+44, EN1+45, EN1+46, EN1+47, EN1+48*, EN1+50 |
PARAM("TYPE" | EN1+65, EN1+66 |
PARAM("VET" | EN1+70, EN1+72 |
RESULT | EN1+2~, EN1+10, EN1+16, EN1+18, EN1+35, EN1+40, EN1+41, EN1+45, EN1+56, EN1+66 , EN1+75, EN1+85, EN1+89, EN1+94, EN1+98, EN1+100, EN1+101, EN1+103, EN1+110, EN1+112 , EN1+122, EN1+124, EN1+127, EN1+134 |
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+29*, EN1+35* , EN1+39*, EN1+40*, EN1+44*, EN1+45*, EN1+55*, EN1+56*, EN1+60*, EN1+65*, EN1+66*, EN1+70* , EN1+137*, 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+30*, EN1+34 |
STIEN | EN1+79~, EN1+82*, EN1+83, EN1+84, EN1+107*, EN1+108, EN1+109, EN1+120 |
TODAY | RECORD+2~, RECORD+5* |
U | FILE+15, FILE+70, UPDNC+5, UPDNC+11, UPDNC+12, UPDNC+13, UPDNC+14, SETXTMP0+3, SETXTMP0+6 |
UNDEF | EN1+79~*, EN1+80, EN1+83*, EN1+85*, EN1+105, EN1+108* |
UPDNC | EN1+2~, FILE+52!*, FILE+70 |
VAFCA08 | EN1+2~, EN1+5* |
VAFCACTY | EN1+3~, EN1+121*, FILE+45, FILE+47 |
VAFCACY | EN1+3~, EN1+104*, FILE+31 |
VAFCAL1 | EN1+3~, EN1+100*, FILE+28 |
VAFCAL2 | EN1+3~, EN1+101*, FILE+29 |
VAFCAL3 | EN1+3~, EN1+102*, FILE+30 |
VAFCAST | EN1+3~, EN1+111*, EN1+117, FILE+32 |
VAFCAZ | EN1+3~, EN1+113*, EN1+117, EN1+119, 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+41*, FILE+6 |
VAFCICN | EN1+2~, EN1+17*, FILE+5, FILE+6 |
VAFCMBI | EN1+3~, EN1+95*, FILE+26 |
VAFCMMN | EN1+2~, EN1+90*, FILE+24 |
VAFCNAM | EN1+2~, EN1+36*, FILE+2, FILE+15 |
VAFCPC | EN1+3~, EN1+128*, FILE+36 |
VAFCPCT | EN1+3~, EN1+135*, FILE+37 |
VAFCPF | EN1+2~, EN1+11* |
VAFCPN | EN1+3~, EN1+123*, FILE+34 |
VAFCPOBC | EN1+2~, EN1+76*, FILE+22 |
VAFCPOBS | EN1+2~, EN1+86*, FILE+23 |
VAFCPR | EN1+3~, EN1+125*, FILE+35 |
VAFCRSLT | FILE+1!, FILE+56* |
VAFCRSN | EN1+3~, EN1+52*, FILE+7 |
VAFCSEQ | EN1+4~*, END+1 |
VAFCSRV | EN1+3~, EN1+62*, FILE+6 |
VAFCSSN | EN1+3~, EN1+46*, EN1+50*, FILE+6, FILE+7 |
VAFCSUM | EN1+3~, EN1+19*, FILE+5, FILE+6 |
VAFCSX | EN1+3~, EN1+57*, FILE+6 |
VAFCTYP | EN1+3~, EN1+67*, FILE+6 |
VAFCVET | EN1+3~, EN1+72*, FILE+6 |
VAL | EN1+2~, EN1+10*, EN1+11, EN1+16*, EN1+17, EN1+18*, EN1+19, EN1+35*, EN1+36, EN1+40* , EN1+41, EN1+45*, EN1+46, EN1+56*, EN1+57, EN1+66*, EN1+67, EN1+75*, EN1+76, EN1+85* , EN1+86, EN1+89*, EN1+90, EN1+94*, EN1+95, EN1+98*, EN1+100*, EN1+101*, EN1+102, EN1+103* , EN1+104, EN1+110*, EN1+111, EN1+112*, EN1+113, EN1+120*, EN1+121, EN1+122*, EN1+123, EN1+124* , EN1+125, EN1+127*, EN1+128, EN1+134* |
X | EN1+2~, FILE+2* |
Y | EN1+2~, FILE+15, FILE+16 |