source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPS160.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 616 bytes
Line 
1TIUPS160 ;SLC/AJB - Post install to Register New RPCs ; 05/29/03
2 ;;1.0;TEXT INTEGRATION UTILITIES;**160**;Jun 20, 1997
3 ;
4 Q
5REG ; Register RPCs
6 N TIUMENU,TIURPC
7 S TIUMENU="OR CPRS GUI CHART"
8 F TIURPC="TIU HAS AUTHOR SIGNED?","TIU ONE VISIT NOTE?","TIU USER INACTIVE?" D INSERT(TIUMENU,TIURPC)
9 Q
10INSERT(OPTION,RPC) ; Call FM Updater with each RPC
11 ; Input -- OPTION Option file (#19) Name field (#.01)
12 ; RPC RPC sub-file (#19.05) RPC field (#.01)
13 ; Output -- None
14 N FDA,FDAIEN,ERR,DIERR
15 S FDA(19,"?1,",.01)=OPTION
16 S FDA(19.05,"?+2,?1,",.01)=RPC
17 D UPDATE^DIE("E","FDA","FDAIEN","ERR")
18 Q
Note: See TracBrowser for help on using the repository browser.