source: WorldVistAEHR/trunk/r/QUASAR-ACKQ/ACKQPOST.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 901 bytes
Line 
1ACKQPOST ;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 ;
9OPTN ; 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 ;
15MAIL 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.