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-PATIENT ADDRESS ; 4/2/09 2:29pm

Source Information

Source file <DGADDUTL.m>

Call Graph

Call Graph Total: 11

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

Caller Graph

Caller Graph Total: 27

Package Total Caller Graph
Registration 22 DG ADDRESS UPDATE  DG10  DGADDUT2  DGADDUTL  DGCNTRY  DGPTAE01  DGPTF1  DGPTR1  
DGREG  DGREGAED  DGREGARP  DGREGTE2  DGREGTED  DGRP1  DGRPC  DGRPC2  
DGRPC3  DGRPCADD  DGRPD  DGRPEIS  DGRPEIS3  VADPT1  
Scheduling 4 SCMSVPID  SDAMEP2  SDPPAT2  SDROUT2  
Outpatient Pharmacy 1 PSOBAI  

Entry Points

Name Comments DBIA/ICR reference
ADDRLOOP ;
ADDR ; validate/edit Patient address (entry for DG ADDRESS UPDATE option)
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
ADDYN(PROMPT) ; Yes/No Prompt to Edit/Validate Address
; Input -- None
; Output -- 1 = YES
; 2 = NO
; -1 = Aborted
GETTADR(DFN,DGPRIOR) ; Get prior temporary address fields.
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)
EDITTADR(DFN) ; Edit Temporary Address
ADD(DFN) ; validate/edit Patient address (entry point for routine DGREG)
; Input -- DFN
GETPRIOR(DFN,DGPRIOR) ; Get prior address fields.
FORIEN(DGC) ;returns a 1 if address is foreign, a 0 if domestic, -1 if DGC is invalid
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
    UPDADDLG(DFN,DGPRIOR,DGINPUT) ; Update the IVM ADDRESS CHANGE LOG file #301.7
    COUNTRY(DGC) ;
    CNTRYI(DGIEN) ;where DGC is the internal value of the country
    ADDRED(DFN,FLG) ; Address Edit (Code copied from DGREGAED and modified)
    UPDDTTM(DFN,TYPE) ; Update the PATIENT file #2 with the current date and time
    GETUPDTS(DFN,DGINPUT) ; Get current address fields.
    DISPTADR(DFN,DGARRY) ; Display Temporary Address

    External References

    Name Field # of Occurrence
    UPDADDLG^DGADDUT2 UPDADDLG+2
    UPDDTTM^DGADDUT2 UPDDTTM+2
    $$CNTRYI^DGADDUTL FOREIGN+5
    EN^DGREGAED ADDRED+8
    ^DGRPE EDITTADR+12
    CHOICE^DGRPP EDITTADR+11
    $$UPPER^DGUTL COUNTRY+13, CNTRYI+11
    ^DIC ADDRLOOP+3
    YN^DICN ADDYN+8
    GETS^DIQ GETPRIOR+2, GETUPDTS+2, GETTADR+2
    ^DIR FOREIGN+7
    $$FMTE^XLFDT DISPTADR+22, DISPTADR+23

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!
    • Line Location: ADDRLOOP+1
    Function Call: WRITE
    • Prompt: !!,"Patient is being edited. Try again later."
    • Line Location: ADDRLOOP+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: ADDRLOOP+17
    Function Call: WRITE
    • Prompt: !?5,"Enter 'YES' to validate/edit Patient's Address or 'NO' to continue."
    • Line Location: ADD+9
    Function Call: WRITE
    • Prompt: !,PROMPT
    • Line Location: ADDYN+7
    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: !!,"Temporary Address: "
    • Line Location: DISPTADR+25
    Function Call: WRITE
    • Prompt: !?9,$S(DGPCODE'="":DGPCODE,1:"")_" "_$S(DGCITY'="":DGCITY,1:"")_$S(DGCITY'="":",",1:" ")_$S(DGPROV'="":DGPROV,1:"")
    • Line Location: DISPTADR+32
    Routine Call
    • DIC
    • Line Location:
      • ADDRLOOP+3
    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+15
    ^DPT - [#2] ADDRLOOP+8, ADDRLOOP+20, ADD+10
    ^HL(779.004 - [#779.004] COUNTRY+8, COUNTRY+10, COUNTRY+13, FOR+5, CNTRYI+6, CNTRYI+8, CNTRYI+11, FORIEN+6, FORIEN+7

    Label References

    Name Line Occurrences
    $$ADDYN ADD+6
    $$CNTRYI DISPTADR+20
    $$FORIEN FOREIGN+11, DISPTADR+19
    ADDR ADDRLOOP+8
    ADDRED UPDATE+9
    ADDRLOOP ADDRLOOP+21
    DISPTADR EDITTADR+7
    EDITTADR UPDATE+12
    GETTADR EDITTADR+6
    UPDATE ADDRLOOP+17, ADDRLOOP+18, ADD+11
    UPDDTTM ADDRED+11, EDITTADR+14

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % ADDR+1~, ADDYN+6~, ADDYN+9, ADDRED+6~
    ADDYN ADD+3~, ADD+4*, ADD+5, ADD+6*, ADD+7, ADD+8*, ADD+9, ADD+10
    CIEN FOREIGN~, FOREIGN+5
    COUNTRY FOREIGN~, FOREIGN+11*
    DA FOREIGN+2~, FOREIGN+4*
    DFN ADDR+1~, ADDRLOOP+2!, ADDRLOOP+7*, ADDRLOOP+8, ADDRLOOP+17, ADDRLOOP+18, ADDRLOOP+20, ADD~, ADD+10, ADD+11
    , UPDATE~, UPDATE+9, UPDATE+12, UPDDTTM~, UPDDTTM+2, ADDRED~, ADDRED+8, ADDRED+11, GETPRIOR~, GETPRIOR+2
    , GETPRIOR+4, GETUPDTS~, GETUPDTS+2, GETUPDTS+4, FOREIGN~, FOREIGN+4, UPDADDLG~, UPDADDLG+2, EDITTADR~, EDITTADR+2
    , EDITTADR+6, EDITTADR+7, EDITTADR+14, GETTADR~, GETTADR+2, GETTADR+4, DISPTADR~
    DGADR1 DISPTADR+1~, DISPTADR+5*, DISPTADR+27
    DGADR2 DISPTADR+1~, DISPTADR+6*, DISPTADR+28
    DGADR3 DISPTADR+1~, DISPTADR+7*, DISPTADR+29
    DGADRACT DISPTADR+1~, DISPTADR+4*, DISPTADR+14, DISPTADR+26
    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+16, DISPTADR+17
    , DISPTADR+18, DISPTADR+21, DISPTADR+22, DISPTADR+23, DISPTADR+38, DISPTADR+39, DISPTADR+40
    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+10*
    DGCIEN GETPRIOR+1~, GETTADR+1~
    DGCITY DISPTADR+1~, DISPTADR+8*, DISPTADR+31, DISPTADR+32, DISPTADR+33
    DGCNTRY DISPTADR+2~, DISPTADR+18*, DISPTADR+19, DISPTADR+20*
    DGCNTY GETPRIOR+1~, GETTADR+1~
    DGCOUNTY DISPTADR+2~, DISPTADR+11*, DISPTADR+12, DISPTADR+13*, DISPTADR+14*, DISPTADR+34
    DGCURR GETPRIOR+1~, GETUPDTS+1~, GETTADR+1~
    DGCURR(2 GETPRIOR+4, GETUPDTS+4, GETTADR+4
    DGDR EDITTADR+1~, EDITTADR+10*
    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+19*, DISPTADR+30, DISPTADR+32
    DGFROMDT DISPTADR+2~, DISPTADR+22*, DISPTADR+36
    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
    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+17*, DISPTADR+32
    DGPHONE DISPTADR+2~, DISPTADR+21*, DISPTADR+35
    DGPRIOR GETPRIOR~, GETPRIOR+5*, UPDADDLG~, UPDADDLG+2, EDITTADR+1~, EDITTADR+6, EDITTADR+7, GETTADR~, GETTADR+5*
    DGPROV DISPTADR+2~, DISPTADR+16*, DISPTADR+32
    DGRPAN EDITTADR+1~, EDITTADR+10*
    DGRPS EDITTADR+1~, EDITTADR+10*
    DGST GETPRIOR+1~, GETTADR+1~
    DGSTATE DISPTADR+1~, DISPTADR+9*, DISPTADR+12, DISPTADR+13, DISPTADR+15*, DISPTADR+31, DISPTADR+33
    DGTODT DISPTADR+2~, DISPTADR+23*, DISPTADR+36
    DGZIP DISPTADR+1~, DISPTADR+10*, DISPTADR+31, DISPTADR+33
    DIC ADDR+1~, ADDRLOOP+2!, ADDRLOOP+3*
    DIC("A" ADDRLOOP+3*
    DIC(0 ADDRLOOP+3*
    DIR FOREIGN+2~
    DIR("B" FOREIGN+5*
    DIR(0 FOREIGN+4*
    DIROUT FOREIGN+2~, FOREIGN+9
    >> DIRUT FOREIGN+10
    DONE FOREIGN+2~, FOREIGN+4*, FOREIGN+6, FOREIGN+8*, FOREIGN+11*
    DTOUT ADDRLOOP+4, FOREIGN+2~, FOREIGN+8
    DUOUT ADDRLOOP+4, FOREIGN+2~, FOREIGN+9
    FIELD FOREIGN~, FOREIGN+3*, FOREIGN+4
    FILE FOREIGN~, FOREIGN+3*, FOREIGN+4
    FLG UPDATE+8~, UPDATE+9, ADDRED~, ADDRED+8
    FLG(1 UPDATE+8*
    FLG(2 UPDATE+8*
    FORGN FOREIGN+2~, FOREIGN+8*, FOREIGN+11*, FOREIGN+12
    I ADDRED+6~
    INDX FOREIGN+2~
    PROMPT ADDYN~, ADDYN+7
    QUIT ADDR+1~, ADDRLOOP+7*, ADDRLOOP+9, ADDRLOOP+13*, ADDRLOOP+19*
    RETVAL ADD+3~, ADD+4*, ADD+7*, ADD+8*, ADD+12*, ADD+13, 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+7*, ADDRED+8
    TYPE UPDATE~, UPDATE+5, UPDATE+6, UPDATE+11, UPDDTTM~, UPDDTTM+2, ADDRED+11, EDITTADR+14
    U COUNTRY+10, COUNTRY+13, CNTRYI+8, CNTRYI+11
    USERSEL ADDR+1~, ADDRLOOP+2!, ADDRLOOP+11*, ADDRLOOP+12*, ADDRLOOP+13, ADDRLOOP+14*, ADDRLOOP+15, ADDRLOOP+17, ADDRLOOP+18
    X ADDRED+6~
    Y ADDR+1~, ADDRLOOP+2!, ADDRLOOP+5, ADDRLOOP+7, 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