IVMPREC9 ;ALB/KCL,BRM,CKN,TDM,KUM,JAM,KUM - PROCESS INCOMING (Z05 EVENT TYPE) HL7 MESSAGES (CON'T) ;09-10-2024 10:03am
Source file <IVMPREC9.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ZCT | ; - compare ZCT with DHCP ; IVM*2.0*192;JAM ; Tag ZCT moved from IVMPREC8
|
|
| STORE | ; - store HL7 fields that have a different value than DHCP fields in
; the IVM Patient (#301.5) file (#301.511) multiple for uploading |
|
| STORE2 | ;
; - X as the record in the IVM Demo Upload Fields (#301.92) file |
|
| LOOK | ; Find the current DHCP field value.
; Input: DR -- Field number of the field in file #2 ; DFN -- Pointer to the patient in file #2 ; Output: Y -- Internal value of field |
|
| AUTOEPC(DFN,UPDEPC) | ;
; this functionality is copied from IVMLDEM6 and modified to allow ; an automated upload of patient communications information ; Input: DFN - as patient IEN ; UPDEPC - array contains flag for update/noupdate for all ; communication types. ; Output: IVMFLAG - 1 if communications fields updated ; 0 if communications fields not updated |
|
| AUTORINC(DFN) | ;
; application to automatically upload Rated Incompetent data ; Input: DFN - Patient IEN |
|
| PHONE | ; - ask user to delete phone # [Residence] from Patient (#2) file
; This tag is moved here from IVMLDEM6 due to routine size limit |
|
| AUTOAUP(DFN,UPDAUP,UPDAUPG) | ;
; automated upload of misc information ; Input: DFN - patient IEN ; UPDAUP - array contains fields for auto-upload ; UPDAUPG - array contains field group flag for auto-upload |
|
| AUTOAUPM(DFN,IVM30192,IVMVALUE) | ;
; Input: DFN - as patient IEN ; IVM30192 - as '0' node of the 301.92 entry ; IVMVALUE - as the value of the field |
|
| PID12 | ;IVM*2.0*187 Called from IVMPREC8 to reset FORADDR
|
|
| AUTOLANG(DFN) | ;IVM*2.0*210
; application to automatically upload Language data ; Input: DFN - Patient IEN ; Output 0 - Not Uploaded; 1 - Uploaded |
|
| LANGCK(DFN) | ;IVM*2.0*210 - Check if Language Date and Time needs to be uploaded or not.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DI(.85 - [#.85] | FIND1^DIC, GET1^DIQ |
| ^DIC(10.3 - [#10.3] | FIND1^DIC |
| ^DPT - [#2] | Classic Fileman Calls |
| 2.07 | GET1^DIQ |
