GMRYAPI ;HIOFO/FT-I/O APIs ;1/24/02 14:34
;;4.0;Intake/Output;**5**;Apr 25, 1997
;
; The calls in this routine are documented in IA #3214.
;
; This routine uses the following IAs:
; <None>
;
INPUT() ; This function returns the number of entries in the GMRY INPUT TYPE
; (#126.56) file.
; Input - <none>
; Output - the number of entries in FILE 126.56
Q $P($G(^GMRD(126.56,0)),U,4)
;
OUTPUT() ; This function returns the number of entries in the
; GMRY OUTPUT TYPE (#126.58) file.
; Input - <none>
; Output - the number of entries in FILE 126.58
Q $P($G(^GMRD(126.58,0)),U,4)
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRYAPI 617 printed Nov 22, 2024@17:05:20 Page 2
GMRYAPI ;HIOFO/FT-I/O APIs ;1/24/02 14:34
+1 ;;4.0;Intake/Output;**5**;Apr 25, 1997
+2 ;
+3 ; The calls in this routine are documented in IA #3214.
+4 ;
+5 ; This routine uses the following IAs:
+6 ; <None>
+7 ;
INPUT() ; This function returns the number of entries in the GMRY INPUT TYPE
+1 ; (#126.56) file.
+2 ; Input - <none>
+3 ; Output - the number of entries in FILE 126.56
+4 QUIT $PIECE($GET(^GMRD(126.56,0)),U,4)
+5 ;
OUTPUT() ; This function returns the number of entries in the
+1 ; GMRY OUTPUT TYPE (#126.58) file.
+2 ; Input - <none>
+3 ; Output - the number of entries in FILE 126.58
+4 QUIT $PIECE($GET(^GMRD(126.58,0)),U,4)
+5 ;
