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: 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>

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

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

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