- 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 ---[H[J[2J[HIB20E780 967 printed Feb 18, 2025@23:27:54 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