ORY277.m

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.VA.GOV",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

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.VA.GOV",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