Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: VAFCPTAD

Package: Registration

Routine: VAFCPTAD


Information

VAFCPTAD ;ISA/RJS,ZOLTAN - Add an entry to the PATIENT (#2) file; 26-Apr-2023 4:26 PM

Source Information

Source file <VAFCPTAD.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 NOW^%DTC  FILE^DICN  (CHK,FILE,UPDATE)^DIE  GETS^DIQ  
Registration 3 $$QRY^DGENQRY  $$GETFLAG^VAFCPTED  $$SITE^VASITE  
Kernel 2 POSTAL^XIPUTIL  ($$FMADD,$$NOW)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 VAFC VOA ADD PATIENT  

Entry Points

Name Comments DBIA/ICR reference
ADD(RETURN,PARAM) ;Entry point for VAFC VOA ADD PATIENT remote procedure
  • ICR #2798
    • Status: Retired
    • Usage: Private
  • ICR #5364
    • Status: Active
    • Usage: Private
  • ICR #6810
    • Status: Pending
    • Usage: Controlled Subscription
    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

    External References

    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

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,$NA(^XTMP(NODE,"DEBUG"))_" set to 1.",!
    • Line Location: DBON+5
    Function Call: WRITE
    • Prompt: !,$NA(^XTMP(NODE,"DEBUG"))_" killed.",!
    • Line Location: DBOFF+5
    Function Call: WRITE
    • Prompt: !,$NA(^XTMP($$NODE))_" killed.",!
    • Line Location: PURGE+4
    Routine Call
    • DIE
    • Line Location:
      • 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
    Routine Call
    • DIE
    • Line Location:
      • FILE+40
      • FILE+49
      • FILE+62
      • UPDNC+23
    Routine Call
    • DIE
    • Line Location:
      • ALIAS+23

    Used in RPC

    RPC Name Call Tags
    VAFC VOA ADD PATIENT ADD

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  CHK^DIE
    ^VA(20 - [#20] GETS^DIQ

    Global Variables Directly Accessed

    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*

    Label References

    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

    Naked Globals

    Name Field # of Occurrence
    ^(0 SETXTMP0+3

    Local Variables

    Legend:

    >> 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
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All