TIUPS100 ; SLC/JER - Patch 100 Post-init ;29-NOV-2000 09:45:54
;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
;
; With special gratitude to "Elvis" for his inspired use of
; UPDATE^DIE and the letter "I"...
;
RPCS ; Register TIU RPCs that support ID Notes
; TIU patch 100 registers these in its post-init
N MENU,I
S MENU="OR CPRS GUI CHART"
F I="TIU ID ATTACH ENTRY","TIU ID CAN ATTACH","TIU ID CAN RECEIVE","TIU ID DETACH ENTRY" D INSERT(MENU,I)
Q
;
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPS100 666 printed Dec 13, 2024@02:43:54 Page 2
TIUPS100 ; SLC/JER - Patch 100 Post-init ;29-NOV-2000 09:45:54
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
+2 ;
+3 ; With special gratitude to "Elvis" for his inspired use of
+4 ; UPDATE^DIE and the letter "I"...
+5 ;
RPCS ; Register TIU RPCs that support ID Notes
+1 ; TIU patch 100 registers these in its post-init
+2 NEW MENU,I
+3 SET MENU="OR CPRS GUI CHART"
+4 FOR I="TIU ID ATTACH ENTRY","TIU ID CAN ATTACH","TIU ID CAN RECEIVE","TIU ID DETACH ENTRY"
DO INSERT(MENU,I)
+5 QUIT
+6 ;
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
+1 NEW FDA,FDAIEN,ERR,DIERR
+2 SET FDA(19,"?1,",.01)=OPTION
+3 SET FDA(19.05,"?+2,?1,",.01)=RPC
+4 DO UPDATE^DIE("E","FDA","FDAIEN","ERR")
+5 QUIT
