TIUPS160.m

TIUPS160 ;SLC/AJB - Post install to Register New RPCs ; 05/29/03

 ;;1.0;TEXT INTEGRATION UTILITIES;**160**;Jun 20, 1997

 ;

 Q

REG ; Register RPCs

 N TIUMENU,TIURPC

 S TIUMENU="OR CPRS GUI CHART"

 F TIURPC="TIU HAS AUTHOR SIGNED?","TIU ONE VISIT NOTE?","TIU USER INACTIVE?" D INSERT(TIUMENU,TIURPC)

 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

TIUPS160  ;SLC/AJB - Post install to Register New RPCs ; 05/29/03

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**160**;Jun 20, 1997

 +2       ;

 +3        QUIT 

REG       ; Register RPCs

 +1        NEW TIUMENU,TIURPC

 +2        SET TIUMENU="OR CPRS GUI CHART"

 +3        FOR TIURPC="TIU HAS AUTHOR SIGNED?","TIU ONE VISIT NOTE?","TIU USER INACTIVE?"

               DO INSERT(TIUMENU,TIURPC)

 +4        QUIT 

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