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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: VAFCPTED

Package: Registration

Routine: VAFCPTED


Information

VAFCPTED ;ISA/RJS,Zoltan-EDIT EXISTING PATIENT ;4/15/22 16:30

Source Information

Source file <VAFCPTED.m>

Entry Points

Name Comments DBIA/ICR reference
EDIT(DGDFN,ARRAY,STRNGDR) ;-- Edits existing patient
  • ICR #2784
    • Status: Active
    • Usage: Controlled Subscription
    LOAD ; -- Loads fields to patient file
    UPDNC(DGDFN,NAME) ;
    ALIAS ;update Alias multiple **756
    ALIASNC(ARRAY,DGDFN,RGER) ;Compare incoming Alias Name Components with existing Alias Name Components and add or delete as necessary
    BLDERR(MSGROOT) ;Build an error from the error message array
    FMTNAME(ARRAY,LEN) ;Return a formatted name from cleaned Name Components that doesn't exceed LEN characters in length.
    GETFLAG() ;Get the value of the name components flag
    UPDSEXOR(ARRAY,DGDFN,RGER) ;**1059, VAMPI-11114 (dri) compare incoming sexual orientation multiple with existing and add/update
    UPDPRON(ARRAY,DGDFN,RGER) ;**1059, VAMPI-11118 (dri) compare incoming pronoun multiple with existing and add/update
    ; Input:
    ; ARRAY = ARAY(2)
    ; ARAY(2,.2406,n) = pronoun code
    ; DGDFN = patient's dfn

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call