KIDS Distribution saved on May 02, 2012@11:59:10
Ingredients and class fix
**KIDS**:GMRA*4.0*1004^

**INSTALL NAME**
GMRA*4.0*1004
"BLD",4419,0)
GMRA*4.0*1004^ADVERSE REACTION TRACKING^0^3120502^n
"BLD",4419,4,0)
^9.64PA^^0
"BLD",4419,6.3)
20
"BLD",4419,"ABPKG")
n
"BLD",4419,"INIT")
POST^GMRA1004
"BLD",4419,"KRN",0)
^9.67PA^9002226^21
"BLD",4419,"KRN",.4,0)
.4
"BLD",4419,"KRN",.401,0)
.401
"BLD",4419,"KRN",.402,0)
.402
"BLD",4419,"KRN",.403,0)
.403
"BLD",4419,"KRN",.5,0)
.5
"BLD",4419,"KRN",.84,0)
.84
"BLD",4419,"KRN",3.6,0)
3.6
"BLD",4419,"KRN",3.8,0)
3.8
"BLD",4419,"KRN",9.2,0)
9.2
"BLD",4419,"KRN",9.8,0)
9.8
"BLD",4419,"KRN",9.8,"NM",0)
^9.68A^1^1
"BLD",4419,"KRN",9.8,"NM",1,0)
GMRAZDSF^^0^B519464
"BLD",4419,"KRN",9.8,"NM","B","GMRAZDSF",1)

"BLD",4419,"KRN",19,0)
19
"BLD",4419,"KRN",19,"NM",0)
^9.68A^1^1
"BLD",4419,"KRN",19,"NM",1,0)
GMRAZ FIX SUBFILES^^0
"BLD",4419,"KRN",19,"NM","B","GMRAZ FIX SUBFILES",1)

"BLD",4419,"KRN",19.1,0)
19.1
"BLD",4419,"KRN",101,0)
101
"BLD",4419,"KRN",409.61,0)
409.61
"BLD",4419,"KRN",771,0)
771
"BLD",4419,"KRN",779.2,0)
779.2
"BLD",4419,"KRN",870,0)
870
"BLD",4419,"KRN",8989.51,0)
8989.51
"BLD",4419,"KRN",8989.52,0)
8989.52
"BLD",4419,"KRN",8994,0)
8994
"BLD",4419,"KRN",9002226,0)
9002226
"BLD",4419,"KRN","B",.4,.4)

"BLD",4419,"KRN","B",.401,.401)

"BLD",4419,"KRN","B",.402,.402)

"BLD",4419,"KRN","B",.403,.403)

"BLD",4419,"KRN","B",.5,.5)

"BLD",4419,"KRN","B",.84,.84)

"BLD",4419,"KRN","B",3.6,3.6)

"BLD",4419,"KRN","B",3.8,3.8)

"BLD",4419,"KRN","B",9.2,9.2)

"BLD",4419,"KRN","B",9.8,9.8)

"BLD",4419,"KRN","B",19,19)

"BLD",4419,"KRN","B",19.1,19.1)

"BLD",4419,"KRN","B",101,101)

"BLD",4419,"KRN","B",409.61,409.61)

"BLD",4419,"KRN","B",771,771)

"BLD",4419,"KRN","B",779.2,779.2)

"BLD",4419,"KRN","B",870,870)

"BLD",4419,"KRN","B",8989.51,8989.51)

"BLD",4419,"KRN","B",8989.52,8989.52)

"BLD",4419,"KRN","B",8994,8994)

"BLD",4419,"KRN","B",9002226,9002226)

"BLD",4419,"PRE")
GMRA1004
"BLD",4419,"PRET")

"BLD",4419,"QUES",0)
^9.62^^
"BLD",4419,"REQB",0)
^9.611^1^1
"BLD",4419,"REQB",1,0)
GMRA*4.0*1003^1
"BLD",4419,"REQB","B","GMRA*4.0*1003",1)

"INIT")
POST^GMRA1004
"KRN",19,2892155,-1)
0^1
"KRN",19,2892155,0)
GMRAZ FIX SUBFILES^Fix missing drug ingredients and classes^^R^^^^^^^^ADVERSE REACTION TRACKING
"KRN",19,2892155,1,0)
^19.06^1^1^3120501^
"KRN",19,2892155,1,1,0)
Run routine to search for items missing ingredients and VA drug classes and add them
"KRN",19,2892155,25)
EN^GMRAZDSF
"KRN",19,2892155,"U")
FIX MISSING DRUG INGREDIENTS A
"MBREQ")
0
"ORD",18,19)
19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
"ORD",18,19,0)
OPTION
"PKG",226,-1)
1^1
"PKG",226,0)
ADVERSE REACTION TRACKING^GMRA^Adverse Reaction Tracking package
"PKG",226,20,0)
^9.402P^^
"PKG",226,22,0)
^9.49I^1^1
"PKG",226,22,1,0)
4.0^2960328^3041019^1
"PKG",226,22,1,"PAH",1,0)
1004^3120502^1
"PRE")
GMRA1004
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
NO
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
NO
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
NO
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
2
"RTN","GMRA1004")
0^^B1901447
"RTN","GMRA1004",1,0)
GMRA1004 ;IHS/MSC/PLS - Patch support;02-May-2012 11:52;DU
"RTN","GMRA1004",2,0)
 ;;4.0;Adverse Reaction Tracking;**1004**;Mar 29, 1996;Build 20
"RTN","GMRA1004",3,0)
 ;
"RTN","GMRA1004",4,0)
ENV ;EP -
"RTN","GMRA1004",5,0)
 N PATCH
"RTN","GMRA1004",6,0)
 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
"RTN","GMRA1004",7,0)
 ;
"RTN","GMRA1004",8,0)
 ;Check for the installation of other patches
"RTN","GMRA1004",9,0)
 S PATCH="GMRA*4.0*1003"
"RTN","GMRA1004",10,0)
 I '$$PATCH(PATCH) D  Q
"RTN","GMRA1004",11,0)
 . W !,"You must first install "_PATCH_"." S XPDQUIT=2
"RTN","GMRA1004",12,0)
 Q
"RTN","GMRA1004",13,0)
 ;
"RTN","GMRA1004",14,0)
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
"RTN","GMRA1004",15,0)
 ;copy of code from XPDUTL but modified to handle 4 digit IHS patch numb
"RTN","GMRA1004",16,0)
 Q:X'?1.4UN1"*"1.2N1"."1.2N.1(1"V",1"T").2N1"*"1.4N 0
"RTN","GMRA1004",17,0)
 NEW NUM,I,J
"RTN","GMRA1004",18,0)
 S I=$O(^DIC(9.4,"C",$P(X,"*"),0)) Q:'I 0
"RTN","GMRA1004",19,0)
 S J=$O(^DIC(9.4,I,22,"B",$P(X,"*",2),0)),X=$P(X,"*",3) Q:'J 0
"RTN","GMRA1004",20,0)
 ;check if patch is just a number
"RTN","GMRA1004",21,0)
 Q:$O(^DIC(9.4,I,22,J,"PAH","B",X,0)) 1
"RTN","GMRA1004",22,0)
 S NUM=$O(^DIC(9.4,I,22,J,"PAH","B",X_" SEQ"))
"RTN","GMRA1004",23,0)
 Q (X=+NUM)
"RTN","GMRA1004",24,0)
PRE ;EP -
"RTN","GMRA1004",25,0)
 Q
"RTN","GMRA1004",26,0)
POST ;EP -
"RTN","GMRA1004",27,0)
 N ZTRTN,ZTDESC,TSK
"RTN","GMRA1004",28,0)
 S ZTRTN="EN^GMRAZDSF",ZTDESC="Drug Class and Ingredients clean up"
"RTN","GMRA1004",29,0)
 S TSK=$$QUEUE^CIAUTSK(ZTRTN,ZTDESC,"","","","","")
"RTN","GMRA1004",30,0)
 D RESCH^XUTMOPT("GMRAZ FIX SUBFILES","T+1@0600","","24H","L")
"RTN","GMRA1004",31,0)
 W !,"Cleanup has scheduled task number: "_TSK
"RTN","GMRA1004",32,0)
 Q
"RTN","GMRAZDSF")
0^1^B519464
"RTN","GMRAZDSF",1,0)
GMRAZDSF ;IHS/MSC/PLS - Patch support;01-May-2012 09:07;DU
"RTN","GMRAZDSF",2,0)
 ;;4.0;Adverse Reaction Tracking;**1004**;Mar 29, 1996;Build 20
"RTN","GMRAZDSF",3,0)
 ;
"RTN","GMRAZDSF",4,0)
EN ;EP -
"RTN","GMRAZDSF",5,0)
 N AIEN,REACT,GMRAAR,GMRAPA,ING,CLS
"RTN","GMRAZDSF",6,0)
 S AIEN=0 F  S AIEN=$O(^GMR(120.8,AIEN)) Q:'+AIEN  D
"RTN","GMRAZDSF",7,0)
 .S REACT=$P($G(^GMR(120.8,AIEN,0)),U,2)
"RTN","GMRAZDSF",8,0)
 .I REACT'="" D
"RTN","GMRAZDSF",9,0)
 ..S (ING,CLS)=""
"RTN","GMRAZDSF",10,0)
 ..S ING=$O(^GMR(120.8,AIEN,2,0))
"RTN","GMRAZDSF",11,0)
 ..S CLS=$O(^GMR(120.8,AIEN,3,0))
"RTN","GMRAZDSF",12,0)
 ..I +CLS=0&(+ING=0) D
"RTN","GMRAZDSF",13,0)
 ...S GMRAAR=$P($G(^GMR(120.8,AIEN,0)),U,3)
"RTN","GMRAZDSF",14,0)
 ...S GMRAPA=AIEN
"RTN","GMRAZDSF",15,0)
 ...D EN1^GMRAOR9
"RTN","GMRAZDSF",16,0)
 Q
"VER")
8.0^22.0
**END**
**END**