DGPFHLT1 ;SHRPE/YMG - PRF HL7 QBP/RSP PROCESSING ; 05/02/18
Source file <DGPFHLT1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; entry point
; DATAARY array has the following structure: ; DATAARY("ACTIVE") = 1 if PRF flag is active, 0 otherwise ; DATAARY("REVBY") = name of the person reviewing the request ; DATAARY("REVDUZ") = DUZ of the person reviewing the request ; DATAARY("REVDTM") = Date/time of the review ; DATAARY("REVRES") = Result of the review ; "A" for approval ; "D" for denial/rejection ; DATAARY("REVCMT") = review comment/reason ; DATAARY("DFN") = patient DFN ; DATAARY("FLAG") = PRF flag ien in file 26.15 ; DATAARY("ICN") = patient ICN ; DATAARY("MSGID") = HL7 message Id ; DATAARY("QOK") = flag for QAK segment in RSP^K11 message ; 1 if patient + PRF flag data has been found and retrieved ; 0 otherwise ; DATAARY("REQBY") = requester name ; DATAARY("REQDTM") = request date/time ; DATAARY("REQCMT") = request comment/reason ; DATAARY("REQID") = query id ; DATAARY("SENDTO") = file 4 ien of facility we're sending HL7 message to ; DATAARY("SFIEN") = ien of sending facility in file 4 ; DATAARY("SFNAME") = formatted name of sending facility ; DATAARY("ORIGOWN")= file 4 ien of flag's original owner |
|
| CHK() | ; Check data in incoming message
; Called from EN tag, relies on (and sets) some variables defined in there ; Returns "" if there are no problems, or error message otherwise |
|
| UPDLOG(DATA) | ; file a log entry
; DATA - Array of values to file (see tag EN) ; Returns "" if there are no problems, or error message otherwise ; |
|
| UPDASGN(AFLG,DGIEN,DATA,DGPFA) | ; update PRF assignment and assignment history
; AFLG - 1 if flag needs to be reactivated, 0 otherwise ; DGIEN - ien of PRF assignment record ; DATA - Array of values to work with (see tag EN) ; DGPFA - PRF assignment array ; Returns "" if there are no problems, or error message otherwise |
|
| NORESP(DFN,FLAG,STATUS) | ; set status of entries in file 26.22 to "NO RESPONSE"
; DFN - patient DFN ; FLAG - flag ien in file 26.15 ; STATUS - current status of entries that should be flipped to "NO RESPONSE" (internal code) |
| HL7 Protocol Name | Call Tags |
|---|---|
| DGPF PRF QBP/Q11 EVENT | EN |
| DGPF PRF RSP/K11 SUBSC | EN |
| DGPF PRF QBP/Q11 SUBSC | EN |
| DGPF PRF RSP/K11 EVENT | EN |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | FIND1^DIC |
| ^DGPF(26.15 - [#26.15] | FIND1^DIC |
