source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20P363.m@ 1806

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

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1IB20P363 ;ALB/SS - POST INIT ACTION ;22-FEB-2007
2 ;;2.0;INTEGRATED BILLING;**363**;21-MAR-94;Build 35
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;
5 Q
6 ;
7EN ;
8 I $$PATCH^XPDUTL("IB*2.0*363") D Q
9 . D MESSAGE("The post-install process has been skipped since")
10 . D MESSAGE("the patch was previously installed.")
11 . D SNDMAIL("IB*2.0*363 installation has been completed","The post-install process has been skipped since","the patch was previously installed.","")
12 D MESSAGE("Queuing IB*2.0*363 POST-INSTALL process")
13 N X,Y,%DT,ZTDESC,ZTSAVE,ZTIO,ZTDTH,ZTRTN
14 S X="N",%DT="ST"
15 D ^%DT
16 S ZTDTH=Y
17 S ZTIO=""
18 S ZTDESC="IB*2.0*363 POST INSTALL PROCESS"
19 S ZTSAVE("*")=""
20 S ZTRTN="EN1^IB20P363"
21 D ^%ZTLOAD
22 Q
23 ;
24EN1 ; post-install process itself
25 ;D MESSAGE(">>> Populating the field #.09 E-PHARMACY DIVISION in the file #366.14")
26 ;D MESSAGE(" Please wait...")
27 N IBIEN,IBEVIEN,IBZ,IBEPHARM,IBCNT,IBRXIEN,IBCNTOT,IBMSG0,IBMSG1,IBMSG2
28 S IBIEN=0,IBCNT=0,IBCNTOT=0
29 F S IBIEN=$O(^IBCNR(366.14,IBIEN)) Q:+IBIEN=0 D
30 . S IBEVIEN=0
31 . F S IBEVIEN=$O(^IBCNR(366.14,IBIEN,1,IBEVIEN)) Q:+IBEVIEN=0 D
32 . . S IBCNTOT=IBCNTOT+1
33 . . I $P($G(^IBCNR(366.14,IBIEN,1,IBEVIEN,0)),U,9)>0 Q
34 . . S IBZ=$G(^IBCNR(366.14,IBIEN,1,IBEVIEN,2))
35 . . S IBRXIEN=+IBZ
36 . . I 'IBRXIEN S IBRXIEN=+$P(IBZ,U,12)
37 . . S IBEPHARM=$$GETEPHRM^BPS01P5C($G(^IBCNR(366.14,IBIEN,0)),IBRXIEN,+$P(IBZ,U,3))
38 . . I IBEPHARM S $P(^IBCNR(366.14,IBIEN,1,IBEVIEN,0),U,9)=IBEPHARM,IBCNT=IBCNT+1
39 S IBMSG0=">>> Populating the field #.09 E-PHARMACY DIVISION in the file #366.14"
40 S IBMSG1=$S(IBCNT=1:">>> 1 record has been populated",1:">>> "_IBCNT_" records have been populated.")
41 S IBMSG2=$S(IBCNTOT=1:">>> 1 record has been examined",1:">>> "_IBCNTOT_" records have been examined.")
42 ;D MESSAGE(IBMSG1)
43 ;D MESSAGE(IBMSG2)
44 D SNDMAIL("IB*2.0*363 installation has been completed",IBMSG0,IBMSG1,IBMSG2)
45 Q
46 ;display message
47 ;IBMSG - message text
48MESSAGE(IBMSG) ;
49 D BMES^XPDUTL(IBMSG)
50 Q
51 ;send mail to the user
52SNDMAIL(IBSUBJ,IBMESS1,IBMESS2,IBMESS3) ;
53 N DIFROM ;IMPORTANT - if you send e-mail from post-install process (queued or not) !!!
54 N IBTMPARR,XMDUZ,XMSUB,XMTEXT,XMY
55 S IBTMPARR(1)=""
56 S IBTMPARR(2)=IBMESS1
57 S IBTMPARR(3)=IBMESS2
58 S IBTMPARR(4)=IBMESS3
59 S IBTMPARR(5)=""
60 S XMSUB=IBSUBJ
61 S XMDUZ="INTEGRATED BILLING PACKAGE"
62 S XMTEXT="IBTMPARR("
63 S XMY(DUZ)=""
64 D ^XMD
65 Q
66 ;
Note: See TracBrowser for help on using the repository browser.