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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^DENT(222

Package: Dental

Global: ^DENT(222


Information

FileMan FileNo FileMan Filename Package
222 DENTAL FEE BASIS (AMIS) Dental

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Dental 6 ^DENT(226    DENTARA    DENTE1    DENTE2    DENTPUR    ^DENT(222    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Dental 2 DENTE1    DENTE2    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[60]    

Fields, Total: 31

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 17, 1985
  • CROSS-REFERENCE:  222^B
    1)= S ^DENT(222,"B",$E(X,1,30),DA)=""
    2)= K ^DENT(222,"B",$E(X,1,30),DA)
.3 STATION.DIVISION 0;28 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S DIC="^DENT(225,",DIC(0)="QEMZ" D ^DIC S:Y>0 X=$P(Y(0),U,1) K:Y'>0 X K DIC
  • LAST EDITED:  SEP 02, 1988
  • HELP-PROMPT:  Select the appropriate station (division) number for this Dental fee basis entry
  • DESCRIPTION:  
    This is the three digit station number.
  • EXECUTABLE HELP:  S:$D(D) ZD=D S X="?",DIC="^DENT(225,",DIC(0)="QEM" D ^DIC,N^DENTDNJ2 S DIC=DIE S:$D(ZD) D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 APPLI. I-VI RC'D 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of Class I through Class VI applications for fee basis care received for this reporting period (including Class II).
2 APPLI. II RC'D 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of Class II applications for fee basis care received for this reporting period.
3 APPLI. I-VI ELIG 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of Class I through VI applications found eligible for fee basis care for this reporting period.
4 APPLI. PEND. ELIG 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 15, 1987
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
5 VA EXAMS AUTH 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of exams authorized for treatment by VA staff for this reporting period.
6 FEE EXAMS AUTH 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of fee basis exams authorized for this reporting period.
7 FEE EXAM PEND COMP 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 15, 1987
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
8 FEE EXAM COMP 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of fee basis exams completed for this reporting period.
9 FEE TREAT PEND AUTH 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1991
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of Fee Basis patients pending treatment authorization for this reporting period.
10 FEE TREAT AUTH 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of patients authorized for fee treatment for this reporting period.
11 FEE TREAT PEND COMP 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 15, 1987
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
12 FEE TREAT COMP 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of fee basis patients completed for this reporting period.
13 FEE CASES COMP - I 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 99 indicating the total number of Class I fee basis patients completed for this reporting period.
14 FEE CASES COMP - II 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of Class II fee basis patients completed for this reporting period.
15 FEE CASES COMP - IIA 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 99 indicating the total number of Class IIA patients completed for this reporting period.
16 FEE CASES COMP - IIB 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 99 indicating the total number of Class IIB patients completed for this reporting period.
17 FEE CASES COMP - IIC 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 99 indicating the total number of Class IIC patients completed for this reporting period.
18 FEE CASES COMP - III 0;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 15, 1987
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
19 FEE CASES COMP - IV 0;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the total number of Class IV patients completed for this reporting period.
20 FEE CASES COMP - V 0;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 99 indicating the total number of Class V patients completed for this reporting period.
21 FEE CASES COMP - VI 0;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 99 indicating the total number of Class VI patients completed for this reporting period.
22 FEE CUM AVG COST IIC 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 23, 1986
  • HELP-PROMPT:  Enter a whole number from 1 to 9999 indicating the cumulative average cost for all Class IIC fee basis patients for this reporting period.
23 FEE CUM AVG DURATION IIC 0;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the cumulative average duration (in days) of Class IIC patients for this reporting period.
24 FEE CUM AVG COST IV 0;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 23, 1986
  • HELP-PROMPT:  Enter a whole number from 1 to 9999 indicating the cumulative average cost for all Class IV fee basis patients for this reporting period.
25 FEE CUM AVG DURATION IV 0;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enter a whole number from 1 to 999 indicating the cumulative average duration (in days) of Class IV patients for this reporting period.
26 FEE CUM AVG I-VI 0;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 05, 1986
  • HELP-PROMPT:  Enter a whole number from 1 to 9999 indicating the cumulative average cost for all Class I-VI fee basis patients for this reporting period.
27 CHANGE/DELETE 0;29 SET
  • 'C' FOR CHANGE;
  • 'D' FOR DELETE;

  • LAST EDITED:  OCT 13, 1987
60 RELEASED BY .1;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 12, 1995
61 DATE RELEASED .1;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 04, 1985

External References

Name Field # of Occurrence
^%DT .01+1, 61+1
N^DENTDNJ2 .3(HELP )
^DIC .3+1, .3(HELP )

Global Variables Directly Accessed

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

Naked Globals

Name Field # of Occurrence
^(0 ID.3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 61+1*
>> D .3(HELP )
>> DA .01(XREF 1S), .01(XREF 1K)
DIC .3+1*!, .3(HELP )
DIC(0 .3+1*, .3(HELP )
>> DIE .3(HELP )
U ID.3+1, .3+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .3+1*!, .3(HELP ), 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!, 25+1!
, 26+1!, 61+1*!
>> Y .01+1, .3+1, 61+1
>> Y(0 .3+1
ZD .3(HELP )
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All