GMPLIPST ; SLC/MKB -- Problem List post-init rtn ;5/18/94 10:30
;;2.0;Problem List;;Aug 25, 1994
EN ; entry point
D ^GMPLONIT ; install protocols
W !!,">>> Installing List Templates ... " D ^GMPLIL
I '$D(^GMT(142)) W !!,$C(7),">>> HEALTH SUMMARY is not installed on this system!",!," After installing Health Summary, D HS^GMPLIPST to set up",!," Problem List components."
E D HS
D CKPARAM ; ck Verify parameter w/PL menu for Verify action
I +$O(^AUPNPROB(0)),'$D(^AUPNPROB("C")) D ; set new Xrefs for PCE sites
. W !!,">>> Setting new 'ACTIVE' and 'C' cross-references ..."
. S DIK="^AUPNPROB(",DIK(1)=".12^ACTIVE" D ENALL^DIK W "."
. S DIK="^AUPNPROB(",DIK(1)="1.01^C" D ENALL^DIK W "."
S XQORM=$O(^ORD(101,"B","GMPL HIDDEN MENU",0))_";ORD(101,"
D XREF^XQORM K XQORM ; recompile menu in ^XUTL
EN1 ; Populate fld 1.7 in Service file, set new Xref
I '$D(^DIC(49,"ACHLD")) S DIK="^DIC(49,",DIK(1)="1.6^ACHLD" D ENALL^DIK
W !!!,">>> Please update your Service file (#49) at this time ..."
D ^GMPLISRV
D TIME
Q
HS ; install Health Summary components
N DIE,DIF,XCNP,XCN,DIC,DLAYGO,DINUM,X,Y,HSVER,INCLUDE
W !!,">>> Installing Health Summary components ... "
S HSVER=$G(^DD(142,0,"VR"))
W !,"'GMTSPLST' Routine..."
S X="GMPLHSPL",XCNP=0,DIF="^UTILITY(""GMPLHSPL""," X ^%ZOSF("LOAD")
S X="GMTSPLST",XCN=2,DIE="^UTILITY(""GMPLHSPL""," X ^%ZOSF("SAVE")
W "Filed." K ^UTILITY("GMPLHSPL")
HS1 ; filing components in HEALTH SUMMARY COMPONENT FILE
W !,"'PROBLEM LIST ACTIVE' Component..."
S (DIC,DLAYGO)=142.1,DIC(0)="NXL",X="PROBLEM LIST ACTIVE",DINUM=59
D ^DIC I +Y'>0 W $C(7),"Could not install." G HS2
S DIE=DIC,DA=+Y,DR="1///^S X=""ACTIVE""_$C(59)_""GMTSPLST"";3///PLA"
I HSVER>1.2 S DR=DR_";9///Active Problems"
D ^DIE
S ^GMT(142.1,+DA,3.5,0)="^^1^1^"_DT_"^"
S ^GMT(142.1,+DA,3.5,1,0)="This component lists all known active problems for a patient."
W "Filed."
HS2 W !,"'PROBLEM LIST INACTIVE' Component..."
S (DIC,DLAYGO)=142.1,DIC(0)="NXL",X="PROBLEM LIST INACTIVE",DINUM=60
D ^DIC I +Y'>0 W $C(7),"Could not install." G HS3
S DIE=DIC,DA=+Y,DR="1///^S X=""INACT""_$C(59)_""GMTSPLST"";3///PLI"
I HSVER>1.2 S DR=DR_";9///Inactive Problems"
D ^DIE
S ^GMT(142.1,+DA,3.5,0)="^^1^1^"_DT_"^"
S ^GMT(142.1,+DA,3.5,1,0)="This component lists all known inactive problems for a patient."
W "Filed."
HS3 W !,"'PROBLEM LIST ALL' Component..."
S (DIC,DLAYGO)=142.1,DIC(0)="NXL",X="PROBLEM LIST ALL",DINUM=61
D ^DIC I +Y'>0 W $C(7),"Could not install." G HSADH
S DIE=DIC,DA=+Y,DR="1///^S X=""ALL""_$C(59)_""GMTSPLST"";3///PLL"
I HSVER>1.2 S DR=DR_";9///All Problems"
D ^DIE
S ^GMT(142.1,+DA,3.5,0)="^^2^2^"_DT_"^"
S ^GMT(142.1,+DA,3.5,1,0)="This component lists all known problems, both active and inactive,",^GMT(142.1,+DA,3.5,2,0)="for a patient."
W "Filed."
HSADH ; add components to Ad Hoc HS
W !!,">>> Installing new components in Ad Hoc Health Summary ..."
S INCLUDE=0 D ENPOST^GMTSLOAD
Q
;
TIME ; Write start and stop times for inits
N %,%H,%I,X,Y D NOW^%DTC,YX^%DTC S GMPLSTOP=Y
W !!!,"Initialization started: "_$G(GMPLSTRT)
W !,"Initialization finished: "_GMPLSTOP,!
K GMPLSTOP,GMPLSTRT
Q
;
CKPARAM ; Ck PL menu for Verify action based on parameter
N PARAM,MENU,VERFY,BLANK,DIE,DR,DA
S PARAM=$P($G(^GMPL(125.99,1,0)),U,2)
S DA(1)=$O(^ORD(101,"B","GMPL PROBLEM LIST",0))
S VERFY=$O(^ORD(101,"B","GMPL VERIFY",0)),DA=$O(^ORD(101,DA(1),10,"B",+VERFY,0))
S MNEM=$P($G(^ORD(101,DA(1),10,DA,0)),U,2),BLANK=" "
Q:PARAM&(MNEM="$") Q:'PARAM&(MNEM="") ; ok
S DR=$S(PARAM:"2////$;6///@",1:"2///@;6///^S X=BLANK")
S DIE="^ORD(101,"_DA(1)_",10," D ^DIE
Q
GMPLIPST ; SLC/MKB -- Problem List post-init rtn ;5/18/94 10:30
+1 ;;2.0;Problem List;;Aug 25, 1994
EN ; entry point
+1 ; install protocols
DO ^GMPLONIT
+2 WRITE !!,">>> Installing List Templates ... "
DO ^GMPLIL
+3 IF '$DATA(^GMT(142))
WRITE !!,$CHAR(7),">>> HEALTH SUMMARY is not installed on this system!",!," After installing Health Summary, D HS^GMPLIPST to set up",!," Problem List components."
+4 IF '$TEST
DO HS
+5 ; ck Verify parameter w/PL menu for Verify action
DO CKPARAM
+6 ; set new Xrefs for PCE sites
IF +$ORDER(^AUPNPROB(0))
IF '$DATA(^AUPNPROB("C"))
Begin DoDot:1
+7 WRITE !!,">>> Setting new 'ACTIVE' and 'C' cross-references ..."
+8 SET DIK="^AUPNPROB("
SET DIK(1)=".12^ACTIVE"
DO ENALL^DIK
WRITE "."
+9 SET DIK="^AUPNPROB("
SET DIK(1)="1.01^C"
DO ENALL^DIK
WRITE "."
End DoDot:1
+10 SET XQORM=$ORDER(^ORD(101,"B","GMPL HIDDEN MENU",0))_";ORD(101,"
+11 ; recompile menu in ^XUTL
DO XREF^XQORM
KILL XQORM
EN1 ; Populate fld 1.7 in Service file, set new Xref
+1 IF '$DATA(^DIC(49,"ACHLD"))
SET DIK="^DIC(49,"
SET DIK(1)="1.6^ACHLD"
DO ENALL^DIK
+2 WRITE !!!,">>> Please update your Service file (#49) at this time ..."
+3 DO ^GMPLISRV
+4 DO TIME
+5 QUIT
HS ; install Health Summary components
+1 NEW DIE,DIF,XCNP,XCN,DIC,DLAYGO,DINUM,X,Y,HSVER,INCLUDE
+2 WRITE !!,">>> Installing Health Summary components ... "
+3 SET HSVER=$GET(^DD(142,0,"VR"))
+4 WRITE !,"'GMTSPLST' Routine..."
+5 SET X="GMPLHSPL"
SET XCNP=0
SET DIF="^UTILITY(""GMPLHSPL"","
XECUTE ^%ZOSF("LOAD")
+6 SET X="GMTSPLST"
SET XCN=2
SET DIE="^UTILITY(""GMPLHSPL"","
XECUTE ^%ZOSF("SAVE")
+7 WRITE "Filed."
KILL ^UTILITY("GMPLHSPL")
HS1 ; filing components in HEALTH SUMMARY COMPONENT FILE
+1 WRITE !,"'PROBLEM LIST ACTIVE' Component..."
+2 SET (DIC,DLAYGO)=142.1
SET DIC(0)="NXL"
SET X="PROBLEM LIST ACTIVE"
SET DINUM=59
+3 DO ^DIC
IF +Y'>0
WRITE $CHAR(7),"Could not install."
GOTO HS2
+4 SET DIE=DIC
SET DA=+Y
SET DR="1///^S X=""ACTIVE""_$C(59)_""GMTSPLST"";3///PLA"
+5 IF HSVER>1.2
SET DR=DR_";9///Active Problems"
+6 DO ^DIE
+7 SET ^GMT(142.1,+DA,3.5,0)="^^1^1^"_DT_"^"
+8 SET ^GMT(142.1,+DA,3.5,1,0)="This component lists all known active problems for a patient."
+9 WRITE "Filed."
HS2 WRITE !,"'PROBLEM LIST INACTIVE' Component..."
+1 SET (DIC,DLAYGO)=142.1
SET DIC(0)="NXL"
SET X="PROBLEM LIST INACTIVE"
SET DINUM=60
+2 DO ^DIC
IF +Y'>0
WRITE $CHAR(7),"Could not install."
GOTO HS3
+3 SET DIE=DIC
SET DA=+Y
SET DR="1///^S X=""INACT""_$C(59)_""GMTSPLST"";3///PLI"
+4 IF HSVER>1.2
SET DR=DR_";9///Inactive Problems"
+5 DO ^DIE
+6 SET ^GMT(142.1,+DA,3.5,0)="^^1^1^"_DT_"^"
+7 SET ^GMT(142.1,+DA,3.5,1,0)="This component lists all known inactive problems for a patient."
+8 WRITE "Filed."
HS3 WRITE !,"'PROBLEM LIST ALL' Component..."
+1 SET (DIC,DLAYGO)=142.1
SET DIC(0)="NXL"
SET X="PROBLEM LIST ALL"
SET DINUM=61
+2 DO ^DIC
IF +Y'>0
WRITE $CHAR(7),"Could not install."
GOTO HSADH
+3 SET DIE=DIC
SET DA=+Y
SET DR="1///^S X=""ALL""_$C(59)_""GMTSPLST"";3///PLL"
+4 IF HSVER>1.2
SET DR=DR_";9///All Problems"
+5 DO ^DIE
+6 SET ^GMT(142.1,+DA,3.5,0)="^^2^2^"_DT_"^"
+7 SET ^GMT(142.1,+DA,3.5,1,0)="This component lists all known problems, both active and inactive,"
SET ^GMT(142.1,+DA,3.5,2,0)="for a patient."
+8 WRITE "Filed."
HSADH ; add components to Ad Hoc HS
+1 WRITE !!,">>> Installing new components in Ad Hoc Health Summary ..."
+2 SET INCLUDE=0
DO ENPOST^GMTSLOAD
+3 QUIT
+4 ;
TIME ; Write start and stop times for inits
+1 NEW %,%H,%I,X,Y
DO NOW^%DTC
DO YX^%DTC
SET GMPLSTOP=Y
+2 WRITE !!!,"Initialization started: "_$GET(GMPLSTRT)
+3 WRITE !,"Initialization finished: "_GMPLSTOP,!
+4 KILL GMPLSTOP,GMPLSTRT
+5 QUIT
+6 ;
CKPARAM ; Ck PL menu for Verify action based on parameter
+1 NEW PARAM,MENU,VERFY,BLANK,DIE,DR,DA
+2 SET PARAM=$PIECE($GET(^GMPL(125.99,1,0)),U,2)
+3 SET DA(1)=$ORDER(^ORD(101,"B","GMPL PROBLEM LIST",0))
+4 SET VERFY=$ORDER(^ORD(101,"B","GMPL VERIFY",0))
SET DA=$ORDER(^ORD(101,DA(1),10,"B",+VERFY,0))
+5 SET MNEM=$PIECE($GET(^ORD(101,DA(1),10,DA,0)),U,2)
SET BLANK=" "
+6 ; ok
IF PARAM&(MNEM="$")
QUIT
IF 'PARAM&(MNEM="")
QUIT
+7 SET DR=$SELECT(PARAM:"2////$;6///@",1:"2///@;6///^S X=BLANK")
+8 SET DIE="^ORD(101,"_DA(1)_",10,"
DO ^DIE
+9 QUIT
