APSGPAC.m

APSGPAC ;IHS/DSD/ENM - POST UTILITY ; [ 12/28/2001  9:48 AM ]

 ;;3.2;INPATIENT MEDICATIONS;**3**;12/28/01

 W !,"Running Post Routines that will............."

 W !!,"- Create Application Package Use Settings....."

 W !!,"- Create Inpatient Meds V4 Pre-Release Menu....."

 W !!,"- And...Send a Mail Message to all IV Managers....",!

 H 3

 D ^APSGPOST ;Add PSJI MGR Menu Option to IV Manager's menu

 D ^APSGIOU ;Stuff 'IOU' setting for all 'Active' Drugs

 D ^APSGMSG ;Send a Mail Message to all IV Managers

 W !!,"*** I'm Done ***"

 Q

APSGPAC   ;IHS/DSD/ENM - POST UTILITY ; [ 12/28/2001  9:48 AM ]

 +1       ;;3.2;INPATIENT MEDICATIONS;**3**;12/28/01

 +2        WRITE !,"Running Post Routines that will............."

 +3        WRITE !!,"- Create Application Package Use Settings....."

 +4        WRITE !!,"- Create Inpatient Meds V4 Pre-Release Menu....."

 +5        WRITE !!,"- And...Send a Mail Message to all IV Managers....",!

 +6        HANG 3

 +7       ;Add PSJI MGR Menu Option to IV Manager's menu

           DO ^APSGPOST

 +8       ;Stuff 'IOU' setting for all 'Active' Drugs

           DO ^APSGIOU

 +9       ;Send a Mail Message to all IV Managers

           DO ^APSGMSG

 +10       WRITE !!,"*** I'm Done ***"

 +11       QUIT