EASAILK1 ;ALB/BRM,ERC,JAM,ARF - Patient Address Inquiry ;18 Jul 2017 4:03 PM
Source file <EASAILK1.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, GETS^DIQ |