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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: EASAILK1

Package: Enrollment Application System

Routine: EASAILK1


Information

EASAILK1 ;ALB/BRM,ERC,JAM,ARF - Patient Address Inquiry ;18 Jul 2017 4:03 PM

Source Information

Source file <EASAILK1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 HOME^%ZIS  ^%ZISC  EN^XUTMDEVQ  
VA FileMan 3 ^DIC  GETS^DIQ  ^DIR  
Registration 1 $$COUNTRY^DGADDUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Enrollment Application System 1 EAS VIEW PATIENT ADDRESS  

Entry Points

Name Comments DBIA/ICR reference
PATADDR ;view patient address
QUE ;
PAT ;patient address
CON ;confidential address
CON2 ;
TMP ;temporary address
TMP2 ;
; EAS*1.0*151; JAM; Add Residential Address
RES ;gather residential address
RES2 ;
OPT ;let user decide to see confid. a/o temp address, residential address if disp. on screen
OK(ARR,OK) ;check for presence of an array
STRG(STR,STRARR) ;set the field string into an array
DISP(TYPE,ARR,STR) ;
END ; common exit point - reset device and prompt user for another name

External References

Name Field # of Occurrence
HOME^%ZIS END+1
^%ZISC END+1
$$COUNTRY^DGADDUTL DISP+19
^DIC PATADDR+6
GETS^DIQ PAT+2, CON+3, TMP+3, RES+3
^DIR OPT+23
EN^XUTMDEVQ PATADDR+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?23,"Patient Name: ",?37,PATNAM
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !!?11,"There is invalid data in the Mailing Address",!?11,"Please use Registration options to edit",!!
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: !!?11,"*** No Mailing Address On File For This Patient ***",!!
  • Line Location: PAT+14
Function Call: WRITE
  • Prompt: !?5,PATNAM_" has no Temporary, Confidential or ",!?5,"Residential Address."
  • Line Location: OPT+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: OPT+10
Function Call: WRITE
  • Prompt: !?11,"There is invalid data in the "_$S(DGOPT=8:"Temporary and Confidential ",DGOPT=9:"Confidential ",10:"Temporary ")_"address"_$S(DGOPT=8:"es.",1:".")
  • Line Location: OPT+12
Function Call: WRITE
  • Prompt: !?11,"Please use Registration options to edit.",!!
  • Line Location: OPT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OPT+30
Function Call: WRITE
  • Prompt: !!?23,"Patient Name: ",?37,PATNAM
  • Line Location: OPT+31
Function Call: READ
  • Formatting: !
  • Prompt: "Enter <RETURN> to continue."
  • Variable: DGRET
  • Timeout: DTIME
  • Line Location: OPT+37
Function Call: WRITE
  • Prompt: !
  • Line Location: OPT+37
Function Call: WRITE
  • Prompt: !?8,"Patient "_PATNAM_" has no Confidential Mailing Address."
  • Line Location: OPT+40
Function Call: WRITE
  • Prompt: !?8,"Patient "_PATNAM_" has no Temporary Mailing Address."
  • Line Location: OPT+41
Function Call: WRITE
  • Prompt: !?8,"Patient "_PATNAM_" has no Residential Address."
  • Line Location: OPT+42
Function Call: WRITE
  • Prompt: !
  • Line Location: OPT+43
Function Call: WRITE
  • Prompt: !?10,TYPE_" Address: ",?37,$S($G(ARR(2,IENS,$G(STR(1)),"E"))]"":ARR(2,IENS,STR(1),"E"),1:"UNKNOWN STREET ADDRESS")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !?37,$S($G(ARR(2,IENS,STR(4),"E"))]"":ARR(2,IENS,STR(4),"E"),1:"UNKNOWN CITY")_", "
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: $S($G(ARR(2,IENS,STR(5),"E"))]"":ARR(2,IENS,STR(5),"E"),1:"UNKNOWN STATE")_" "
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !?37,""
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: $S($G(ARR(2,IENS,STR(4),"E"))]"":ARR(2,IENS,STR(4),"E"),1:"UNKNOWN CITY")_", "
  • Line Location: DISP+15
Function Call: WRITE
  • Prompt: $S($G(ARR(2,IENS,STR(14),"E"))]"":ARR(2,IENS,STR(14),"E"),1:"UNKNOWN PROVINCE")_" "
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: !?37,DGCNTRY
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !?14,"Bad Address Indicator: ",?37,$G(ARR(2,IENS,STR(8),"E"))
  • Line Location: DISP+23
Function Call: WRITE
  • Prompt: !?2,TYPE_" Add Change Date: ",?37,$G(ARR(2,IENS,STR(9),"E"))
  • Line Location: DISP+24
Function Call: WRITE
  • Prompt: !?10,"Mailing Add Change Source: ",?37,$G(ARR(2,IENS,STR(10),"E"))
  • Line Location: DISP+25
Function Call: WRITE
  • Prompt: !,TYPE_" Add Change Source: ",?37,$G(ARR(2,IENS,STR(10),"E"))
  • Line Location: DISP+26
Function Call: WRITE
  • Prompt: !?3,TYPE_" Add Start Date: ",?37,$G(ARR(2,IENS,STR(12),"E"))
  • Line Location: DISP+29
Function Call: WRITE
  • Prompt: !?5,TYPE_" Add End Date: ",?37,$G(ARR(2,IENS,STR(13),"E"))
  • Line Location: DISP+30
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+31
Routine Call
  • %ZIS
  • Line Location:
    • END+1
Routine Call
  • DIC
  • Line Location:
    • PATADDR+6
Routine Call
  • DIR
  • Line Location:
    • OPT+23

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
CON PAT+7, PAT+14
CON2 CON+9
DISP PAT+24, OPT+34, OPT+35, OPT+38
END OPT+10, OPT+25, OPT+44
OK PAT+11, CON+6, TMP+7, RES+7
OPT RES+5, RES+10, RES+11, RES2+1
PATADDR END+2
RES TMP+5, TMP+8, TMP+9, TMP2+2
RES2 RES+9
STRG PAT+18, CON2+10, TMP2+6, RES2+5
TMP CON+4, CON+7, CON+10, CON+11, CON2+6
TMP2 TMP+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PATADDR+3~, PATADDR+8*, PATADDR+11, END+1!
ARR OK~, DISP~
ARR(2 OK+1, DISP+3, DISP+4, DISP+5, DISP+6, DISP+7, DISP+9, DISP+10, DISP+11, DISP+14
, DISP+15, DISP+16, DISP+17, DISP+18, DISP+23, DISP+24, DISP+25, DISP+26, DISP+27, DISP+28
, DISP+29, DISP+30
CONARR QUE+1~, CON+1~, CON+6, OPT+34
CONARR( CON2+3, CON2+4, CON2+5
CONARR(2 CON+7, CON+9, CON+10, CON+11
CONERR QUE+1~, CON+1~, CON+4
CONFARR QUE+2~, CON2+9~, CON2+10, OPT+34
CONOK QUE+1~, CON+1~, CON+2*, CON+4*, CON+6, CON+7*, CON+10*, CON+11*, CON2+2*, CON2+5*
, CON2+6, OPT+5, OPT+7, OPT+8, OPT+34, OPT+40
CONSTR QUE+2~, CON2+8*, CON2+10
DA PATADDR+3~
DGC QUE+1~, PAT+22*, OPT+26*, OPT+29
DGCNTRY DISP+1~, DISP+18*, DISP+19*, DISP+20
DGD STRG+1~, STRG+2*
DGELIG OPT+1~, OPT+18*, OPT+19
DGEND OPT+1~, OPT+2*, OPT+21*, OPT+24*, OPT+25
DGJ CON+1~, CON2+1*, CON2+3*, CON2+4, CON2+5
DGOPT OPT+1~, OPT+5*, OPT+7*, OPT+8*, OPT+10, OPT+11, OPT+12, OPT+19, OPT+20, OPT+22
, OPT+37
DGPROMPT OPT+1~, OPT+19*, OPT+20*, OPT+21, OPT+22
DGRET OPT+1~, OPT+37*
DGUSA DISP+1~, DISP+2*, DISP+3*, DISP+4*, DISP+8, DISP+12
DIC PATADDR+3~, PATADDR+6*
DIC(0 PATADDR+6*
DIQ PATADDR+3~
DIR OPT+1~, OPT+23!
DIR("A" OPT+22*
DIR("B" OPT+15*
DIR(0 OPT+15*
DIROUT PATADDR+3~, PATADDR+7
DIRUT PATADDR+3~, PATADDR+7
DLAYGO PATADDR+3~
DT CON+9, CON+10, CON+11, TMP+11, TMP+12, RES+9, RES+10, RES+11
DTIME OPT+37
DTOUT PATADDR+3~, PATADDR+7
DUOUT PATADDR+3~, PATADDR+7
FLD QUE+1~, PAT+10*, CON+5*, TMP+6*, RES+6*, OK+1*
IENS PATADDR+2~, PATADDR+9*, PAT+2, CON+3, CON+7, CON+9, CON+10, CON+11, TMP+3, TMP+9
, TMP+11, TMP+12, RES+3, RES+9, RES+10, RES+11, OK+1, DISP+3, DISP+4, DISP+5
, DISP+6, DISP+7, DISP+9, DISP+10, DISP+11, DISP+14, DISP+15, DISP+16, DISP+17, DISP+18
, DISP+23, DISP+24, DISP+25, DISP+26, DISP+27, DISP+28, DISP+29, DISP+30
IOF OPT+30
IOST OPT+14, OPT+30, OPT+37
OK OK~, OK+1*
PATARR QUE+1~, PAT+11, PAT+24
PATERR QUE+1~, PAT+7
PATNAM PATADDR+2~, PATADDR+9*, PAT+3, OPT+10, OPT+31, OPT+40, OPT+41, OPT+42
PATOK QUE+1~, PAT+1~, PAT+10*, PAT+11, PAT+14
PATSTR QUE+2~, PAT+16*, PAT+18
RESARR RES+1~, RES+7, OPT+38
RESARR(2 RES+9, RES+10, RES+11
RESERR RES+1~, RES+5
RESIDARR RES2+4~, RES2+5, OPT+38
RESOK RES+1~, RES+2*, RES+5*, RES+7, RES+10*, RES+11*, RES2+1, OPT+4, OPT+38, OPT+42
RESSTR RES+1~, RES2+3*, RES2+5
STR STRG~, STRG+2, DISP~
STR(1 DISP+5
STR(10 DISP+25, DISP+26, DISP+27
STR(11 DISP+27, DISP+28
STR(12 DISP+29
STR(13 DISP+30
STR(14 DISP+16
STR(15 DISP+14
STR(2 DISP+6
STR(3 DISP+7
STR(4 DISP+9, DISP+15
STR(5 DISP+10
STR(6 DISP+11
STR(7 DISP+3, DISP+4, DISP+17, DISP+18
STR(8 DISP+23
STR(9 DISP+24
STRARR PAT+17~, PAT+18, PAT+24, STRG~
STRARR( STRG+2*
TEMPARR QUE+2~, TMP2+3~, TMP2+6, OPT+35
TMPARR QUE+1~, TMP+1~, TMP+7, OPT+35
TMPARR(2 TMP+9, TMP+11, TMP+12
TMPERR QUE+1~, TMP+1~, TMP+5
TMPOK QUE+1~, TMP+1~, TMP+2*, TMP+5*, TMP+7, TMP+8, TMP+9*, TMP+12*, TMP2+2, OPT+5
, OPT+7, OPT+8, OPT+35, OPT+41
TMPSTR QUE+2~, TMP2+5*, TMP2+6
TYPE QUE+2~, PAT+21*, PAT+24, OPT+34*, OPT+35*, OPT+38*, DISP~, DISP+5, DISP+23, DISP+24
, DISP+25, DISP+26, DISP+27, DISP+28, DISP+29, DISP+30
U STRG+2
X PATADDR+3~
Y PATADDR+3~, PATADDR+7, PATADDR+9, OPT+24
ZTSAVE PATADDR+2~, PATADDR+11
ZTSAVE("IENS" PATADDR+10*
ZTSAVE("PATNAM" PATADDR+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All