C0Q1P2 ; VEN/SMH - Kids utilities for C0Q 1.0 patch 2 ; 8/3/12 11:13am
 ;;1.0;QUALITY MEASURES;**2**;July 13, 2112;
 ; Licensed under package license. See Documentation for license and
 ; usage conditions.
 ;
 ; PEPs: PRE, POST
 ;
PRE ; Unified Pre; PEP
 D PREREM
 QUIT
POST ; Unified Post; PEP
 D POSTREM
 QUIT
 ;
 ; Rest of entry points are private
 ; 
 ; 
ARRAY(MODE,ARRAY)	;List of exchange entries used by delete and install
	;
	N LN S LN=1
	;
	; NQF 0024-alt-core_wt-kids
	S ARRAY(LN,1)="MU NQF0024-ALL"
	I MODE S ARRAY(LN,2)="07/31/2012@17:49:03"
	S LN=LN+1
	;
	; NQF 0013-core-HTN
	S ARRAY(LN,1)="MU NQF0013 HTN_MK"
	I MODE S ARRAY(LN,2)="07/06/2011@15:08:53"
	S LN=LN+1
	;
	; NQF 0028a-core-tobacco-access
	; NQF 0028b-core-tobaocc-intervention
	S ARRAY(LN,1)="MU NQF0028 TOBACCO_MK"
	I MODE S ARRAY(LN,2)="07/06/2011@15:14:49"
	S LN=LN+1
	;
	; NQF 0041-alt-core-flu
	S ARRAY(LN,1)="MU NQF0041 FLU_MK"
	I MODE S ARRAY(LN,2)="07/06/2011@15:26:59"
	S LN=LN+1
	;
	; NQF 0059-option1-DM-Hbalc
	; NQF 0061-option3-DM-BP
	; NQF 0064-option2-DM-LDL
	; All are in One Reminder Exchange entry
	S ARRAY(LN,1)="MU NQF0059_61_64_SMH"
	I MODE S ARRAY(LN,2)="07/16/2012@10:46:17"
	S LN=LN+1
	;
	; Inpatient Education Reminders (popularly known as ED-1 and ED-2)
	; NQF 0495
	; NQF 0497
	S ARRAY(LN,1)="MU NQF 0495 ED-1"
	I MODE S ARRAY(LN,2)="07/17/2012@11:47:55"
	S LN=LN+1
	S ARRAY(LN,1)="MU NQF 0497 ED-2"
	I MODE S ARRAY(LN,2)="07/17/2012@11:50:23"
	S LN=LN+1
	;
	; MU Stroke Measures
	; NQF 0435
	; NQF 0436
	; NQF 0437
	; NQF 0438
	; NQF 0439
	; NQF 0440
	; NQF 0441
	; NB: Contains two Labs! Must rematch if not on your system.
	; Installation will become talkative
	S ARRAY(LN,1)="MU STROKE 2.3.4.5.6.8.10 SMH"
	I MODE S ARRAY(LN,2)="07/18/2012@10:33:53"
	S LN=LN+1
	;
	; MU VTE Measures
	; NQF 0371
	; NQF 0372
	; NQF 0373
	; NQF 0374
	; NQF 0375
	; NQF 0376
	; NB: Contains several labs. Must rematch if not on your system.
	; Installation will become talkative
	S ARRAY(LN,1)="MU VTE 1.2.3.4.5.6 SMH"
	I MODE S ARRAY(LN,2)="07/20/2012@09:48:30"
	S LN=LN+1
	;
	;
	; NQF 0421-core-adult-weight
	; NB: B/c of the presence of patient lists, measures sent as part of
	; an extract.
	S ARRAY(LN,1)="MU NQF0421 ADULT BMI SMH"
	I MODE S ARRAY(LN,2)="07/26/2012@11:00:17"
	S LN=LN+1
	;
	; NQF 0038-alt-core-childImms
	; NB: Again because of Patient Lists, measures sent as part of an extract
	S ARRAY(LN,1)="MU NQF0038 CHILD IMM SMH"
	I MODE S ARRAY(LN,2)="07/27/2012@17:48:33"
	S LN=LN+1
	;
	; CPRS Management Dialogs for Outpatient Stuff
	; MU NQF0421 BMI DI
	; MU NQF0041 INFLUENZA MANAGEMENT DI
	; MU NQF0038 IMMUNE MANAGEMENT DI
	; MU NQF0028AB MANAGEMENT DI
	; MU SMOKING STATUS DI
	S ARRAY(LN,1)="MU CPRS HELP DIS"
	I MODE S ARRAY(LN,2)="08/01/2012@18:32:29"
	S LN=LN+1
	;
	QUIT
	;
	;
	;===============================================================
DELEI	;If the Exchange File entry already exists delete it.
	N ARRAY,IC,IND,LIST,LUVALUE,NUM
	D ARRAY(1,.ARRAY)
	S IC=0
	F  S IC=$O(ARRAY(IC)) Q:'IC  D
	.S LUVALUE(1)=ARRAY(IC,1)
	.D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
	.I '$D(LIST) Q
	.S NUM=$P(LIST("DILIST",0),U,1)
	.I NUM'=0 D
	..F IND=1:1:NUM D
	... N DA,DIK
	... S DIK="^PXD(811.8,"
	... S DA=LIST("DILIST",2,IND)
	... D ^DIK
	Q
	;
	;===============================================================
EXFINC(Y)	;Return a 1 if the Exchange file entry is in the list to
	;include in the build. This is used in the build to determine which
	;entries to include.
	N ARRAY,FOUND,IEN,IC,LUVALUE
	D ARRAY(1,.ARRAY)
	S FOUND=0
	S IC=0
	F  S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND)  D
	. M LUVALUE=ARRAY(IC)
	. S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
	. I IEN=Y S FOUND=1 Q
	Q FOUND
	;
PREREM	;
	D DELEI
	Q
POSTREM	;
	D SMEXINS
	Q
	;===============================================================
SMEXINS	;Silent mode install.
	N ARRAY,IC,IEN,LUVALUE,PXRMINST
	S PXRMINST=1
	D ARRAY(1,.ARRAY)
	S IC=0
	F  S IC=$O(ARRAY(IC)) Q:'IC  D
	.M LUVALUE=ARRAY(IC)
	.S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
	.I IEN'=0 D
	.. N TEXT
	.. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
	.. E  S TEXT="Installing reminder exchange entry "_LUVALUE(1)
	.. D BMES^XPDUTL(TEXT)
	.. D INSTALL^PXRMEXSI(IEN,"I",1)
	Q
	;