|
Last change
on this file since 1742 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
860 bytes
|
| Line | |
|---|
| 1 | IB20E331 ;ISP/PHH - ENVIRONMENT CHECK WITH PRE-INIT CODE; 12/6/2005
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**331**;21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | POS1 ; Ask if user wants to print or update and print if "APRIOR" X-ref is
|
|---|
| 8 | ; set for 12/1/2004.
|
|---|
| 9 | I '$D(^IBA(354.1,"APRIOR",3041201)) K DIR Q
|
|---|
| 10 | D MES^XPDUTL("There are exemptions that were based on the threshold values")
|
|---|
| 11 | D MES^XPDUTL("over a year old. You can Print a list of patients with old ")
|
|---|
| 12 | D MES^XPDUTL("exemptions, or automatically Update while printing the same")
|
|---|
| 13 | D MES^XPDUTL("list. This will take place in the post initialization process.")
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | ;
|
|---|
| 17 | POS2 ; Ask device to print the report to, if "APRIOR" X-ref is set for 12/1/04.
|
|---|
| 18 | I '$D(^IBA(354.1,"APRIOR",3041201)) K DIR Q
|
|---|
| 19 | K DIR
|
|---|
| 20 | S %ZIS="QNM0" D ^%ZIS I POP D BMES^XPDUTL("This is a required response. Select a printer.") G POS2
|
|---|
| 21 | S XPDQUES("POS2")=ION
|
|---|
| 22 | D HOME^%ZIS
|
|---|
| 23 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
