©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGQEBGR ;ALB/RPM - VIC REPLACEMENT BACKGROUND JOB PROCESSOR ; 1/2/2004
Source file <DGQEBGR.m>
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 1 | DGQE BACKGROUND PROCESSING |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXPDAYS() | ;return VIC request expiration days
; This function returns the number of days that a pending VIC request ; is retained before being automatically cancelled. The value is ; contained in the PACKAGE ("PKG") entity of the DGQE VIC REQUEST ; EXPIRATION parameter. |
|
| EN | ;main entry point
|
|
| CKHOLD | ;check all "H"old status requests for updates
; This subroutine evaluates the VIC eligibility for all VIC requests ; that have a "H"old Card Print Release Status and updates the Status ; if needed. When a VIC request retains a "H"old Card Print Release ; Status for more than the value returned by $$EXPDAYS^DGQEUT2(), ; the Card Print Release Status is changed to "C"ancel. |
|
| PURGE | ;purge completed VIC requests
; This subroutine deletes all VIC REQUEST (#39.6) records and their ; associated VIC HL7 TRANSMISSION LOG (#39.7) records for all VIC ; requests that fulfill the following conditions: ; 1. VIC request Card Print Release Status is not "H"old ; 2. VIC request is over 7 days old ; 3. Last HL7 transmission status associated with the request is ; an Accept acknowledgment ; ; Supported DBIA#: 10103 - $$FMADD^XLFDT, $$NOW^XLFDT |
|
| PRGDAYS() | ;return VIC request purge days
; This function returns the number of days that a completed VIC request ; is retained before being purged. The value is contained in the ; PACKAGE ("PKG") entity of the DGQE VIC REQUEST PURGE parameter. |
|
| SNDHL7 | ;send queued General Order (ORM~O01) HL7 messages to NCMD
; This subroutine transmits a General Order (ORM~O01) HL7 message ; to the National Card Management Directory for each entry in the ; "XMIT" index of the VIC REQUEST (#39.6) file. |
| Name | Field # of Occurrence |
|---|---|
| $$GETICN^DGQEDEMO | CKHOLD+36 |
| $$FINDLST^DGQEHLL | PURGE+28 |
| $$GETLOG^DGQEHLL | PURGE+29 |
| $$SND^DGQEHLS | SNDHL7+13 |
| $$DELREQ^DGQEREQ | PURGE+32 |
| $$GETREQ^DGQEREQ | CKHOLD+31 |
| STOSTAT^DGQEREQ | CKHOLD+47 |
| $$GETELIG^DGQEUT1 | CKHOLD+35 |
| $$HOLD^DGQEUT2 | CKHOLD+39 |
| $$VICELIG^DGQEUT2 | CKHOLD+44 |
| $$FMADD^XLFDT | PURGE+22, CKHOLD+21 |
| $$NOW^XLFDT | PURGE+22, CKHOLD+21 |
| $$GET^XPAR | EXPDAYS+13, PRGDAYS+12 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGQE(39.6 - [#39.6] | PURGE+25, PURGE+27, CKHOLD+23, CKHOLD+25, SNDHL7+12 |
| Name | Line Occurrences |
|---|---|
| $$EXPDAYS | CKHOLD+21 |
| $$PRGDAYS | PURGE+22 |
| CKHOLD | EN+3 |
| PURGE | EN+2 |
| SNDHL7 | EN+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGCODT | PURGE+16~, PURGE+22*, PURGE+25, CKHOLD+13~, CKHOLD+21*, CKHOLD+42 |
| DGDAT | CKHOLD+14~, CKHOLD+22*, CKHOLD+23*, CKHOLD+25 |
| DGELG | CKHOLD+15~, CKHOLD+35, CKHOLD+39, CKHOLD+44 |
| DGELG("ICN" | CKHOLD+36* |
| DGIEN | PURGE+17~, PURGE+26*, PURGE+27*, PURGE+28, PURGE+32, CKHOLD+16~, CKHOLD+24*, CKHOLD+25*, CKHOLD+31, CKHOLD+47 , SNDHL7+9~, SNDHL7+11*, SNDHL7+12*, SNDHL7+13 |
| DGLIEN | PURGE+18~, PURGE+28*, PURGE+29 |
| DGLOG | PURGE+19~, PURGE+29 |
| DGLOG("XMSTAT" | PURGE+29 |
| DGREQ | CKHOLD+17~, CKHOLD+31 |
| DGREQ("DFN" | CKHOLD+32, CKHOLD+35, CKHOLD+36 |
| DGREQ("REQDT" | CKHOLD+42 |
| DGRQDT | PURGE+20~, PURGE+24*, PURGE+25*, PURGE+27 |
| DGSTAT | PURGE+15~, PURGE+23*, PURGE+25, PURGE+27, CKHOLD+18~, CKHOLD+28*, CKHOLD+42*, CKHOLD+44*, CKHOLD+47 |
| DGVAL | EXPDAYS+12~, EXPDAYS+13*, EXPDAYS+14, PRGDAYS+11~, PRGDAYS+12*, PRGDAYS+13 |