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+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

    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+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
    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+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*

    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+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

    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+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
    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