;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.