IBCNHSRV.m

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 ---IBCNHSRV   1277     printed  Apr 09, 2024@21:37:05                                                                                                                                                                                                    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      ;