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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 6 (DISPADD,UPDADDLG,UPDDTTM)^DGADDUT2  $$CNTRYI^DGADDUTL  EN^DGREGAED  ^DGRPE  CHOICE^DGRPP  $$UPPER^DGUTL  
VA FileMan 5 ^DIC  YN^DICN  GETS^DIQ  ^DIR  ^DIWP  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 39

Package Total Caller Graph
Registration 29 DG ADDRESS UPDATE  DG10  DGADDLST  DGADDUT2  DGADDUTL  DGADDVAL  DGCNTRY  DGPTAE01  
DGPTF1  DGPTR1  DGPTRI1  DGREG  DGREGAED  DGREGARP  DGREGCP1  DGREGRED  
DGREGTE2  DGREGTED  DGRPC  DGRPC2  DGRPC3  DGRPCADD  DGRPD1  DGRPEIS  
DGRPEIS3  DGRPU  DPTLK7  VADPT1  VAFHLFNC  
Scheduling 4 SCMSVPID  SDAMEP2  SDPPAT2  SDROUT2  
Income Verification Match 3 IVMADDRP  IVMLDEM6  IVMLDEM9  
Enrollment Application System 2 EASAILK1  EASEZT1  
Outpatient Pharmacy 1 PSOBAI  

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

    External References

    Name Field # of Occurrence
    DISPADD^DGADDUT2 ADD+6
    UPDADDLG^DGADDUT2 UPDADDLG+2
    UPDDTTM^DGADDUT2 UPDDTTM+2
    $$CNTRYI^DGADDUTL FOREIGN+5
    EN^DGREGAED ADDRED+9
    ^DGRPE EDITTADR+16
    CHOICE^DGRPP EDITTADR+15
    $$UPPER^DGUTL COUNTRY+13, CNTRYI+11
    ^DIC ADDRLOOP+4
    YN^DICN ADDYN+8
    GETS^DIQ GETPRIOR+2, GETUPDTS+2, GETTADR+2
    ^DIR FOREIGN+7
    ^DIWP ADDRLOOP+16
    $$FMTE^XLFDT DISPTADR+24, DISPTADR+25

    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
    Routine Call
    • DIC
    • Line Location:
      • ADDRLOOP+4
    Routine Call
    • DIR
    • Line Location:
      • FOREIGN+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  GETS^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(5 - [#5] DISPTADR+12, DISPTADR+13, DISPTADR+17
    ^DPT - [#2] ADDRLOOP+9, ADDRLOOP+29, ADD+15
    ^HL(779.004 - [#779.004] COUNTRY+8, COUNTRY+10, COUNTRY+13, FOR+5, CNTRYI+6, CNTRYI+8, CNTRYI+11, FORIEN+6, FORIEN+7
    ^UTILITY($J ADDRLOOP+16!, ADDRLOOP+17, ADDRLOOP+18, ADDRLOOP+19!

    Label References

    Name Line Occurrences
    $$ADDYN ADD+11
    $$CNTRYI DISPTADR+22
    $$FORIEN FOREIGN+11, DISPTADR+21
    ADDR ADDRLOOP+9
    ADDRED UPDATE+10
    ADDRLOOP ADDRLOOP+30
    DISPTADR EDITTADR+7
    EDITTADR UPDATE+13
    GETTADR EDITTADR+6
    UPDATE ADDRLOOP+26, ADDRLOOP+27, ADD+16
    UPDDTTM EDITTADR+20

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % ADDR+1~, ADDYN+6~, ADDYN+9, ADDRED+6~
    ADDYN ADD+4~, ADD+7*, ADD+8, ADD+11*, ADD+12, ADD+13*, ADD+14, ADD+15
    CIEN FOREIGN~, FOREIGN+5
    COUNTRY FOREIGN~, FOREIGN+11*
    DA FOREIGN+2~, FOREIGN+4*
    DFN ADDR+1~, ADDRLOOP+3!, ADDRLOOP+8*, ADDRLOOP+9, ADDRLOOP+26, ADDRLOOP+27, ADDRLOOP+29, ADD~, ADD+6, ADD+15
    , ADD+16, UPDATE~, UPDATE+10, UPDATE+13, UPDDTTM~, UPDDTTM+2, ADDRED~, ADDRED+9, GETPRIOR~, GETPRIOR+2
    , GETPRIOR+4, GETUPDTS~, GETUPDTS+2, GETUPDTS+4, FOREIGN~, FOREIGN+4, UPDADDLG~, UPDADDLG+2, EDITTADR~, EDITTADR+2
    , EDITTADR+6, EDITTADR+7, EDITTADR+20, GETTADR~, GETTADR+2, GETTADR+4, DISPTADR~
    DGADDFG ADD+4~*, ADDRED+7, ADDRED+12, EDITTADR+10, EDITTADR+18
    DGADR1 DISPTADR+1~, DISPTADR+5*, DISPTADR+30
    DGADR2 DISPTADR+1~, DISPTADR+6*, DISPTADR+31
    DGADR3 DISPTADR+1~, DISPTADR+7*, DISPTADR+32
    DGADRACT DISPTADR+1~, DISPTADR+4*, DISPTADR+16, DISPTADR+29
    DGARRY GETPRIOR+1~, GETUPDTS+1~, GETTADR+1~, DISPTADR~
    DGARRY( DISPTADR+4, DISPTADR+5, DISPTADR+6, DISPTADR+7, DISPTADR+8, DISPTADR+9, DISPTADR+10, DISPTADR+11, DISPTADR+18, DISPTADR+19
    , DISPTADR+20, DISPTADR+23, DISPTADR+24, DISPTADR+25, DISPTADR+44, DISPTADR+45, DISPTADR+46
    DGARRY("NEW" GETUPDTS+4*, GETUPDTS+5
    DGARRY("OLD" GETPRIOR+4*, GETPRIOR+5, GETTADR+4*, GETTADR+5
    DGC COUNTRY~, COUNTRY+6*, COUNTRY+8, FOR~, FOR+4, FOR+5, FOR+6, FORIEN~, FORIEN+4, FORIEN+5
    , FORIEN+6, FORIEN+7
    DGCC COUNTRY+4~, COUNTRY+10*, COUNTRY+12, COUNTRY+13*, COUNTRY+14, CNTRYI+4~, CNTRYI+8*, CNTRYI+10, CNTRYI+11*, CNTRYI+12
    DGCH EDITTADR+1~, EDITTADR+14*
    DGCIEN GETPRIOR+1~, GETTADR+1~
    DGCITY DISPTADR+1~, DISPTADR+8*, DISPTADR+34, DISPTADR+36
    DGCNT ADDRLOOP+1~, ADDRLOOP+17*, ADDRLOOP+18
    DGCNTRY DISPTADR+2~, DISPTADR+20*, DISPTADR+21, DISPTADR+22*
    DGCNTY GETPRIOR+1~, GETTADR+1~
    DGCOUNTY DISPTADR+2~, DISPTADR+11*, DISPTADR+12, DISPTADR+13*, DISPTADR+16*, DISPTADR+40
    DGCURR GETPRIOR+1~, GETUPDTS+1~, GETTADR+1~
    DGCURR(2 GETPRIOR+4, GETUPDTS+4, GETTADR+4
    DGDR EDITTADR+1~, EDITTADR+14*
    DGFOR FOR+2~, FOR+3*, FOR+4, FOR+6*, FOR+7, FORIEN+2~, FORIEN+3*, FORIEN+4, FORIEN+7*, FORIEN+8
    DGFORN DISPTADR+2~, DISPTADR+21*, DISPTADR+33, DISPTADR+36
    DGFROMDT DISPTADR+2~, DISPTADR+24*, DISPTADR+42
    DGIEN COUNTRY+4~, COUNTRY+8*, COUNTRY+10, COUNTRY+13, CNTRYI~, CNTRYI+5, CNTRYI+6, CNTRYI+8, CNTRYI+11
    DGINPUT ADDRED+6~, GETUPDTS~, GETUPDTS+5*, UPDADDLG~, UPDADDLG+2
    DGLINE ADDRLOOP+1~, ADDRLOOP+18*
    DGLN ADDRLOOP+1~, ADDRLOOP+18*
    DGN GETPRIOR+1~, GETPRIOR+3*, GETPRIOR+4, GETUPDTS+1~, GETUPDTS+3*, GETUPDTS+4, GETTADR+1~, GETTADR+3*, GETTADR+4
    DGNEW FILEYN~
    DGNEW( FILEYN+4, FILEYN+5, FILEYN+6, FILEYN+7, FILEYN+8, FILEYN+9, FILEYN+10, FILEYN+11, FILEYN+12, FILEYN+13
    , FILEYN+14, FILEYN+15
    DGOLD FILEYN~
    DGOLD( FILEYN+4, FILEYN+5, FILEYN+6, FILEYN+7, FILEYN+8, FILEYN+9, FILEYN+10, FILEYN+11, FILEYN+12, FILEYN+13
    , FILEYN+14, FILEYN+15
    DGPCODE DISPTADR+2~, DISPTADR+19*, DISPTADR+36
    DGPHONE DISPTADR+2~, DISPTADR+23*, DISPTADR+41
    DGPRIOR GETPRIOR~, GETPRIOR+5*, UPDADDLG~, UPDADDLG+2, EDITTADR+1~, EDITTADR+6, EDITTADR+7, GETTADR~, GETTADR+5*
    DGPROV DISPTADR+2~, DISPTADR+18*, DISPTADR+36
    DGRPAN EDITTADR+1~, EDITTADR+14*
    DGRPS EDITTADR+1~, EDITTADR+14*
    DGST GETPRIOR+1~, GETTADR+1~
    DGSTATE DISPTADR+1~, DISPTADR+9*, DISPTADR+12, DISPTADR+13, DISPTADR+17*, DISPTADR+34
    DGTMOT ADD+18, ADDRED+7~*, ADDRED+12, EDITTADR+10~*, EDITTADR+18
    DGTODT DISPTADR+2~, DISPTADR+25*, DISPTADR+42
    DGZIP DISPTADR+1~, DISPTADR+10*, DISPTADR+34
    DIC ADDR+1~, ADDRLOOP+3!, ADDRLOOP+4*
    DIC("A" ADDRLOOP+4*
    DIC(0 ADDRLOOP+4*
    DIR FOREIGN+2~
    DIR("B" FOREIGN+5*
    DIR(0 FOREIGN+4*
    DIROUT FOREIGN+2~, FOREIGN+9
    >> DIRUT FOREIGN+10
    DIWF ADDRLOOP+1~, ADDRLOOP+16*
    DIWL ADDRLOOP+1~, ADDRLOOP+16*
    DIWR ADDRLOOP+1~, ADDRLOOP+16*
    DONE FOREIGN+2~, FOREIGN+4*, FOREIGN+6, FOREIGN+8*, FOREIGN+11*
    DTOUT ADDRLOOP+5, FOREIGN+2~, FOREIGN+8
    DUOUT ADDRLOOP+5, FOREIGN+2~, FOREIGN+9
    FIELD FOREIGN~, FOREIGN+3*, FOREIGN+4
    FILE FOREIGN~, FOREIGN+3*, FOREIGN+4
    FLG UPDATE+9~, UPDATE+10, ADDRED~, ADDRED+9
    FLG(1 UPDATE+9*
    FLG(2 UPDATE+9*
    FORGN FOREIGN+2~, FOREIGN+8*, FOREIGN+11*, FOREIGN+12
    I ADDRED+6~
    INDX FOREIGN+2~
    IOF ADDRED+12, EDITTADR+18
    PROMPT ADDYN~, ADDYN+7
    QUIT ADDR+1~, ADDRLOOP+8*, ADDRLOOP+10, ADDRLOOP+22*, ADDRLOOP+28*
    RETVAL ADD+4~, ADD+7*, ADD+12*, ADD+13*, ADD+18*, ADD+19*, ADD+20, FILEYN+1~, FILEYN+2*, FILEYN+4*
    , FILEYN+5*, FILEYN+6*, FILEYN+7*, FILEYN+8*, FILEYN+9*, FILEYN+10*, FILEYN+11*, FILEYN+12*, FILEYN+13*, FILEYN+14*
    , FILEYN+15*, FILEYN+16
    SRC ADDRED+6~, ADDRED+8*, ADDRED+9
    TYPE UPDATE~, UPDATE+5, UPDATE+6, UPDATE+12, UPDDTTM~, UPDDTTM+2, EDITTADR+20
    U COUNTRY+10, COUNTRY+13, CNTRYI+8, CNTRYI+11
    USERSEL ADDR+1~, ADDRLOOP+3!, ADDRLOOP+20*, ADDRLOOP+21*, ADDRLOOP+22, ADDRLOOP+23*, ADDRLOOP+24, ADDRLOOP+26, ADDRLOOP+27
    X ADDRLOOP+1~, ADDRLOOP+14*, ADDRED+6~
    Y ADDR+1~, ADDRLOOP+3!, ADDRLOOP+6, ADDRLOOP+8, ADDRED+6~, FOREIGN+11
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All