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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^ACDQAN

Package: Alcohol Chemical Dependency

Global: ^ACDQAN


Information

FileMan FileNo FileMan Filename Package
9002173.8 CDMIS QUARTERLY/ANNUAL Alcohol Chemical Dependency

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Alcohol Chemical Dependency 3 ACDPIMP1    ACDPSAVE    ACDPSRV2    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Alcohol Chemical Dependency 3 ACDPCD2    ACDPIMP1    ACDPSRV2    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Alcohol Chemical Dependency 2 CDMIS SOURCE OF CASH TABLE(#9002173.4)[#9002173.819(.01)]    CDMIS COMPONENT CHARACTERISTIC TABLE(#9002173.6)[#9002173.811(.01)]    
Kernel 1 STATE(#5)[5]    
Utility Tables 1 LOCATION(#9999999.06)[.01]    

Fields, Total: 76

Field # Name Loc Type Details
.01 PROGRAM NAME 0;1 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • INPUT TRANSFORM:  S DINUM=X Q
  • LAST EDITED:  JUN 02, 1994
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002173.8^B
    1)= S ^ACDQAN("B",$E(X,1,30),DA)=""
    2)= K ^ACDQAN("B",$E(X,1,30),DA)
1 FISCAL YEAR 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
2 DIRECTORS NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
3 ADDRESS 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 1-200 characters in length.
4 CITY 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
5 STATE 0;4 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  JUN 01, 1994
6 ZIP CODE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
7 PROGRAM ID 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
8 PROGRAM PHONE NUMBER 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
9 SMOKE FREE FACILITY 2;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  JUN 01, 1994
11 COMPONENT CHARACTERISTICS 3;0 POINTER Multiple #9002173.811 9002173.811
13 STAFF-MALE 5;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
14 STAFF-FEMALE 5;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
15 STAFF-INDIAN 5;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
16 STAFF-NON-INDIAN 5;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
17 STAFF-IHS-FUNDED 5;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 03, 1995
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
18 STAFF-TOTAL 5;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
19 FUNDING CATEGORY 4;0 POINTER Multiple #9002173.819 9002173.819
20 # CERT ALCOHOL COUNS 5;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
21 # CERT DRUG COUNS 5;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
22 # CERT ETOH/DRUG COUNSELOR 5;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
23 # CERT PROFESSIONAL COUNS 5;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
24 # CERT FAMILY THERAPIST 5;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
25 # CERT RECREATIONAL THERAPIST 5;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
26 # CERT ART THERAPIST 5;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
27 # CERT PHYSICIAN 5;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
28 # CERT NURSE 5;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
29 # CERT PSYCHOLOGIST 5;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
30 # CERT SOCIAL WORKER 5;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
31 # CERT OCCUPATIONAL THERAPIST 5;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
32 # CERT PHYSICAL THERAPIST 5;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
33 # CERT MASSAGE THERAPIST 5;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
34 # CERT SPEECH THERAPIST 5;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
35 # CERT TEACHER/EDUCATOR 5;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
36 # CERT ADMINISTRATOR 5;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
37 # CERT TRADITIONAL HEALER 5;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
38 # CERT VOLUNTEER 5;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
39 # CERT STUDENT 5;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
40 # CERT OTHER 6;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
41 $ INTERN 6;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 02, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
42 $ ALCOHOL COUNS 6;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 02, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
43 $ DRUG COUNS 6;4 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 02, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
44 $ ALCOHOL/DRUG COUNS 6;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 02, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
45 $ CLINICAL SUPERVISOR 6;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
46 $ SUPERVISOR 6;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
47 $ CONSULTANT 6;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
48 $ DIRECTOR 6;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
49 $ ADMIN SUPPORT 6;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
50 $ CLERICAL 6;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
51 $ OTHER 6;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
52 $ TRADITIONAL HEALER 6;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
53 # NO HS DIPLOMA 6;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
54 # GED 6;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
55 # HS DIPLOMA 6;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
56 # AA DEGREE 6;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
57 # BA/BS DEGREE 6;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
58 # MA/MS/MSW DEGREE 6;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
59 # MD/PHD/EDD 6;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
60 # OTHER DEGREE 6;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
61 # NO DEGREE 7;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
62 # OPT CLIENTS SVCS CONTRACTED 7;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
63 # INPATIENT DAYS CONTRACTED 7;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
64 # OF PREV CONTACTS CONTRACTED 7;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
65 IHS DIRECT RECURRING $ 7;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
66 IHS INDIRECT $ 7;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
67 NON RECURRING MCH 7;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
68 NON RECURRING OEH 7;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
69 NON RECURRING CHR 7;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
70 NON RECURRING CHS 7;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
71 NON RECURRING OHP 7;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
72 NON RECURRING PHN 7;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
73 NON RECURRING DIABETES 7;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  FEB 03, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
74 NON RECURRING HPDP 7;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  FEB 03, 1995
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
75 OTHER 7;15 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  JUN 01, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
76 TOTAL STAFF COMPUTED

  • MUMPS CODE:  S Y(9002173.8,76,1)=$S($D(^ACDQAN(D0,5)):^(5),1:"") S X=$P(Y(9002173.8,76,1),U,1)+$P(Y(9002173.8,76,1),U,2)
  • ALGORITHM:  STAFF-MALE+STAFF-FEMALE
  • LAST EDITED:  JUN 02, 1994
77 %IHS FUNDED COMPUTED

  • MUMPS CODE:  X ^DD(9002173.8,77,9.2) S X=X*100_"%" S X=$J(X,0,0)
    9.2 = X $P(^DD(9002173.8,76,0),U,5,99) S Y(9002173.8,77,2)=X S Y(9002173.8,77,1)=$S($D(^ACDQAN(D0,5)):^(5),1:"") S X=$P(Y(9002173.8,77,1),U,5),X=$S(Y(9002173.8,77,2):X/Y(9002173.8,77,2),1:"*******")
  • ALGORITHM:  (STAFF-IHS FUNDED/TOTAL STAFF*100)_"%" (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  JUN 02, 1994
  • SUM:  S X=S("9002173.8^17"),X=$S(S("9002173.8^76"):X/S("9002173.8^76"),1:"*******")*100_"%" S Y=X
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All