Changeset 894 for cprs/branches/tmg-cprs/m_files/TMGRPC3E.m

Timestamp:

Jul 25, 2010, 2:51:23 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

interval update

File:

• cprs/branches/tmg-cprs/m_files/TMGRPC3E.m (modified) (3 diffs)

cprs/branches/tmg-cprs/m_files/TMGRPC3E.m

@@ -1 @@
-TMGRPC3E ;TMG/kst/Support Functions for GUI_Config ;08/31/08
+TMGRPC3E ;TMG/kst/Support Functions for GUI_Config ;08/31/08, 7/7/10
          ;;1.0;TMG-LIB;**1**;08/31/08
  ;
@@ -57 +57 @@
         ;"Purpose: to retrieve the help message for a given field.
         ;"Input: TMGOUT -- an OUT PARAMETER, PASS BY REFERENCE.
-        ;"       TMGPARAMS -- file^field^HelpType
+        ;"       TMGPARAMS -- file^field^HelpType^IENS
         ;"Output: TMGOUT is filled as follows:
         ;"          TMGOUT(0)="1^Success" or "-1^Message"
@@ -67 +67 @@
         NEW TMGFIELD SET TMGFIELD=+$PIECE(TMGPARAMS,"^",2)
         NEW TMGHELPTYPE SET TMGHELPTYPE=$PIECE(TMGPARAMS,"^",3)
+        NEW TMGIENS SET TMGIENS=$PIECE(TMGPARAMS,"^",4)
         IF TMGFILE'>0 DO  GOTO GHMDONE
         . SET TMGOUT(0)="-1^No file number supplied"
         IF TMGFIELD'>0 DO  GOTO GHMDONE
         . SET TMGOUT(0)="-1^No Field Number supplied"
-        DO HELP^DIE(TMGFILE,,TMGFIELD,TMGHELPTYPE,"TMGMSG")
+        DO HELP^DIE(TMGFILE,TMGIENS,TMGFIELD,TMGHELPTYPE,"TMGMSG")
         NEW TMGI SET TMGI=""
         FOR  SET TMGI=$ORDER(TMGMSG("DIHELP",TMGI)) QUIT:(TMGI="")  DO