- BJPC2EVH ; IHS/CMI/LAB - PCC Suite v1.0 patch 1 environment check ;
- ;;2.0;IHS PCC SUITE;**2**;MAY 14, 2009
- ;
- ;
- START ;
- D MES^XPDUTL($$CJ^XLFSTR("Updating Health Factors...",IOM))
- S BJPCX=0 F S BJPCX=$O(^APCDTHFD(BJPCX)) Q:BJPCX'=+BJPCX D
- .S BJPCON=$P(^APCDTHFD(BJPCX,0),U,1)
- .S BJPCNN=$P($G(^APCDTHFD(BJPCX,99)),U)
- .S BJPCCAT=$P(^APCDTHFD(BJPCX,0),U,3)
- .S BJPCCATI=$O(^AUTTHF("B",BJPCCAT,0))
- .I 'BJPCCATI D ADDCAT I 'BJPCCATI D MES^XPDUTL("Failure to add category "_BJPCCAT) Q
- .S BJPCCODE=$P(^APCDTHFD(BJPCX,0),U,2)
- .S BJPCDHS=$P(^APCDTHFD(BJPCX,0),U,8)
- .S BJPCET=$P(^APCDTHFD(BJPCX,0),U,10)
- .S BJPCIF=$P(^APCDTHFD(BJPCX,0),U,13)
- .S BJPCID=$P(^APCDTHFD(BJPCX,0),U,15)
- .S BJPCMN=$P($G(^APCDTHFD(BJPCX,88)),U,1)
- .S BJPCITP=$P($G(^APCDTHFD(BJPCX,99)),U,2)
- .S BJPCY=0,BJPCHFI=0 F S BJPCY=$O(^AUTTHF("B",BJPCON,BJPCY)) Q:BJPCY'=+BJPCY!(BJPCHFI) D
- ..Q:$$VAL^XBDIQ1(9999999.64,BJPCY,.03)'=BJPCCAT
- ..S BJPCHFI=BJPCY
- .;doesn't exist and is to be inactivated or is already inactivated so don't add it
- .I 'BJPCHFI,(BJPCIF+BJPCITP+BJPCID) Q ;move on to next
- .I 'BJPCHFI D
- ..I BJPCNN]"" S BJPCY=0,BJPCHFI=0 F S BJPCY=$O(^AUTTHF("B",BJPCNN,BJPCY)) Q:BJPCY'=+BJPCY!(BJPCHFI) D
- ...Q:$$VAL^XBDIQ1(9999999.64,BJPCY,.03)'=BJPCCAT
- ...S BJPCHFI=BJPCY
- .I 'BJPCHFI D ADDNEW ;add new one
- .;edit
- .I BJPCNN]"",BJPCON'=BJPCNN S DIE="^AUTTHF(",DA=BJPCHFI,DR=".01///"_BJPCNN D ^DIE K DIE,DA,DR
- .I BJPCITP S DA=BJPCHFI,DIE="^AUTTHF(",DR=".13///1;.15////"_DT D ^DIE K DA,DR
- .S DA=BJPCHFI,DIE="^AUTTHF(",DR=".1///"_BJPCET D ^DIE K DA,DR
- .Q
- S DIK="^AUTTHF(",DIK(1)=".03^F" D ENALL^DIK K DIK
- Q
- ADDNEW ;
- S X=BJPCON,DIC="^AUTTHF(",DIC(0)="L",DIADD=1,DLAYGO=9999999.64,DIC("DR")=".02///"_BJPCCODE_";.03////"_BJPCCATI_";.1///"_BJPCET_";.08///"_BJPCDHS_";8801///"_BJPCMN K DO,DD,D0 D FILE^DICN K DIADD,DLAYGO,DIC,X
- I Y=-1 D MES^XPDUTL("Error creating health factor "_BJPCON)
- S BJPCHFI=+Y
- Q
- ADDCAT ;
- S BJPCCATI=""
- S X=BJPCCAT,DIC="^AUTTHF(",DIC(0)="L",DIADD=1,DLAYGO=9999999.64,DIC("DR")=".03///"_BJPCCAT_";.1///C;.02///"_BJPCCODE K DO,DD,D0 D FILE^DICN K DIADD,DLAYGO,DIC,X
- I Y=-1 Q
- S BJPCCATI=+Y
- Q
- BJPC2EVH ; IHS/CMI/LAB - PCC Suite v1.0 patch 1 environment check ;
- +1 ;;2.0;IHS PCC SUITE;**2**;MAY 14, 2009
- +2 ;
- +3 ;
- START ;
- +1 DO MES^XPDUTL($$CJ^XLFSTR("Updating Health Factors...",IOM))
- +2 SET BJPCX=0
- FOR
- SET BJPCX=$ORDER(^APCDTHFD(BJPCX))
- IF BJPCX'=+BJPCX
- QUIT
- Begin DoDot:1
- +3 SET BJPCON=$PIECE(^APCDTHFD(BJPCX,0),U,1)
- +4 SET BJPCNN=$PIECE($GET(^APCDTHFD(BJPCX,99)),U)
- +5 SET BJPCCAT=$PIECE(^APCDTHFD(BJPCX,0),U,3)
- +6 SET BJPCCATI=$ORDER(^AUTTHF("B",BJPCCAT,0))
- +7 IF 'BJPCCATI
- DO ADDCAT
- IF 'BJPCCATI
- DO MES^XPDUTL("Failure to add category "_BJPCCAT)
- QUIT
- +8 SET BJPCCODE=$PIECE(^APCDTHFD(BJPCX,0),U,2)
- +9 SET BJPCDHS=$PIECE(^APCDTHFD(BJPCX,0),U,8)
- +10 SET BJPCET=$PIECE(^APCDTHFD(BJPCX,0),U,10)
- +11 SET BJPCIF=$PIECE(^APCDTHFD(BJPCX,0),U,13)
- +12 SET BJPCID=$PIECE(^APCDTHFD(BJPCX,0),U,15)
- +13 SET BJPCMN=$PIECE($GET(^APCDTHFD(BJPCX,88)),U,1)
- +14 SET BJPCITP=$PIECE($GET(^APCDTHFD(BJPCX,99)),U,2)
- +15 SET BJPCY=0
- SET BJPCHFI=0
- FOR
- SET BJPCY=$ORDER(^AUTTHF("B",BJPCON,BJPCY))
- IF BJPCY'=+BJPCY!(BJPCHFI)
- QUIT
- Begin DoDot:2
- +16 IF $$VAL^XBDIQ1(9999999.64,BJPCY,.03)'=BJPCCAT
- QUIT
- +17 SET BJPCHFI=BJPCY
- End DoDot:2
- +18 ;doesn't exist and is to be inactivated or is already inactivated so don't add it
- +19 ;move on to next
- IF 'BJPCHFI
- IF (BJPCIF+BJPCITP+BJPCID)
- QUIT
- +20 IF 'BJPCHFI
- Begin DoDot:2
- +21 IF BJPCNN]""
- SET BJPCY=0
- SET BJPCHFI=0
- FOR
- SET BJPCY=$ORDER(^AUTTHF("B",BJPCNN,BJPCY))
- IF BJPCY'=+BJPCY!(BJPCHFI)
- QUIT
- Begin DoDot:3
- +22 IF $$VAL^XBDIQ1(9999999.64,BJPCY,.03)'=BJPCCAT
- QUIT
- +23 SET BJPCHFI=BJPCY
- End DoDot:3
- End DoDot:2
- +24 ;add new one
- IF 'BJPCHFI
- DO ADDNEW
- +25 ;edit
- +26 IF BJPCNN]""
- IF BJPCON'=BJPCNN
- SET DIE="^AUTTHF("
- SET DA=BJPCHFI
- SET DR=".01///"_BJPCNN
- DO ^DIE
- KILL DIE,DA,DR
- +27 IF BJPCITP
- SET DA=BJPCHFI
- SET DIE="^AUTTHF("
- SET DR=".13///1;.15////"_DT
- DO ^DIE
- KILL DA,DR
- +28 SET DA=BJPCHFI
- SET DIE="^AUTTHF("
- SET DR=".1///"_BJPCET
- DO ^DIE
- KILL DA,DR
- +29 QUIT
- End DoDot:1
- +30 SET DIK="^AUTTHF("
- SET DIK(1)=".03^F"
- DO ENALL^DIK
- KILL DIK
- +31 QUIT
- ADDNEW ;
- +1 SET X=BJPCON
- SET DIC="^AUTTHF("
- SET DIC(0)="L"
- SET DIADD=1
- SET DLAYGO=9999999.64
- SET DIC("DR")=".02///"_BJPCCODE_";.03////"_BJPCCATI_";.1///"_BJPCET_";.08///"_BJPCDHS_";8801///"_BJPCMN
- KILL DO,DD,D0
- DO FILE^DICN
- KILL DIADD,DLAYGO,DIC,X
- +2 IF Y=-1
- DO MES^XPDUTL("Error creating health factor "_BJPCON)
- +3 SET BJPCHFI=+Y
- +4 QUIT
- ADDCAT ;
- +1 SET BJPCCATI=""
- +2 SET X=BJPCCAT
- SET DIC="^AUTTHF("
- SET DIC(0)="L"
- SET DIADD=1
- SET DLAYGO=9999999.64
- SET DIC("DR")=".03///"_BJPCCAT_";.1///C;.02///"_BJPCCODE
- KILL DO,DD,D0
- DO FILE^DICN
- KILL DIADD,DLAYGO,DIC,X
- +3 IF Y=-1
- QUIT
- +4 SET BJPCCATI=+Y
- +5 QUIT