| [613] | 1 | PPPST01 ;ALB/JFP - PPP, POST INIT ROUTINE ;01MAR94
|
|---|
| 2 | ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | EP ; -- Entry point
|
|---|
| 5 | ;
|
|---|
| 6 | N XQABT1,XQABT2,XQABT3,XQABT4,XQABT5,X
|
|---|
| 7 | ;
|
|---|
| 8 | W @IOF
|
|---|
| 9 | W !,">>> Beginning Post Init Process"
|
|---|
| 10 | ;
|
|---|
| 11 | PROT ; -- Installs protocols used by list processor, D ^ORVOM
|
|---|
| 12 | S XQABT1=$H
|
|---|
| 13 | W !!,">>> Installing protocols for use by the list processor"
|
|---|
| 14 | D ^PPPONIT
|
|---|
| 15 | W "..... Completed"
|
|---|
| 16 | ;
|
|---|
| 17 | LIST ; -- Installs list templates used by list processor, D ^VALMW3
|
|---|
| 18 | W !!,">>> Installing list templates for use by list processor"
|
|---|
| 19 | D ^PPPPSL
|
|---|
| 20 | W ".....Completed"
|
|---|
| 21 | ;
|
|---|
| 22 | FILEI ; -- File initialization
|
|---|
| 23 | S XQABT2=$H
|
|---|
| 24 | D PARMEDT^PPPST04
|
|---|
| 25 | D DOMXREF^PPPST04
|
|---|
| 26 | W !," "
|
|---|
| 27 | D:$D(^PPP(1020.3)) CLR1^PPPMSC1
|
|---|
| 28 | ;
|
|---|
| 29 | MAIL ; -- Mail groups
|
|---|
| 30 | S XQABT4=$H
|
|---|
| 31 | W !!,">>> Setting up Prescription Practices mail groups"
|
|---|
| 32 | S X=$$MAIL^PPPST08
|
|---|
| 33 | I X=0 W !," 'PRESCRIPTION PRACTICES'... mail group created",!
|
|---|
| 34 | I X<0 W !," Error...Creating 'PRESCRIPTION PRACTICES' mail group, Post init HALTED" Q
|
|---|
| 35 | ;
|
|---|
| 36 | XREF ; -- Sets cross ref in PDX transaction file for PPP
|
|---|
| 37 | D EN^PPPST09
|
|---|
| 38 | ;
|
|---|
| 39 | END ; -- Sends mail message to G.PPP DEVELOPERS@ISC-ALBANY.VA.GOV, when comp
|
|---|
| 40 | S XQABT5=$H
|
|---|
| 41 | ; -- File Conversion
|
|---|
| 42 | W !,">>> Test sites will receive special instructions to convert data",!
|
|---|
| 43 | ;
|
|---|
| 44 | W !,">>> The building of the PPP FOREIGN FACILITY XREF needs to be"
|
|---|
| 45 | W !," scheduled at this time. See Build/Rebuild Other Facility"
|
|---|
| 46 | W !," Xref option off [PPP MAIN].",!
|
|---|
| 47 | S X="PPPINITY" X ^%ZOSF("TEST") I $T D @("^"_X)
|
|---|
| 48 | ;
|
|---|
| 49 | W !!!,">>> Post init process completed"
|
|---|
| 50 | QUIT
|
|---|
| 51 | ;
|
|---|
