Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Fields |  All
Print Page as PDF
Global: ^BGPCMSIA

Package: IHS GPRA Information System

Global: ^BGPCMSIA


Information

FileMan FileNo FileMan Filename Package
90532.01 BGP 07 CMS INDICATORS IHS GPRA Information System

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
IHS GPRA Information System 2 BGP7C1    BGP7CP    

Fields, Total: 13

Field # Name Loc Type Details
.01 INDICATOR NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  OCT 20, 2004
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The fiscal year this indicator is relevant to.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90532.01^B
    1)= S ^BGPCMSIA("B",$E(X,1,30),DA)=""
    2)= K ^BGPCMSIA("B",$E(X,1,30),DA)
.02 ORDER ON SELECTION/REPORT 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  NOV 08, 2003
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • CROSS-REFERENCE:  90532.01^AO
    1)= S ^BGPCMSIA("AO",$E(X,1,30),DA)=""
    2)= K ^BGPCMSIA("AO",$E(X,1,30),DA)
.03 TITLE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  NOV 19, 2003
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
  • CROSS-REFERENCE:  90532.01^C
    1)= S ^BGPCMSIA("C",$E(X,1,30),DA)=""
    2)= K ^BGPCMSIA("C",$E(X,1,30),DA)
.04 SELECTION TITLE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>73!($L(X)<1) X
  • LAST EDITED:  JAN 06, 2003
  • HELP-PROMPT:  Answer must be 1-73 characters in length.
.06 ORDER TO DISPLAY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 20, 2003
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
1 M CODE TO EXECUTE 1;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  DEC 30, 2002
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
3 PRINT M CODE 3;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  JAN 07, 2003
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
4 DELIMITED FILE PRINT 4;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  JAN 09, 2003
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
5100 INDICATOR DESCRIPTION 51;0 WORD-PROCESSING #90532.0151
5200 LIST 2 HEADER 52;0 WORD-PROCESSING #90532.52
5300 REPORT PRINT 2ND PAGE 53;0 WORD-PROCESSING #90532.0153
5400 LIST 1 HEADER 54;0 WORD-PROCESSING #90532.54
5500 LIST 1 TITLE 55;0 WORD-PROCESSING #90532.0155
Info |  Desc |  Directly Accessed By Routines |  Fields |  All