Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | 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>

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

    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

    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
    Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All