|
Last change
on this file since 1147 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
901 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
