ORY277 ;SLCOIFO - Post-init for patch OR*3*277 ;08/01/2007
;;3.0;ORDER ENTRY/RESULTS REPORTING;**277**;Dec 17, 1997;Build 13
;
PRE ; initiate pre-init processes
;
Q
;
POST ; initiate post-init processes
;
D VITREG ;register Vitals RPC
I +$$PATCH^XPDUTL("MAG*3.0*7") D MAGREG1
I +$$PATCH^XPDUTL("MAG*3.0*37") D MAGREG2
D MAIL
Q
;
MAIL ; send bulletin of installation time
N DA,DIE,DR,VERSNUM,NAME,OPTIEN
S DA=$O(^DIC(19,"B","OR CPRS GUI CHART","")) Q:DA'>0
;Change to versnum to store the new version number
S VERSNUM="CPRSChart version 1.0.26.76"
S DIE="^DIC(19,",DR="1////^S X=VERSNUM" D ^DIE
;
N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
S COUNT=0,XMDUZ="CPRS PACKAGE",XMTEXT="TEXT("
S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
F I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",DUZ S XMY(I)=""
;
S X=$P($T(VERSION),";;",2)
D LINE("Version "_X_" has been installed.")
D LINE(" ")
D LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
;
D ^XMD
Q
;
VITREG ; Register Vitals RPC
D ADDRPCS^GMV3PST ;call tag from vitals patch post init to register
Q
;
MAGREG1 ; Register Imaging RPC if MAG*3.0*7 installed (DBIA 4526)
D INSERT("OR CPRS GUI CHART","MAG4 REMOTE IMPORT")
Q
;
MAGREG2 ; Register Imaging RPCS if MAG*3.0*37 installed (DBIA 4528/4530)
D INSERT("OR CPRS GUI CHART","MAG IMPORT CHECK STATUS")
D INSERT("OR CPRS GUI CHART","MAG IMPORT CLEAR STATUS")
Q
;
LINE(DATA) ; set text into array
S COUNT=COUNT+1
S TEXT(COUNT)=DATA
Q
;
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
; Input -- OPTION Option file (#19) Name field (#.01)
; RPC RPC sub-file (#19.05) RPC field (#.01)
; Output -- None
N FDA,FDAIEN,ERR,DIERR
S FDA(19,"?1,",.01)=OPTION
S FDA(19.05,"?+2,?1,",.01)=RPC
D UPDATE^DIE("E","FDA","FDAIEN","ERR")
Q
;
VERSION ;;26.76
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY277 1890 printed Dec 13, 2024@02:40:28 Page 2
ORY277 ;SLCOIFO - Post-init for patch OR*3*277 ;08/01/2007
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**277**;Dec 17, 1997;Build 13
+2 ;
PRE ; initiate pre-init processes
+1 ;
+2 QUIT
+3 ;
POST ; initiate post-init processes
+1 ;
+2 ;register Vitals RPC
DO VITREG
+3 IF +$$PATCH^XPDUTL("MAG*3.0*7")
DO MAGREG1
+4 IF +$$PATCH^XPDUTL("MAG*3.0*37")
DO MAGREG2
+5 DO MAIL
+6 QUIT
+7 ;
MAIL ; send bulletin of installation time
+1 NEW DA,DIE,DR,VERSNUM,NAME,OPTIEN
+2 SET DA=$ORDER(^DIC(19,"B","OR CPRS GUI CHART",""))
if DA'>0
QUIT
+3 ;Change to versnum to store the new version number
+4 SET VERSNUM="CPRSChart version 1.0.26.76"
+5 SET DIE="^DIC(19,"
SET DR="1////^S X=VERSNUM"
DO ^DIE
+6 ;
+7 NEW COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
+8 SET COUNT=0
SET XMDUZ="CPRS PACKAGE"
SET XMTEXT="TEXT("
+9 SET XMSUB="Version "_$PIECE($TEXT(VERSION),";;",2)_" Installed"
+10 FOR I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",DUZ
SET XMY(I)=""
+11 ;
+12 SET X=$PIECE($TEXT(VERSION),";;",2)
+13 DO LINE("Version "_X_" has been installed.")
+14 DO LINE(" ")
+15 DO LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
+16 ;
+17 DO ^XMD
+18 QUIT
+19 ;
VITREG ; Register Vitals RPC
+1 ;call tag from vitals patch post init to register
DO ADDRPCS^GMV3PST
+2 QUIT
+3 ;
MAGREG1 ; Register Imaging RPC if MAG*3.0*7 installed (DBIA 4526)
+1 DO INSERT("OR CPRS GUI CHART","MAG4 REMOTE IMPORT")
+2 QUIT
+3 ;
MAGREG2 ; Register Imaging RPCS if MAG*3.0*37 installed (DBIA 4528/4530)
+1 DO INSERT("OR CPRS GUI CHART","MAG IMPORT CHECK STATUS")
+2 DO INSERT("OR CPRS GUI CHART","MAG IMPORT CLEAR STATUS")
+3 QUIT
+4 ;
LINE(DATA) ; set text into array
+1 SET COUNT=COUNT+1
+2 SET TEXT(COUNT)=DATA
+3 QUIT
+4 ;
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
+1 ; Input -- OPTION Option file (#19) Name field (#.01)
+2 ; RPC RPC sub-file (#19.05) RPC field (#.01)
+3 ; Output -- None
+4 NEW FDA,FDAIEN,ERR,DIERR
+5 SET FDA(19,"?1,",.01)=OPTION
+6 SET FDA(19.05,"?+2,?1,",.01)=RPC
+7 DO UPDATE^DIE("E","FDA","FDAIEN","ERR")
+8 QUIT
+9 ;
VERSION ;;26.76
