- 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 Apr 23, 2025@18:09:39 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 ;
