IB20E780.m

IB20E780 ;MNTVBB/RXD - ENVIRONMENT CHECK WITH PRE-INIT CODE ; Nov 10, 2023@10:20

 ;;2.0;INTEGRATED BILLING;**780**;21-MAR-94;Build 1

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

 Q

 ;

 ;

POS1 ; Ask if user wants to print or update and print if "APRIOR" X-ref is

 ; set for 12/1/2022.

 I '$D(^IBA(354.1,"APRIOR",3221201)) K DIR Q

 D MES^XPDUTL("There are exemptions that were based on the threshold values")

 D MES^XPDUTL("over a year old. You can Print a list of patients with old ")

 D MES^XPDUTL("exemptions, or automatically Update while printing the same")

 D MES^XPDUTL("list.  This will take place in the post initialization process.")

 Q

 ;

 ;

POS2 ; Ask device to print the report to, if "APRIOR" X-ref is set for 12/1/22.

 I '$D(^IBA(354.1,"APRIOR",3221201)) K DIR Q

 K DIR

 S %ZIS="QNM0" D ^%ZIS I POP D BMES^XPDUTL("This is a required response.  Select a device.") G POS2

 S XPDQUES("POS2")=ION

 D HOME^%ZIS

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20E780   967     printed  Dec 13, 2024@02:01:32                                                                                                                                                                                                     Page 2

IB20E780  ;MNTVBB/RXD - ENVIRONMENT CHECK WITH PRE-INIT CODE ; Nov 10, 2023@10:20

 +1       ;;2.0;INTEGRATED BILLING;**780**;21-MAR-94;Build 1

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

 +6       ;

POS1      ; Ask if user wants to print or update and print if "APRIOR" X-ref is

 +1       ; set for 12/1/2022.

 +2        IF '$DATA(^IBA(354.1,"APRIOR",3221201))

               KILL DIR

               QUIT 

 +3        DO MES^XPDUTL("There are exemptions that were based on the threshold values")

 +4        DO MES^XPDUTL("over a year old. You can Print a list of patients with old ")

 +5        DO MES^XPDUTL("exemptions, or automatically Update while printing the same")

 +6        DO MES^XPDUTL("list.  This will take place in the post initialization process.")

 +7        QUIT 

 +8       ;

 +9       ;

POS2      ; Ask device to print the report to, if "APRIOR" X-ref is set for 12/1/22.

 +1        IF '$DATA(^IBA(354.1,"APRIOR",3221201))

               KILL DIR

               QUIT 

 +2        KILL DIR

 +3        SET %ZIS="QNM0"

           DO ^%ZIS

           IF POP

               DO BMES^XPDUTL("This is a required response.  Select a device.")

               GOTO POS2

 +4        SET XPDQUES("POS2")=ION

 +5        DO HOME^%ZIS

 +6        QUIT