ORY274 ;SLC/SLCOIFO-Pre and Post-init for patch OR*3*274 ;09/27/07 13:44
;;3.0;ORDER ENTRY/RESULTS REPORTING;**274**;Dec 17, 1997;Build 20
;
PRE ; initiate pre-init processes
D PEOMRPT
Q
;
PEOMRPT ;Remove new & changed reports from OE/RR REPORTS file (101.24)
N ORI,ORVIT
S ORVIT=0
I $P($G(^ORD(101.24,1032,0)),"^",1)="ORRPW ALLERGIES ADV" D
. S ORVIT=1,DA=1032,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1032,0)="ORRPW ALLERGIES ADV",^ORD(101.24,"B","ORRPW ALLERGIES ADV",1032)=""
I $P($G(^ORD(101.24,1100,0)),"^",1)="ORRPW ORDERS CURRENT" D
. S ORVIT=1,DA=1100,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1100,0)="ORRPW ORDERS CURRENT",^ORD(101.24,"B","ORRPW ORDERS CURRENT",1100)=""
I $P($G(^ORD(101.24,1079,0)),"^",1)="ORRPW PHARMACY ALL OUT" D
. S ORVIT=1,DA=1079,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1079,0)="ORRPW PHARMACY ALL OUT",^ORD(101.24,"B","ORRPW PHARMACY ALL OUT",1079)=""
I $P($G(^ORD(101.24,48,0)),"^",1)="ORRP SURGERIES" D
. S ORVIT=1,DA=48,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,48,0)="ORRP SURGERIES",^ORD(101.24,"B","ORRP SURGERIES",48)=""
I $P($G(^ORD(101.24,1137,0)),"^",1)="ORRPW DOD ALLERGIES ADV" D
. S ORVIT=1,DA=1137,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1137,0)="ORRPW DOD ALLERGIES ADV",^ORD(101.24,"B","ORRPW DOD ALLERGIES ADV",1137)=""
I $P($G(^ORD(101.24,1551,0)),"^",1)="ORRPW HDR ALLERGIES" D
. S ORVIT=1,DA=1551,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1551,0)="ORRPW HDR ALLERGIES",^ORD(101.24,"B","ORRPW HDR ALLERGIES",1551)=""
I $P($G(^ORD(101.24,1553,0)),"^",1)="ORRPW HDR PHARMACY OUT" D
. S ORVIT=1,DA=1553,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1553,0)="ORRPW HDR PHARMACY OUT",^ORD(101.24,"B","ORRPW HDR PHARMACY OUT",1553)=""
I $P($G(^ORD(101.24,1105,0)),"^",1)="ORRPW DOD PHARM ALL OUT" D
. S ORVIT=1,DA=1105,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1105,0)="ORRPW DOD PHARM ALL OUT",^ORD(101.24,"B","ORRPW DOD PHARM ALL OUT",1105)=""
I $P($G(^ORD(101.24,1078,0)),"^",1)="ORRPW PHARMACY ACT OUT" D
. S ORVIT=1,DA=1078,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,1078,0)="ORRPW PHARMACY ACT OUT",^ORD(101.24,"B","ORRPW PHARMACY ACT OUT",1078)=""
Q
POST ; initiate post-init processes
;
N RESULT
S RESULT=$$BSESETUP
I '+RESULT W "***BSE SETUP FAILED: POST INSTALL *NOT* COMPLETED SUCCESSFULLY***",! Q
S RESULT=$$DETSETUP
I '+RESULT W "***DETAIL SETUP FAILED: POST INSTALL *NOT* COMPLETED SUCCESSFULLY***",! Q
W "=== POST INSTALL COMPLETED SUCCESSFULLY ==="
Q
;
BSESETUP() ;
N NAME S NAME=".w387LyM\4E-t7g*SgPl"
W !,"REMOVING OLD BSE V/W ENTRY",!
I +$$DELBSE(NAME) D Q $$SAVEBSE(NAME)
.W "ADDING NEW BSE V/W ENTRY",!
W "V/W BSE SETUP *NOT* COMPLETED SUCCESSFULLY",!
Q 0
;
DETSETUP() ;
Q 1
;
DELBSE(NAME) ;
W "LOOKING FOR OLD V/W ENTRY",!
N ERR,LIST
D FIND^DIC(8994.5,"","@","X",NAME,"*","ACODE","","","LIST","ERR")
I '+$D(LIST("DILIST",0)) D Q 0
.W "ERROR LOOKING UP OLD V/W ENTRY",!
.W ERR
I '+$P(LIST("DILIST",0),"^",1) D Q 1
.W "NO OLD V/W ENTRIES FOUND",!
N I,FDA S I=0
F S I=$O(LIST("DILIST",2,I)) Q:'I D
.K FDA S FDA(8994.5,LIST("DILIST",2,I)_",",.01)="@"
.D FILE^DIE("","FDA","ERR")
.W "REMOVED OLD V/W BSE ENTRY:"_LIST("DILIST",2,I),!
.I $D(ERR) D
..W "ERROR LOOKING UP OLD V/W ENTRY",!
..W ERR
Q 1
;
SAVEBSE(NAME) ;
N FDA,ERR,INDEX
S FDA(8994.5,"+1,",.01)="VISTAWEB"
S INDEX=$$CPRSOPT
I +$G(INDEX)'>0 D Q 0
.W "COULD NOT FIND CPRS OPTION:"_INDEX,!
S FDA(8994.5,"+1,",.02)=INDEX
S FDA(8994.5,"+1,",.03)=NAME
S FDA(8994.51,"+2,+1,",.01)="H"
S FDA(8994.51,"+2,+1,",.02)="12181"
S FDA(8994.51,"+2,+1,",.03)="127.0.0.1"
S FDA(8994.51,"+2,+1,",.04)="/resolve.do"
W "WRITING TO (BSE) REMOTE APPLICATION FILE",!
D UPDATE^DIE("","FDA","","ERR")
I +$D(ERR) D Q 0
.W ERR
W "VISTAWEB ENTRY SUCCESSFULLY ADDED",!
Q 1
;
CPRSOPT() ;Finds the IEN of the option for "OR CPRS GUI CHART"
N OPTNAME S OPTNAME="OR CPRS GUI CHART"
W "LOOKING FOR '"_OPTNAME_"'",!
N INDEX,ERR S INDEX=$$FIND1^DIC(19,"","X",OPTNAME,"B","","ERR")
I +$D(ERR) D Q 0
.W "ERROR TRYING TO FIND OPTION",!
.W ERR
W "FOUND OPTION",!
Q INDEX
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY274 4171 printed Sep 23, 2025@20:16:46 Page 2
ORY274 ;SLC/SLCOIFO-Pre and Post-init for patch OR*3*274 ;09/27/07 13:44
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**274**;Dec 17, 1997;Build 20
+2 ;
PRE ; initiate pre-init processes
+1 DO PEOMRPT
+2 QUIT
+3 ;
PEOMRPT ;Remove new & changed reports from OE/RR REPORTS file (101.24)
+1 NEW ORI,ORVIT
+2 SET ORVIT=0
+3 IF $PIECE($GET(^ORD(101.24,1032,0)),"^",1)="ORRPW ALLERGIES ADV"
Begin DoDot:1
+4 SET ORVIT=1
SET DA=1032
SET DIK="^ORD(101.24,"
DO ^DIK
+5 SET ^ORD(101.24,1032,0)="ORRPW ALLERGIES ADV"
SET ^ORD(101.24,"B","ORRPW ALLERGIES ADV",1032)=""
End DoDot:1
+6 IF $PIECE($GET(^ORD(101.24,1100,0)),"^",1)="ORRPW ORDERS CURRENT"
Begin DoDot:1
+7 SET ORVIT=1
SET DA=1100
SET DIK="^ORD(101.24,"
DO ^DIK
+8 SET ^ORD(101.24,1100,0)="ORRPW ORDERS CURRENT"
SET ^ORD(101.24,"B","ORRPW ORDERS CURRENT",1100)=""
End DoDot:1
+9 IF $PIECE($GET(^ORD(101.24,1079,0)),"^",1)="ORRPW PHARMACY ALL OUT"
Begin DoDot:1
+10 SET ORVIT=1
SET DA=1079
SET DIK="^ORD(101.24,"
DO ^DIK
+11 SET ^ORD(101.24,1079,0)="ORRPW PHARMACY ALL OUT"
SET ^ORD(101.24,"B","ORRPW PHARMACY ALL OUT",1079)=""
End DoDot:1
+12 IF $PIECE($GET(^ORD(101.24,48,0)),"^",1)="ORRP SURGERIES"
Begin DoDot:1
+13 SET ORVIT=1
SET DA=48
SET DIK="^ORD(101.24,"
DO ^DIK
+14 SET ^ORD(101.24,48,0)="ORRP SURGERIES"
SET ^ORD(101.24,"B","ORRP SURGERIES",48)=""
End DoDot:1
+15 IF $PIECE($GET(^ORD(101.24,1137,0)),"^",1)="ORRPW DOD ALLERGIES ADV"
Begin DoDot:1
+16 SET ORVIT=1
SET DA=1137
SET DIK="^ORD(101.24,"
DO ^DIK
+17 SET ^ORD(101.24,1137,0)="ORRPW DOD ALLERGIES ADV"
SET ^ORD(101.24,"B","ORRPW DOD ALLERGIES ADV",1137)=""
End DoDot:1
+18 IF $PIECE($GET(^ORD(101.24,1551,0)),"^",1)="ORRPW HDR ALLERGIES"
Begin DoDot:1
+19 SET ORVIT=1
SET DA=1551
SET DIK="^ORD(101.24,"
DO ^DIK
+20 SET ^ORD(101.24,1551,0)="ORRPW HDR ALLERGIES"
SET ^ORD(101.24,"B","ORRPW HDR ALLERGIES",1551)=""
End DoDot:1
+21 IF $PIECE($GET(^ORD(101.24,1553,0)),"^",1)="ORRPW HDR PHARMACY OUT"
Begin DoDot:1
+22 SET ORVIT=1
SET DA=1553
SET DIK="^ORD(101.24,"
DO ^DIK
+23 SET ^ORD(101.24,1553,0)="ORRPW HDR PHARMACY OUT"
SET ^ORD(101.24,"B","ORRPW HDR PHARMACY OUT",1553)=""
End DoDot:1
+24 IF $PIECE($GET(^ORD(101.24,1105,0)),"^",1)="ORRPW DOD PHARM ALL OUT"
Begin DoDot:1
+25 SET ORVIT=1
SET DA=1105
SET DIK="^ORD(101.24,"
DO ^DIK
+26 SET ^ORD(101.24,1105,0)="ORRPW DOD PHARM ALL OUT"
SET ^ORD(101.24,"B","ORRPW DOD PHARM ALL OUT",1105)=""
End DoDot:1
+27 IF $PIECE($GET(^ORD(101.24,1078,0)),"^",1)="ORRPW PHARMACY ACT OUT"
Begin DoDot:1
+28 SET ORVIT=1
SET DA=1078
SET DIK="^ORD(101.24,"
DO ^DIK
+29 SET ^ORD(101.24,1078,0)="ORRPW PHARMACY ACT OUT"
SET ^ORD(101.24,"B","ORRPW PHARMACY ACT OUT",1078)=""
End DoDot:1
+30 QUIT
POST ; initiate post-init processes
+1 ;
+2 NEW RESULT
+3 SET RESULT=$$BSESETUP
+4 IF '+RESULT
WRITE "***BSE SETUP FAILED: POST INSTALL *NOT* COMPLETED SUCCESSFULLY***",!
QUIT
+5 SET RESULT=$$DETSETUP
+6 IF '+RESULT
WRITE "***DETAIL SETUP FAILED: POST INSTALL *NOT* COMPLETED SUCCESSFULLY***",!
QUIT
+7 WRITE "=== POST INSTALL COMPLETED SUCCESSFULLY ==="
+8 QUIT
+9 ;
BSESETUP() ;
+1 NEW NAME
SET NAME=".w387LyM\4E-t7g*SgPl"
+2 WRITE !,"REMOVING OLD BSE V/W ENTRY",!
+3 IF +$$DELBSE(NAME)
Begin DoDot:1
+4 WRITE "ADDING NEW BSE V/W ENTRY",!
End DoDot:1
QUIT $$SAVEBSE(NAME)
+5 WRITE "V/W BSE SETUP *NOT* COMPLETED SUCCESSFULLY",!
+6 QUIT 0
+7 ;
DETSETUP() ;
+1 QUIT 1
+2 ;
DELBSE(NAME) ;
+1 WRITE "LOOKING FOR OLD V/W ENTRY",!
+2 NEW ERR,LIST
+3 DO FIND^DIC(8994.5,"","@","X",NAME,"*","ACODE","","","LIST","ERR")
+4 IF '+$DATA(LIST("DILIST",0))
Begin DoDot:1
+5 WRITE "ERROR LOOKING UP OLD V/W ENTRY",!
+6 WRITE ERR
End DoDot:1
QUIT 0
+7 IF '+$PIECE(LIST("DILIST",0),"^",1)
Begin DoDot:1
+8 WRITE "NO OLD V/W ENTRIES FOUND",!
End DoDot:1
QUIT 1
+9 NEW I,FDA
SET I=0
+10 FOR
SET I=$ORDER(LIST("DILIST",2,I))
if 'I
QUIT
Begin DoDot:1
+11 KILL FDA
SET FDA(8994.5,LIST("DILIST",2,I)_",",.01)="@"
+12 DO FILE^DIE("","FDA","ERR")
+13 WRITE "REMOVED OLD V/W BSE ENTRY:"_LIST("DILIST",2,I),!
+14 IF $DATA(ERR)
Begin DoDot:2
+15 WRITE "ERROR LOOKING UP OLD V/W ENTRY",!
+16 WRITE ERR
End DoDot:2
End DoDot:1
+17 QUIT 1
+18 ;
SAVEBSE(NAME) ;
+1 NEW FDA,ERR,INDEX
+2 SET FDA(8994.5,"+1,",.01)="VISTAWEB"
+3 SET INDEX=$$CPRSOPT
+4 IF +$GET(INDEX)'>0
Begin DoDot:1
+5 WRITE "COULD NOT FIND CPRS OPTION:"_INDEX,!
End DoDot:1
QUIT 0
+6 SET FDA(8994.5,"+1,",.02)=INDEX
+7 SET FDA(8994.5,"+1,",.03)=NAME
+8 SET FDA(8994.51,"+2,+1,",.01)="H"
+9 SET FDA(8994.51,"+2,+1,",.02)="12181"
+10 SET FDA(8994.51,"+2,+1,",.03)="127.0.0.1"
+11 SET FDA(8994.51,"+2,+1,",.04)="/resolve.do"
+12 WRITE "WRITING TO (BSE) REMOTE APPLICATION FILE",!
+13 DO UPDATE^DIE("","FDA","","ERR")
+14 IF +$DATA(ERR)
Begin DoDot:1
+15 WRITE ERR
End DoDot:1
QUIT 0
+16 WRITE "VISTAWEB ENTRY SUCCESSFULLY ADDED",!
+17 QUIT 1
+18 ;
CPRSOPT() ;Finds the IEN of the option for "OR CPRS GUI CHART"
+1 NEW OPTNAME
SET OPTNAME="OR CPRS GUI CHART"
+2 WRITE "LOOKING FOR '"_OPTNAME_"'",!
+3 NEW INDEX,ERR
SET INDEX=$$FIND1^DIC(19,"","X",OPTNAME,"B","","ERR")
+4 IF +$DATA(ERR)
Begin DoDot:1
+5 WRITE "ERROR TRYING TO FIND OPTION",!
+6 WRITE ERR
End DoDot:1
QUIT 0
+7 WRITE "FOUND OPTION",!
+8 QUIT INDEX
+9 ;
