RA41PST.m

RA41PST ;HOIFO/SWM-Post install ;6/2/03  10:30

 ;;5.0;Radiology/Nuclear Medicine;**41**;Mar 16, 1998

 ; This is the post-install routine for patch RA*5.0*41

 ; 

 ; This routine may be deleted after RA*5.0*41 is installed.

 ;

 ; Silent recompile of input templates:

 ;   RA REGISTER (file 70)

 ;   RA ORDER EXAM (file 75.1)

 ;   RA QUICK EXAM ORDER (file 75.1)

 ;

 I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q

 N X,Y,DMAX,RATXT,RAITMPL,RAERR,I,N,RABAD

 ;

 ; X=rtn name, RAITMPL=tmpl name

 ;

 S X="RACTRG",RAITMPL="RA REGISTER" D COMP

 S X="RACTQE",RAITMPL="RA QUICK EXAM ORDER" D COMP

 S X="RACTOE",RAITMPL="RA ORDER EXAM" D COMP

 Q

COMP S DMAX=$$ROUSIZE^DILF

 S Y=$$FIND1^DIC(.402,,"BX",RAITMPL,,,"RAERR")

 I 'Y D  S RABAD=1

 . S RATXT(1)=" "

 . S RATXT(2)="** Cannot find input template "_RAITMPL_" **"

 . S RATXT(6)=" "

 . D MES^XPDUTL(.RATXT)

 I $D(RAERR) D  S RABAD=1

 . K RATXT

 . S RATXT(1)=" "

 . S RATXT(2)="** One or more error codes were return: **"

 . S N=2

 . S I=0 F I=1:1:17 S I=$O(RAERR("DIERR","E",I)) Q:'I  S N=N+1,RATXT(N)="     "_I_" -- "_$G(RAERR("DIERR",1,"TEXT",1))

 . S N=N+1,RATXT(N)=" "

 . D MES^XPDUTL(.RATXT)

 I $D(RABAD) D  Q

 . K RATXT

 . S RATXT(1)="** Recompilation of "_RAITMPL_" is not done. **"

 . S RATXT(2)=" "

 . S RATXT(3)="** Please log a NOIS for the Radiology module. **"

 . S RATXT(4)=" "

 . D MES^XPDUTL(.RATXT)

 S RATXT="          Compiling input template "_RAITMPL_"."

 D BMES^XPDUTL(RATXT)

 D EN^DIEZ

 S RATXT="          Finished compiling input template "_RAITMPL_"."

 D BMES^XPDUTL(RATXT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RA41PST   1662     printed  Apr 09, 2024@21:39:39                                                                                                                                                                                                     Page 2

RA41PST   ;HOIFO/SWM-Post install ;6/2/03  10:30

 +1       ;;5.0;Radiology/Nuclear Medicine;**41**;Mar 16, 1998

 +2       ; This is the post-install routine for patch RA*5.0*41

 +3       ; 

 +4       ; This routine may be deleted after RA*5.0*41 is installed.

 +5       ;

 +6       ; Silent recompile of input templates:

 +7       ;   RA REGISTER (file 70)

 +8       ;   RA ORDER EXAM (file 75.1)

 +9       ;   RA QUICK EXAM ORDER (file 75.1)

 +10      ;

 +11       IF '$DATA(XPDNM)#2

               DO EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)")

               QUIT 

 +12       NEW X,Y,DMAX,RATXT,RAITMPL,RAERR,I,N,RABAD

 +13      ;

 +14      ; X=rtn name, RAITMPL=tmpl name

 +15      ;

 +16       SET X="RACTRG"

           SET RAITMPL="RA REGISTER"

           DO COMP

 +17       SET X="RACTQE"

           SET RAITMPL="RA QUICK EXAM ORDER"

           DO COMP

 +18       SET X="RACTOE"

           SET RAITMPL="RA ORDER EXAM"

           DO COMP

 +19       QUIT 

COMP       SET DMAX=$$ROUSIZE^DILF

 +1        SET Y=$$FIND1^DIC(.402,,"BX",RAITMPL,,,"RAERR")

 +2        IF 'Y

               Begin DoDot:1

 +3                SET RATXT(1)=" "

 +4                SET RATXT(2)="** Cannot find input template "_RAITMPL_" **"

 +5                SET RATXT(6)=" "

 +6                DO MES^XPDUTL(.RATXT)

               End DoDot:1

               SET RABAD=1

 +7        IF $DATA(RAERR)

               Begin DoDot:1

 +8                KILL RATXT

 +9                SET RATXT(1)=" "

 +10               SET RATXT(2)="** One or more error codes were return: **"

 +11               SET N=2

 +12               SET I=0

                   FOR I=1:1:17

                       SET I=$ORDER(RAERR("DIERR","E",I))

                       if 'I

                           QUIT 

                       SET N=N+1

                       SET RATXT(N)="     "_I_" -- "_$GET(RAERR("DIERR",1,"TEXT",1))

 +13               SET N=N+1

                   SET RATXT(N)=" "

 +14               DO MES^XPDUTL(.RATXT)

               End DoDot:1

               SET RABAD=1

 +15       IF $DATA(RABAD)

               Begin DoDot:1

 +16               KILL RATXT

 +17               SET RATXT(1)="** Recompilation of "_RAITMPL_" is not done. **"

 +18               SET RATXT(2)=" "

 +19               SET RATXT(3)="** Please log a NOIS for the Radiology module. **"

 +20               SET RATXT(4)=" "

 +21               DO MES^XPDUTL(.RATXT)

               End DoDot:1

               QUIT 

 +22       SET RATXT="          Compiling input template "_RAITMPL_"."

 +23       DO BMES^XPDUTL(RATXT)

 +24       DO EN^DIEZ

 +25       SET RATXT="          Finished compiling input template "_RAITMPL_"."

 +26       DO BMES^XPDUTL(RATXT)

 +27       QUIT