Routine: GMTSMHCI

Information

GMTSMHCI ;SLC/WAT - HRMH PATIENT CONTACT INFO ;06/13/11 11:58

Source file <GMTSMHCI.m>

Name	Comments	DBIA/ICR reference
PRINT
CELL	;GET CELL #
WORK	;work ph # ; KDM 1/28/2014 GMTS2.7110 ; Replaced OAD^VADPT call with OPD^VADPT to return correct patient work phone number
HOME	;home phone
EMERGNOK	; emergency and NOK contacts.
REPORT	;write to screen

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	PRINT+1!, PRINT+4, PRINT+9, CELL+3, WORK+4, WORK+5, HOME+2, HOME+3, EMERGNOK+5, EMERGNOK+6* , EMERGNOK+7, EMERGNOK+8, EMERGNOK+9*, REPORT+2, REPORT+5, REPORT+6

Name	Field # of Occurrence
CNT	PRINT+2~, PRINT+4, PRINT+9, CELL+3, WORK+4, WORK+5, HOME+2, HOME+3, EMERGNOK+5, EMERGNOK+6 , EMERGNOK+7, EMERGNOK+8, EMERGNOK+9*
>> DFN	CELL+2
GMTSCELL	CELL+1~, CELL+2, CELL+3
>> GMTSQIT	REPORT+4
HMPHON	PRINT+2~
HOME	HOME+1~
I	EMERGNOK+1~, EMERGNOK+3*, EMERGNOK+4
LINE	REPORT+1~, REPORT+2, REPORT+3, REPORT+5, REPORT+6
NODATA	PRINT+2~, PRINT+3*, CELL+3, WORK+5, HOME+3, EMERGNOK+6, EMERGNOK+7, EMERGNOK+8
TAB	PRINT+2~, PRINT+5*, CELL+3, WORK+5, HOME+3, EMERGNOK+6, EMERGNOK+7, EMERGNOK+8
VAERR	WORK+4, HOME+1~, HOME+2, EMERGNOK+1~, EMERGNOK+4
VAOA	EMERGNOK+1~
VAOA("A"	EMERGNOK+4*, EMERGNOK+5
VAOA(10	EMERGNOK+7
VAOA(8	EMERGNOK+8
VAOA(9	EMERGNOK+6
VAPA	HOME+1~
VAPA(8	HOME+3
VAPD	WORK+3~
VAPD(8	WORK+5
WORK	WORK+3~