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 |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^FH(117.2

Package: Dietetics

Global: ^FH(117.2


Information

FileMan FileNo FileMan Filename Package
117.2 DIETETIC COST OF MEALS Dietetics

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Dietetics 5 DRUG CLASSIFICATIONS    FHADR81    FHCMSR    FHCMSR1    ^FH(117.2    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Dietetics 1 FHCMSR    

Fields, Total: 25

Field # Name Loc Type Details
.01 MONTH/YEAR 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=$E(Y,1,5)_"00" K:Y<1 X I $D(X) S DINUM=X
  • LAST EDITED:  OCT 27, 1993
  • HELP-PROMPT:  ENTER A MONTH AND A YEAR, ej. 1 92, 11-92, 3/92.
  • DESCRIPTION:  
    Enter Month and Year.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  117.2^B
    1)= S ^FH(117.2,"B",$E(X,1,30),DA)=""
    2)= K ^FH(117.2,"B",$E(X,1,30),DA)
    This is the normal B cross-reference of the MONTH/YEAR field.
1 BEG INV GRP 1 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 17, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for the Beg Inv Cost for Food Group I
  • DESCRIPTION:  
    Enter Beginning Inventory Cost for Food Group I.
2 BEG INV GRP 2 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group II
  • DESCRIPTION:  
    Enter Beginning Inventory Cost For Food Group II.
3 BEG INV GRP 3 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group III
  • DESCRIPTION:  
    Enter the Beginning Inventory Cost of Food Group III.
4 BEG INV GRP 4 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group IV
  • DESCRIPTION:  
    Enter the Beginning Inventory Cost for Food Group IV.
5 BEG INV GRP 5 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group V
  • DESCRIPTION:  
    Enter the Beginning Inventory Cost for Food Group V.
6 BEG INV GRP 6 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group VI
  • DESCRIPTION:  
    Enter the Beginning Inventory Cost for Food Group VI.
7 ISSUE COST GRP 1 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 17, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group I
  • DESCRIPTION:  
    Enter the Issue Cost For Food Group I.
8 ISSUE COST GRP 2 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 9999999 for Issue Cost of Food Group II
  • DESCRIPTION:  
    Enter The Issue Cost for Food Group II.
9 ISSUE COST GRP 3 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 9999999 for Issue Cost of Food Group III
  • DESCRIPTION:  
    Enter the Issue Cost for Food Group III.
10 ISSUE COST GRP 4 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 9999999 for Issue Cost of Food Group IV
  • DESCRIPTION:  
    Enter the Issue Cost for food Group IV.
11 ISSUE COST GRP 5 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 9999999 for Issue Cost of Food Group V
  • DESCRIPTION:  
    Enter the Issue Cost of Food Group V.
12 ISSUE COST GRP 6 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group VI
  • DESCRIPTION:  
    Enter the Issue Cost of Food Group VI.
13 CLOS INV GRP 1 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for the Closing Inventory of Food Group I
  • DESCRIPTION:  
    Enter the Closing Inventory Cost for Food Group I.
14 CLOS INV GRP 2 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group II
  • DESCRIPTION:  
    Enter the Closing Inventory Cost for Food Group II.
15 CLOS INV GRP 3 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group III
  • DESCRIPTION:  
    Enter the Closing Inventory Cost for Food Group III.
16 CLOS INV GRP 4 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group IV
  • DESCRIPTION:  
    Enter the Closing Inventory Cost for Food Group IV.
17 CLOS INV GRP 5 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group V
  • DESCRIPTION:  
    Enter the Closing Inventory Cost for Food Group V.
18 CLOS INV GRP 6 0;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group VI
  • DESCRIPTION:  
    Enter the Closing Inventory Cost for Food Group VI.
19 % COST GRP 1 0;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter a Number between 1 and 99 for % Cost Recommended
  • DESCRIPTION:  
    The Percent Cost Recommended for Food Group I.
20 % COST GRP 2 0;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter a Number between 1 and 99 for % Cost Recommended of Food Group II
  • DESCRIPTION:  
    The Percent Cost Recommended for Food Group II.
21 % COST GRP 3 0;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter a Number between 1 and 99 for % Cost Recommended of Food Group III
  • DESCRIPTION:  
    The Percent Cost Recommended for Food Group III.
22 % COST GRP 4 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter a Number between 1 and 99 for % Cost Recommended of Food Group IV.
  • DESCRIPTION:  
    The Percent Cost Recommended for Food Group IV.
23 % COST GRP 5 0;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter a Number between 1 and 99 for % Cost Recommended of Food Group V
  • DESCRIPTION:  
    The % Cost Recommended for Food Group V.
24 % COST GRP 6 0;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 06, 1991
  • HELP-PROMPT:  Enter a Number between 1 and 99 for % Cost Recommended of Food Group VI
  • DESCRIPTION:  
    The % Cost Recommended for Food Group VI.

External References

Name Field # of Occurrence
^%DT .01+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FH(117.2 - [#117.2] .01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*
>> DA .01(XREF 1S), .01(XREF 1K)
>> DINUM .01+1*
X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1+1!, 2+1!, 3+1!, 4+1!, 5+1!, 6+1!, 7+1!
, 8+1!, 9+1!, 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 15+1!, 16+1!, 17+1!
, 18+1!, 19+1!, 20+1!, 21+1!, 22+1!, 23+1!, 24+1!
>> Y .01+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All