RA75PST.m

RA75PST ;Hines OI/GJC - Post-init Driver, patch 75 ;01/05/06  06:32

VERSION ;;5.0;Radiology/Nuclear Medicine;**75**;Mar 16, 1998;Build 4

 ;

 Q

 ;

EN ; entry point for the post-install logic

 ; make sure the [RA ORDER EXAM] (RACTOE*) & [RA QUICK EXAM ORDER] (RACTQE*) 

 ; input templates are re-compiled so user workflow is not interrupted.

 ;

 ; Integration Agreements utilized in this software

 ; 

 ; tag     routine  number   usage      custodian

 ; --------------------------------------------------

 ; EN      DIEZ     10002    supported  VA FileMan

 ; BMES    XPDUTL   10141    supported  KERNEL

 ; FIND    DIC      2051     supported  VA FileMan

 ; ROUSIZE DILF     2649     supported  VA FileMan

 ;

 ;   RADMAX=maximum routine size (bytes) for this system

 ;  RACTNAM=compiled input template name (fixed to input template)

 ; RAINPERR=error flag - default value is zero (no error condition)

 ;          a value of one if: the input template lookup failed or

 ;          expected compiled input template name is not associated

 ;          with the proper input template

 ; RAINP751=local array where input template specific data is stored

 ; RAINPNME=input template name

 ;

 N X,Y,DMAX K RACTNAM,RADMAX,RAINPERR,RAINPNME S RADMAX=$$ROUSIZE^DILF

 F RAINPNME="RA ORDER EXAM","RA QUICK EXAM ORDER" D

 .K RAINP751 S RAINPERR=0

 .;

 .;input template RA ORDER EXAM compiles routines in the namespace: RACTOE*

 .;input template RA QUICK EXAM ORDER compiles routines in the namespace: RACTQE*

 .;

 .S RACTNAM=$S(RAINPNME="RA ORDER EXAM":"RACTOE",1:"RACTQE")

 .;

 .D FIND^DIC(.402,"","","O",RAINPNME,"","","","","RAINP751","")

 .;

 .;If the input template record is missing quit but check the other input template.

 .;

 .I $G(RAINP751("DILIST",2,1))'>0 S RAINPERR=$$ERROR(RAINPNME) Q

 .;

 .;compile the input templates...

 .;

 .K DMAX,X,Y

 .;DMAX: maximum routine size

 .;   X: the name of the routine for the compiled input template; i.e. RACTOE

 .;   Y: the IEN of the input template to be compiled

 .S DMAX=RADMAX,X=RACTNAM,Y=$G(RAINP751("DILIST",2,1))

 .D EN^DIEZ

 .Q

XIT K RACTNAM,RADMAX,RAINP751,RAINPERR,RAINPNME

 Q

 ;

ERROR(N) ;This function set the error flag & records the error

 K RATXT S RATXT(1)="'"_N_"' was not found in the INPUT TEMPLATE (#.402) file."

 S RATXT(2)=" " D BMES^XPDUTL(.RATXT) K RATXT

 Q 1

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RA75PST   2379     printed  Apr 09, 2024@21:39:12                                                                                                                                                                                                     Page 2

RA75PST   ;Hines OI/GJC - Post-init Driver, patch 75 ;01/05/06  06:32

VERSION   ;;5.0;Radiology/Nuclear Medicine;**75**;Mar 16, 1998;Build 4

 +1       ;

 +2        QUIT 

 +3       ;

EN        ; entry point for the post-install logic

 +1       ; make sure the [RA ORDER EXAM] (RACTOE*) & [RA QUICK EXAM ORDER] (RACTQE*) 

 +2       ; input templates are re-compiled so user workflow is not interrupted.

 +3       ;

 +4       ; Integration Agreements utilized in this software

 +5       ; 

 +6       ; tag     routine  number   usage      custodian

 +7       ; --------------------------------------------------

 +8       ; EN      DIEZ     10002    supported  VA FileMan

 +9       ; BMES    XPDUTL   10141    supported  KERNEL

 +10      ; FIND    DIC      2051     supported  VA FileMan

 +11      ; ROUSIZE DILF     2649     supported  VA FileMan

 +12      ;

 +13      ;   RADMAX=maximum routine size (bytes) for this system

 +14      ;  RACTNAM=compiled input template name (fixed to input template)

 +15      ; RAINPERR=error flag - default value is zero (no error condition)

 +16      ;          a value of one if: the input template lookup failed or

 +17      ;          expected compiled input template name is not associated

 +18      ;          with the proper input template

 +19      ; RAINP751=local array where input template specific data is stored

 +20      ; RAINPNME=input template name

 +21      ;

 +22       NEW X,Y,DMAX

           KILL RACTNAM,RADMAX,RAINPERR,RAINPNME

           SET RADMAX=$$ROUSIZE^DILF

 +23       FOR RAINPNME="RA ORDER EXAM","RA QUICK EXAM ORDER"

               Begin DoDot:1

 +24               KILL RAINP751

                   SET RAINPERR=0

 +25      ;

 +26      ;input template RA ORDER EXAM compiles routines in the namespace: RACTOE*

 +27      ;input template RA QUICK EXAM ORDER compiles routines in the namespace: RACTQE*

 +28      ;

 +29               SET RACTNAM=$SELECT(RAINPNME="RA ORDER EXAM":"RACTOE",1:"RACTQE")

 +30      ;

 +31               DO FIND^DIC(.402,"","","O",RAINPNME,"","","","","RAINP751","")

 +32      ;

 +33      ;If the input template record is missing quit but check the other input template.

 +34      ;

 +35               IF $GET(RAINP751("DILIST",2,1))'>0

                       SET RAINPERR=$$ERROR(RAINPNME)

                       QUIT 

 +36      ;

 +37      ;compile the input templates...

 +38      ;

 +39               KILL DMAX,X,Y

 +40      ;DMAX: maximum routine size

 +41      ;   X: the name of the routine for the compiled input template; i.e. RACTOE

 +42      ;   Y: the IEN of the input template to be compiled

 +43               SET DMAX=RADMAX

                   SET X=RACTNAM

                   SET Y=$GET(RAINP751("DILIST",2,1))

 +44               DO EN^DIEZ

 +45               QUIT 

               End DoDot:1

XIT        KILL RACTNAM,RADMAX,RAINP751,RAINPERR,RAINPNME

 +1        QUIT 

 +2       ;

ERROR(N)  ;This function set the error flag & records the error

 +1        KILL RATXT

           SET RATXT(1)="'"_N_"' was not found in the INPUT TEMPLATE (#.402) file."

 +2        SET RATXT(2)=" "

           DO BMES^XPDUTL(.RATXT)

           KILL RATXT

 +3        QUIT 1

 +4       ;