IBCNHSRV ;ALB/ZEB - HL7 Receiver for NIF transmissions ;03-OCT-14
;;2.0;INTEGRATED BILLING;**519**;21-MAR-94;Build 56
;;Per VA Directive 6402, this routine should not be modified.
;**Program Description**
; This program will process incoming requests for NIF Batch Queries
; Call at tags only
Q
SERVER ; Entry point for server option to kick off batch query
; ID of triggering message is in assumed variable XMZ
; Call to XMXAPI covered by IA #2729
; Call to XMXUTIL2 covered by IA #2736
N IBXMZ,IBRUNDT,X,Y,DIE,DR,DA
S IBXMZ=$G(XMZ)
Q:IBXMZ="" ;message does't actually exist
; only trigger the query if message has "TRIGGER BATCH QUERY" in the subject
D:$$SUBJ^XMXUTIL2($G(^XMB(3.9,IBXMZ,0)))["TRIGGER BATCH QUERY"
. D EXT^IBCNHUT2 ; Kick off batch query
. ;disable menu option as we only need each site to do this once
. N DIC,%,%H,%I D NOW^%DTC S Y=% ;Y is now internal form of current date/time
. D DD^%DT ;replaces Y with external date
. S IBRUNDT="One-time use only; used on "_$P(Y,"@",1)_"."
. N Y
. S DIC="^DIC(19,",DIC(0)="LS" S X="IBCNH HPID NIF BATCH QUERY" D ^DIC
. I Y'=-1 S DIE=DIC,DA=+Y,DR="2///^S X=IBRUNDT" K DIC D ^DIE
N ZTREQ
D ZAPSERV^XMXAPI("S.IBCNH HPID NIF BATCH QUERY",IBXMZ)
S ZTREQ="@"
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNHSRV 1277 printed Dec 13, 2024@02:15:48 Page 2
IBCNHSRV ;ALB/ZEB - HL7 Receiver for NIF transmissions ;03-OCT-14
+1 ;;2.0;INTEGRATED BILLING;**519**;21-MAR-94;Build 56
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;**Program Description**
+4 ; This program will process incoming requests for NIF Batch Queries
+5 ; Call at tags only
+6 QUIT
SERVER ; Entry point for server option to kick off batch query
+1 ; ID of triggering message is in assumed variable XMZ
+2 ; Call to XMXAPI covered by IA #2729
+3 ; Call to XMXUTIL2 covered by IA #2736
+4 NEW IBXMZ,IBRUNDT,X,Y,DIE,DR,DA
+5 SET IBXMZ=$GET(XMZ)
+6 ;message does't actually exist
if IBXMZ=""
QUIT
+7 ; only trigger the query if message has "TRIGGER BATCH QUERY" in the subject
+8 if $$SUBJ^XMXUTIL2($GET(^XMB(3.9,IBXMZ,0)))["TRIGGER BATCH QUERY"
Begin DoDot:1
+9 ; Kick off batch query
DO EXT^IBCNHUT2
+10 ;disable menu option as we only need each site to do this once
+11 ;Y is now internal form of current date/time
NEW DIC,%,%H,%I
DO NOW^%DTC
SET Y=%
+12 ;replaces Y with external date
DO DD^%DT
+13 SET IBRUNDT="One-time use only; used on "_$PIECE(Y,"@",1)_"."
+14 NEW Y
+15 SET DIC="^DIC(19,"
SET DIC(0)="LS"
SET X="IBCNH HPID NIF BATCH QUERY"
DO ^DIC
+16 IF Y'=-1
SET DIE=DIC
SET DA=+Y
SET DR="2///^S X=IBRUNDT"
KILL DIC
DO ^DIE
End DoDot:1
+17 NEW ZTREQ
+18 DO ZAPSERV^XMXAPI("S.IBCNH HPID NIF BATCH QUERY",IBXMZ)
+19 SET ZTREQ="@"
+20 QUIT
+21 ;
