ACKQPOST ;HCIOFO/BH-New Clinic Visits - CONTINUED ; [ 04/12/96 10:38 AM ]
;;3.0;QUASAR;**1**;Feb 11, 2000
;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
;
N ACKCHK
S ACKCHK=$$NEWCP^XPDUTL("POST1","OPTN^ACKQPOST")
Q ; Return to KIDS & let KIDS run the checkpoint.
;
OPTN ; Place the SDCLINIC WORKLOAD option on menu.
S X=$$ADD^XPDMENU("ACKQAS REPORTS","SDCLINIC WORKLOAD","",25)
I X D BMES^XPDUTL("The PIMS 'Clinic Workload' report option"),MES^XPDUTL("has been added to the QUASAR 'Reports Menu.'")
I 'X D BMES^XPDUTL("Sorry. I was unable to place the PIMS 'Clinic Workload'"),MES^XPDUTL("report option on the QUASAR 'Reports Menu.'")
K X
;
MAIL N ACKM,X,ACKY
S ZTDESC="QUASAR - Mail Procedure code Warning"
D NOW^%DTC
S ACKY=$E(X,1,3)
S ACKM=$E(X,4,5) I ACKM>9 S ACKY=ACKY+1
S ZTDTH=ACKY_"0917.0100"
S ZTIO=""
S ZTRTN="BUILD^ACKQUTL9()"
D ^%ZTLOAD
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HACKQPOST 927 printed Oct 16, 2024@18:33:11 Page 2
ACKQPOST ;HCIOFO/BH-New Clinic Visits - CONTINUED ; [ 04/12/96 10:38 AM ]
+1 ;;3.0;QUASAR;**1**;Feb 11, 2000
+2 ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
+3 ;
+4 NEW ACKCHK
+5 SET ACKCHK=$$NEWCP^XPDUTL("POST1","OPTN^ACKQPOST")
+6 ; Return to KIDS & let KIDS run the checkpoint.
QUIT
+7 ;
OPTN ; Place the SDCLINIC WORKLOAD option on menu.
+1 SET X=$$ADD^XPDMENU("ACKQAS REPORTS","SDCLINIC WORKLOAD","",25)
+2 IF X
DO BMES^XPDUTL("The PIMS 'Clinic Workload' report option")
DO MES^XPDUTL("has been added to the QUASAR 'Reports Menu.'")
+3 IF 'X
DO BMES^XPDUTL("Sorry. I was unable to place the PIMS 'Clinic Workload'")
DO MES^XPDUTL("report option on the QUASAR 'Reports Menu.'")
+4 KILL X
+5 ;
MAIL NEW ACKM,X,ACKY
+1 SET ZTDESC="QUASAR - Mail Procedure code Warning"
+2 DO NOW^%DTC
+3 SET ACKY=$EXTRACT(X,1,3)
+4 SET ACKM=$EXTRACT(X,4,5)
IF ACKM>9
SET ACKY=ACKY+1
+5 SET ZTDTH=ACKY_"0917.0100"
+6 SET ZTIO=""
+7 SET ZTRTN="BUILD^ACKQUTL9()"
+8 DO ^%ZTLOAD
+9 ;
+10 QUIT
+11 ;
