Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
901 bytes
|
Line | |
---|
1 | ACKQPOST ;HCIOFO/BH-New Clinic Visits - CONTINUED ; [ 04/12/96 10:38 AM ]
|
---|
2 | ;;3.0;QUASAR;**1**;Feb 11, 2000
|
---|
3 | ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
|
---|
4 | ;
|
---|
5 | N ACKCHK
|
---|
6 | S ACKCHK=$$NEWCP^XPDUTL("POST1","OPTN^ACKQPOST")
|
---|
7 | Q ; Return to KIDS & let KIDS run the checkpoint.
|
---|
8 | ;
|
---|
9 | OPTN ; Place the SDCLINIC WORKLOAD option on menu.
|
---|
10 | S X=$$ADD^XPDMENU("ACKQAS REPORTS","SDCLINIC WORKLOAD","",25)
|
---|
11 | I X D BMES^XPDUTL("The PIMS 'Clinic Workload' report option"),MES^XPDUTL("has been added to the QUASAR 'Reports Menu.'")
|
---|
12 | I 'X D BMES^XPDUTL("Sorry. I was unable to place the PIMS 'Clinic Workload'"),MES^XPDUTL("report option on the QUASAR 'Reports Menu.'")
|
---|
13 | K X
|
---|
14 | ;
|
---|
15 | MAIL N ACKM,X,ACKY
|
---|
16 | S ZTDESC="QUASAR - Mail Procedure code Warning"
|
---|
17 | D NOW^%DTC
|
---|
18 | S ACKY=$E(X,1,3)
|
---|
19 | S ACKM=$E(X,4,5) I ACKM>9 S ACKY=ACKY+1
|
---|
20 | S ZTDTH=ACKY_"0917.0100"
|
---|
21 | S ZTIO=""
|
---|
22 | S ZTRTN="BUILD^ACKQUTL9()"
|
---|
23 | D ^%ZTLOAD
|
---|
24 | ;
|
---|
25 | Q
|
---|
26 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.