BEHORXIN ;MSC/IND/DKM - Installation Support for Med Management;07-Jul-2015 16:19;PLS
;;1.1;BEH COMPONENTS;**009002,009005,009012,009013**;Mar 20, 2007
;=================================================================
PREINIT ;EP - Preinitialization
Q
POSTINIT ;EP - Postinitialization
D REGNMSP^CIAURPC("APSP","CIAV VUECENTRIC")
Q
N CMFDLG
S CMFDLG=$$FIND1^DIC(101.41,,"XQ","OR GTX CMF")
I 'CMFDLG D
.N FDA,IEN
.S FDA=$NA(FDA(101.41,"+1,"))
.S @FDA@(.01)="OR GTX CMF"
.S @FDA@(2)="Chronic Med?"
.S @FDA@(4)="P"
.S @FDA@(11)="S"
.S @FDA@(12)="Y:YES;N:NO"
.S @FDA@(13)="CMF"
.D UPDATE^DIE("","FDA","IEN")
.S CMFDLG=+$G(IEN(1))
I 'CMFDLG D
.D BMES^XPDUTL("Unable to add chronic med prompt to ORDER DIALOG file.")
E D ADDCMF("PS MEDS"),ADDCMF("PSO OERR")
D REGNMSP^CIAURPC("APSP","CIAV VUECENTRIC")
D REGMENU^BEHUTIL("BEHORX MAIN",,"MED")
Q
; Add CMF prompt to order dialog
ADDCMF(DLGNAME) ;
N ORDLG,FDA,IEN
S ORDLG=$$FIND1^DIC(101.41,,"XQ",DLGNAME)
Q:'ORDLG
Q:$O(^ORD(101.41,ORDLG,10,"D",CMFDLG,0))
S FDA=$NA(FDA(101.412,"+1,"_ORDLG_","))
S @FDA@(.01)=4.7
S @FDA@(2)=CMFDLG
S @FDA@(9)="*"
S @FDA@(21)=10
S @FDA@(24)="Chronic Med:"
D UPDATE^DIE("","FDA","IEN")
D:'$G(IEN(1)) BMES^XPDUTL("Unable to add chronic med prompt to "_DLGNAME_" order dialog.")
Q
;Change name of print formats
RNMFMT ;EP-
N NM,IEN,DIK,TMPL,LP
F LP=0:1 S TMPL=$P($T(LTMPL+LP),";;",2) Q:'$L(TMPL) D
.S IEN=$O(^BEHORX(90460.07,"B",TMPL,0)) Q:'IEN D
..S NM=$P(^BEHORX(90460.07,IEN,0),U)
..Q:$E(NM,$L(NM)-4,$L(NM))="(NEW)"
..S NM=NM_"(NEW)"
..S $P(^BEHORX(90460.07,IEN,0),U)=NM
K ^BEHORX(90460.07,"B")
S DIK="^BEHORX(90460.07,",DIK(1)=".01"
D ENALL^DIK
Q
LTMPL ;;ORDER FOR SIGNATURE (CII)(SAMPLE)
;;ORDER FOR SIGNATURE (NON-CII)(SAMPLE)
;;PRESCRIPTION (CII)(SAMPLE)
;;PRESCRIPTION (NON-CII)(SAMPLE)
;;RECEIPT (CII)(SAMPLE)
;;RECEIPT (NON-CII)(SAMPLE)
;;
BEHORXIN ;MSC/IND/DKM - Installation Support for Med Management;07-Jul-2015 16:19;PLS
+1 ;;1.1;BEH COMPONENTS;**009002,009005,009012,009013**;Mar 20, 2007
+2 ;=================================================================
PREINIT ;EP - Preinitialization
+1 QUIT
POSTINIT ;EP - Postinitialization
+1 DO REGNMSP^CIAURPC("APSP","CIAV VUECENTRIC")
+2 QUIT
+3 NEW CMFDLG
+4 SET CMFDLG=$$FIND1^DIC(101.41,,"XQ","OR GTX CMF")
+5 IF 'CMFDLG
Begin DoDot:1
+6 NEW FDA,IEN
+7 SET FDA=$NAME(FDA(101.41,"+1,"))
+8 SET @FDA@(.01)="OR GTX CMF"
+9 SET @FDA@(2)="Chronic Med?"
+10 SET @FDA@(4)="P"
+11 SET @FDA@(11)="S"
+12 SET @FDA@(12)="Y:YES;N:NO"
+13 SET @FDA@(13)="CMF"
+14 DO UPDATE^DIE("","FDA","IEN")
+15 SET CMFDLG=+$GET(IEN(1))
End DoDot:1
+16 IF 'CMFDLG
Begin DoDot:1
+17 DO BMES^XPDUTL("Unable to add chronic med prompt to ORDER DIALOG file.")
End DoDot:1
+18 IF '$TEST
DO ADDCMF("PS MEDS")
DO ADDCMF("PSO OERR")
+19 DO REGNMSP^CIAURPC("APSP","CIAV VUECENTRIC")
+20 DO REGMENU^BEHUTIL("BEHORX MAIN",,"MED")
+21 QUIT
+22 ; Add CMF prompt to order dialog
ADDCMF(DLGNAME) ;
+1 NEW ORDLG,FDA,IEN
+2 SET ORDLG=$$FIND1^DIC(101.41,,"XQ",DLGNAME)
+3 IF 'ORDLG
QUIT
+4 IF $ORDER(^ORD(101.41,ORDLG,10,"D",CMFDLG,0))
QUIT
+5 SET FDA=$NAME(FDA(101.412,"+1,"_ORDLG_","))
+6 SET @FDA@(.01)=4.7
+7 SET @FDA@(2)=CMFDLG
+8 SET @FDA@(9)="*"
+9 SET @FDA@(21)=10
+10 SET @FDA@(24)="Chronic Med:"
+11 DO UPDATE^DIE("","FDA","IEN")
+12 IF '$GET(IEN(1))
DO BMES^XPDUTL("Unable to add chronic med prompt to "_DLGNAME_" order dialog.")
+13 QUIT
+14 ;Change name of print formats
RNMFMT ;EP-
+1 NEW NM,IEN,DIK,TMPL,LP
+2 FOR LP=0:1
SET TMPL=$PIECE($TEXT(LTMPL+LP),";;",2)
IF '$LENGTH(TMPL)
QUIT
Begin DoDot:1
+3 SET IEN=$ORDER(^BEHORX(90460.07,"B",TMPL,0))
IF 'IEN
QUIT
Begin DoDot:2
+4 SET NM=$PIECE(^BEHORX(90460.07,IEN,0),U)
+5 IF $EXTRACT(NM,$LENGTH(NM)-4,$LENGTH(NM))="(NEW)"
QUIT
+6 SET NM=NM_"(NEW)"
+7 SET $PIECE(^BEHORX(90460.07,IEN,0),U)=NM
End DoDot:2
End DoDot:1
+8 KILL ^BEHORX(90460.07,"B")
+9 SET DIK="^BEHORX(90460.07,"
SET DIK(1)=".01"
+10 DO ENALL^DIK
+11 QUIT
LTMPL ;;ORDER FOR SIGNATURE (CII)(SAMPLE)
+1 ;;ORDER FOR SIGNATURE (NON-CII)(SAMPLE)
+2 ;;PRESCRIPTION (CII)(SAMPLE)
+3 ;;PRESCRIPTION (NON-CII)(SAMPLE)
+4 ;;RECEIPT (CII)(SAMPLE)
+5 ;;RECEIPT (NON-CII)(SAMPLE)
+6 ;;
