source: FOIAVistA/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPST01.m@ 808

Last change on this file since 808 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1PPPST01 ;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.
4EP ; -- Entry point
5 ;
6 N XQABT1,XQABT2,XQABT3,XQABT4,XQABT5,X
7 ;
8 W @IOF
9 W !,">>> Beginning Post Init Process"
10 ;
11PROT ; -- 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 ;
17LIST ; -- 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 ;
22FILEI ; -- 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 ;
29MAIL ; -- 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 ;
36XREF ; -- Sets cross ref in PDX transaction file for PPP
37 D EN^PPPST09
38 ;
39END ; -- 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 ;
Note: See TracBrowser for help on using the repository browser.