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

Package: Registration

Routine: DGADDUTL


Information

DGADDUTL ;ALB/PHH,EG,BAJ,ERC,CKN,TDM,LBD,JAM,ARF - PATIENT ADDRESS ; 19 Jul 2017 3:03 PM

Source Information

Source file <DGADDUTL.m>

Entry Points

Name Comments DBIA/ICR reference
ADDR ; validate/edit Patient address (entry for DG ADDRESS UPDATE option)
ADDRLOOP ;
ADD(DFN) ; validate/edit Patient address (entry point for routine DGREG)
; Input -- DFN
ADDYN(PROMPT) ; Yes/No Prompt to Edit/Validate Address
; Input -- None
; Output -- 1 = YES
; 2 = NO
; -1 = Aborted
UPDATE(DFN,TYPE) ; Update the Address
; Input -- TYPE = "PERM" for Permanent Address
; = "TEMP" for Temporary Address
; Output -- None
;
  • ICR #4886
    • Status: Active
    • Usage: Controlled Subscription
    UPDDTTM(DFN,TYPE) ; Update the PATIENT file #2 with the current date and time
    ADDRED(DFN,FLG) ; Address Edit (Code copied from DGREGAED and modified)
    GETPRIOR(DFN,DGPRIOR) ; Get prior address fields.
    GETUPDTS(DFN,DGINPUT) ; Get current address fields.
    FILEYN(DGOLD,DGNEW) ; Determine whether or not to file to #301.7
    FOREIGN(DFN,CIEN,FILE,FIELD,COUNTRY) ;
    ; ** NOTE we have to default the value for "US" into the prompt if it is blank
    UPDADDLG(DFN,DGPRIOR,DGINPUT) ; Update the IVM ADDRESS CHANGE LOG file #301.7
    EDITTADR(DFN) ; Edit Temporary Address
    GETTADR(DFN,DGPRIOR) ; Get prior temporary address fields.
    DISPTADR(DFN,DGARRY) ; Display Temporary Address
    COUNTRY(DGC) ;
    FOR(DGC) ;returns a 1 if address is foreign, a 0 if domestic, -1 if DGC is not valid
    ; DGC is the external value of the country (.01 field of file 779.004)
    CNTRYI(DGIEN) ;where DGC is the internal value of the country
    FORIEN(DGC) ;returns a 1 if address is foreign, a 0 if domestic, -1 if DGC is invalid

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: ADDRLOOP+2
    Function Call: WRITE
    • Prompt: !!,"Patient is being edited. Try again later."
    • Line Location: ADDRLOOP+9
    Function Call: WRITE
    • Prompt: !,DGLINE
    • Line Location: ADDRLOOP+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: ADDRLOOP+26
    Function Call: WRITE
    • Prompt: !?5,"Enter 'YES' to edit Patient's Address or 'NO' to continue."
    • Line Location: ADD+14
    Function Call: WRITE
    • Prompt: !,PROMPT
    • Line Location: ADDYN+7
    Function Call: WRITE
    • Prompt: @IOF,!!!
    • Line Location: ADDRED+12
    Function Call: WRITE
    • Prompt: !,"EXIT NOT ALLOWED"
    • Line Location: FOREIGN+9
    Function Call: WRITE
    • Prompt: !,"This is a required response."
    • Line Location: FOREIGN+10
    Function Call: WRITE
    • Prompt: !!
    • Line Location: EDITTADR+8
    Function Call: WRITE
    • Prompt: @IOF,!!!
    • Line Location: EDITTADR+18
    Function Call: WRITE
    • Prompt: !!,"Temporary Mailing Address: "
    • Line Location: DISPTADR+28
    Function Call: WRITE
    • Prompt: !?8,$S(DGPCODE'="":DGPCODE,1:"")_" "_$S(DGCITY'="":DGCITY,1:"")_$S(DGCITY'="":",",1:" ")_$S(DGPROV'="":DGPROV,1:"")
    • Line Location: DISPTADR+35
    Function Call: WRITE
    • Prompt: !?8,$S(DGCITY'="":DGCITY,1:"")_$S(DGCITY'="":",",1:" ")_$S(DGPROV'="":DGPROV,1:"")_" "_$S(DGPCODE'="":DGPCODE,1:"")
    • Line Location: DISPTADR+36
    Function Call: WRITE
    • Prompt: !," County: "_DGCOUNTY
    • Line Location: DISPTADR+40
    Function Call: WRITE
    • Prompt: !," Phone: "_DGPHONE
    • Line Location: DISPTADR+41
    Function Call: WRITE
    • Prompt: !,"From/To: "_$P(DGFROMDT,",")_","_$P(DGFROMDT,", ",2)_"-"_$P(DGTODT,",")_","_$P(DGTODT,", ",2)
    • Line Location: DISPTADR+42

    FileMan Files Accessed Via FileMan Db Call

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