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 |  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 ;14 Apr 2021 5:08 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  

Entry Points

Name Comments DBIA/ICR reference
ADD(RETURN,PARAM) ;Add an entry to the PATIENT (#2) file for VOA
  • 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+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

    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+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
    Routine Call
    • DIE
    • Line Location:
      • FILE+40
      • FILE+49
      • FILE+62
      • UPDNC+18
    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+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*

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

    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+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
    Info |  Source |  Call 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