ACKQPOST.m

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 ---ACKQPOST   927     printed  Apr 09, 2024@21:34:49                                                                                                                                                                                                     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      ;