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 |
| 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+11, EN1+18, EN1+20, EN1+38, EN1+43, EN1+48, EN1+59, EN1+69, EN1+78, EN1+88 , EN1+92, EN1+97, EN1+101, EN1+103, EN1+104, EN1+106, EN1+113, EN1+115, EN1+125, EN1+127 , EN1+130, EN1+137 |
| FILE^DIE | FILE+40, FILE+49, FILE+62, UPDNC+23 |
| UPDATE^DIE | ALIAS+23 |
| GETS^DIQ | UPDNC+8 |
| $$GETFLAG^VAFCPTED | EN1+28, FILE+52 |
| $$SITE^VASITE | EN1+10, FILE+15, ALIAS+24 |
| POSTAL^XIPUTIL | EN1+122 |
| $$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+85, EN1+87, EN1+110, EN1+112, EN1+123 |
| ^DPT - [#2] | EN1+27, FILE+39, FILE+40, FILE+48, FILE+49, FILE+59, ALIAS+23, UPDNC+5 |
| ^DPT("AICN" | EN1+23, EN1+27!, EN1+28 |
| ^DPT(0 | FILE+11, FILE+13 |
| ^HL(779.004 - [#779.004] | EN1+135 |
| ^TMP("DIERR" | EN1+11, EN1+18, EN1+20, EN1+38, EN1+43, EN1+48, EN1+59, EN1+69 |
| ^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+10, EN1+11, EN1+16, EN1+18, EN1+20, EN1+24, EN1+32, EN1+38, EN1+42 , EN1+43, EN1+47, EN1+48, EN1+58, EN1+59, EN1+63, EN1+68, EN1+69, EN1+73, EN1+140 , 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+121~, EN1+122 |
| ARR("COUNTY" | EN1+122, EN1+123 |
| ASFX | ALIAS+4~, ALIAS+8*, ALIAS+13 |
| ASSN | ALIAS+4~, ALIAS+8*, ALIAS+15, ALIAS+19 |
| CNTY | EN1+3~, EN1+135*, EN1+136, EN1+137 |
| 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+44* |
| DPTX | EN1+2~, EN1+39* |
| 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+13*, EN1+19*, EN1+21*, EN1+39*, EN1+44*, EN1+49*, EN1+53*, EN1+55* , EN1+60*, EN1+70*, EN1+75*, EN1+79*, EN1+89*, EN1+93*, EN1+98*, EN1+103*, EN1+104*, EN1+105* , EN1+107*, EN1+114*, EN1+116*, EN1+126*, EN1+128*, EN1+131*, EN1+138*, EN1+140 |
| FN | EN1+2~, EN1+33*, EN1+35 |
| 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+33*, EN1+34 |
| LOC | ALIAS+4~ |
| LOC( | ALIAS+10*, ALIAS+11*, ALIAS+12*, ALIAS+13*, ALIAS+14*, ALIAS+15*, ALIAS+18, ALIAS+19 |
| MN | EN1+2~, EN1+33*, EN1+36 |
| 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+17*, EN1+20 |
| PARAM("DOB" | EN1+42, EN1+43 |
| PARAM("ENROLLMENT" | FILE+56 |
| PARAM("FULLICN" | EN1+16, EN1+17 |
| PARAM("GENDER" | EN1+58, EN1+59 |
| PARAM("ICN" | EN1+17*, EN1+18, EN1+23, EN1+27, EN1+28 |
| PARAM("LONGNAME" | FILE+52 |
| PARAM("MBI" | EN1+97*, EN1+98 |
| PARAM("MMN" | EN1+92*, EN1+93 |
| PARAM("NAME" | EN1+32, EN1+33, FILE+52, ALIAS+24 |
| PARAM("POBCTY" | EN1+78*, EN1+79 |
| PARAM("POBST" | EN1+83*, EN1+85, EN1+87*, EN1+88, EN1+89 |
| PARAM("PRFCLTY" | EN1+7, EN1+10, EN1+11, EN1+12 |
| PARAM("PSEUDO" | EN1+52*, EN1+55 |
| PARAM("ResAddCity" | EN1+106*, EN1+107 |
| PARAM("ResAddCountry" | EN1+133, EN1+135, EN1+136*, EN1+137*, EN1+138 |
| PARAM("ResAddL1" | EN1+101*, EN1+103 |
| PARAM("ResAddL2" | EN1+103*, EN1+104 |
| PARAM("ResAddL3" | EN1+104*, EN1+105 |
| PARAM("ResAddPCode" | EN1+130*, EN1+131 |
| PARAM("ResAddProvince" | EN1+127*, EN1+128 |
| PARAM("ResAddState" | EN1+108*, EN1+110, EN1+112*, EN1+113*, EN1+114 |
| PARAM("ResAddZIP" | EN1+115*, EN1+116 |
| PARAM("ResPhone" | EN1+125*, EN1+126 |
| PARAM("SRVCNCTD" | EN1+63, EN1+65 |
| PARAM("SSN" | EN1+47, EN1+48, EN1+49, EN1+50, EN1+51*, EN1+53 |
| PARAM("TYPE" | EN1+68, EN1+69 |
| PARAM("VET" | EN1+73, EN1+75 |
| RESULT | EN1+2~, EN1+11, EN1+18, EN1+20, EN1+38, EN1+43, EN1+44, EN1+48, EN1+59, EN1+69 , EN1+78, EN1+88, EN1+92, EN1+97, EN1+101, EN1+103, EN1+104, EN1+106, EN1+113, EN1+115 , EN1+125, EN1+127, EN1+130, EN1+137 |
| RETURN | ADD~, EN1+1!, END+1, RETURN~, RETURN+2 |
| RETURN(1 | EN1+7*, EN1+10*, EN1+11*, EN1+16*, EN1+18*, EN1+20*, EN1+24, EN1+28*, EN1+32*, EN1+38* , EN1+42*, EN1+43*, EN1+47*, EN1+48*, EN1+58*, EN1+59*, EN1+63*, EN1+68*, EN1+69*, EN1+73* , EN1+140*, 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+33*, EN1+37 |
| STIEN | EN1+82~, EN1+85*, EN1+86, EN1+87, EN1+110*, EN1+111, EN1+112, EN1+123 |
| 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+82~*, EN1+83, EN1+86*, EN1+88*, EN1+108, EN1+111* |
| UPDNC | EN1+2~, FILE+52!*, FILE+70 |
| VAFCA08 | EN1+2~, EN1+5* |
| VAFCACTY | EN1+3~, EN1+124*, FILE+45, FILE+47 |
| VAFCACY | EN1+3~, EN1+107*, FILE+31 |
| VAFCAL1 | EN1+3~, EN1+103*, FILE+28 |
| VAFCAL2 | EN1+3~, EN1+104*, FILE+29 |
| VAFCAL3 | EN1+3~, EN1+105*, FILE+30 |
| VAFCAST | EN1+3~, EN1+114*, EN1+120, FILE+32 |
| VAFCAZ | EN1+3~, EN1+116*, EN1+120, EN1+122, FILE+33 |
| VAFCDFN | EN1+2~, EN1+23*, EN1+24, EN1+27!, 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+44*, FILE+6 |
| VAFCICN | EN1+2~, EN1+19*, FILE+5, FILE+6 |
| VAFCMBI | EN1+3~, EN1+98*, FILE+26 |
| VAFCMMN | EN1+2~, EN1+93*, FILE+24 |
| VAFCNAM | EN1+2~, EN1+34*, EN1+35*, EN1+36*, EN1+37*, EN1+38, EN1+39, FILE+2, FILE+15 |
| VAFCPC | EN1+3~, EN1+131*, FILE+36 |
| VAFCPCT | EN1+3~, EN1+138*, FILE+37 |
| VAFCPF | EN1+2~, EN1+13* |
| VAFCPN | EN1+3~, EN1+126*, FILE+34 |
| VAFCPOBC | EN1+2~, EN1+79*, FILE+22 |
| VAFCPOBS | EN1+2~, EN1+89*, FILE+23 |
| VAFCPR | EN1+3~, EN1+128*, FILE+35 |
| VAFCRSLT | FILE+1!, FILE+56* |
| VAFCRSN | EN1+3~, EN1+55*, FILE+7 |
| VAFCSEQ | EN1+4~*, END+1 |
| VAFCSRV | EN1+3~, EN1+65*, FILE+6 |
| VAFCSSN | EN1+3~, EN1+49*, EN1+53*, FILE+6, FILE+7 |
| VAFCSUM | EN1+3~, EN1+21*, FILE+5, FILE+6 |
| VAFCSX | EN1+3~, EN1+60*, FILE+6 |
| VAFCTYP | EN1+3~, EN1+70*, FILE+6 |
| VAFCVET | EN1+3~, EN1+75*, FILE+6 |
| VAL | EN1+2~, EN1+11*, EN1+12*, EN1+13, EN1+18*, EN1+19, EN1+20*, EN1+21, EN1+43*, EN1+44 , EN1+48*, EN1+49, EN1+59*, EN1+60, EN1+69*, EN1+70, EN1+78*, EN1+79, EN1+88*, EN1+89 , EN1+92*, EN1+93, EN1+97*, EN1+98, EN1+101*, EN1+103*, EN1+104*, EN1+105, EN1+106*, EN1+107 , EN1+113*, EN1+114, EN1+115*, EN1+116, EN1+123*, EN1+124, EN1+125*, EN1+126, EN1+127*, EN1+128 , EN1+130*, EN1+131, EN1+137* |
| X | EN1+2~, FILE+2* |
| Y | EN1+2~, FILE+15, FILE+16 |