Routine: GMVFIXHL

Information

GMVFIXHL ;HIOFO/FT - HOSPITAL LOCATION FIX ;10/20/09 11:42

Name	Comments	DBIA/ICR reference
EN	;
QUEUE	; The problem started when GMRV5.03 was installed. ; a) Find date patch 3 was installed. Go back a little farther to be safe. ; b) Loop through FILE 120.5. ; c) Ignore if not inpatient. ; d) Check hospital location pointer of the Vitals record. ; e)Determine if pointer can/needs to be changed.
SETHL(NEWHL,IEN,OLDHL)	; Set hospital location pointer (.05) field in 120.5. ; Returns a line of text ; NEWHL = New File 44 pointer ; IEN = File 120.5 record ien ; OLDHL = Old File 44 pointer
INP	;get inpatient location
EMAIL(GMVTXT)	; Send a MailMan message
HDR(GMVX,GMVY)	; Send record to Health Data Repository (HDR) ; Input: GMVX - FILE 120.5 IEN ; GMVY - DFN ; Output: none

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Start Date/time: "_GMVBEG Line Location: QUEUE+85
Function Call: WRITE	Prompt: !," Finish Date/time: "_GMVEND Line Location: QUEUE+86
Function Call: WRITE	Prompt: !," Number of records checked: "_GMVTOTAL Line Location: QUEUE+87
Function Call: WRITE	Prompt: !," Number of records changed: "_GMVTOT Line Location: QUEUE+88
Function Call: WRITE	Prompt: !,"Number of records that could not be changed: "_GMVECNT Line Location: QUEUE+89