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(223

Package: Dental

Global: ^DENT(223


Information

FileMan FileNo FileMan Filename Package
223 DENTAL CLASS I-VI (AMIS) Dental

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Dental 5 ^DENT(223    ^DENT(226    DENTARA    DENTE2    DENTPUR    

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: 32

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:  223^B
    1)= S ^DENT(223,"B",$E(X,1,30),DA)=""
    2)= K ^DENT(223,"B",$E(X,1,30),DA)
.3 STATION.DIVISION 0;29 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 15, 1985
  • HELP-PROMPT:  Select the appropriate station (division) no. for this Dental class I-VI 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 TREAT CASES AUTH I 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 29, 1987
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
2 CASES PEND INIT OF TREAT I 0;3 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 cases pending initiation of treatment as of the end of this reporting period.
3 CASES PEND COMP I 0;4 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 cases pending completion as of the end of this reporting period.
4 TREAT CASES AUTH II 0;5 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 treatment cases authorized during this reporting period.
5 CASES PEND INIT OF TREAT II 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 Class II cases pending initiation of treatment as of the end of this reporting period.
6 CASES PEND COMP II 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 Class II cases pending completion as of the end of this reporting period.
7 TREAT CASES AUTH IIA 0;8 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 treatment cases authorized during this reporting period.
8 CASES PEND INIT OF TREAT IIA 0;9 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 cases pending initiation of treatment as of the end of this reporting period.
9 CASES PEND COMP IIA 0;10 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 cases pending completion as of the end of this reporting period.
10 TREAT CASES AUTH IIB 0;11 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 treatment cases authorized during this reporting period.
11 CASES PEND INIT OF TREAT IIB 0;12 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 cases pending initiation of treatment as of the end of this reporting period.
12 CASES PEND COMP IIB 0;13 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 cases pending completion as of the end of this reporting period.
13 TREAT CASES AUTH IIC 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 IIC treatment cases authorized during this reporting period.
14 CASES PEND INIT OF TREAT IIC 0;15 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 cases pending initiation of treatment as of the end of this reporting period.
15 CASES PEND COMP IIC 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 IIC cases pending completion as of the end of this reporting period.
16 TREAT CASES AUTH III 0;17 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 III treatment cases authorized during this reporting period.
17 CASES PEND INIT OF TREAT III 0;18 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 III cases pending initiation of treatment as of the end of this reporting period.
18 CASES PEND COMP III 0;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 17, 1985
  • HELP-PROMPT:  Enetr a whole number from 1 to 999 indicating the total number of Class III cases pending completion as of the end of this reporting period.
19 TREAT CASES AUTH 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 treatment cases authorized during this reporting period.
20 CASES PEND INIT OF TREAT IV 0;21 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 cases pending initiation of treatment as of the end of this reporting period.
21 CASES PEND COMP IV 0;22 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 cases pending completion as of the end of this reporting period.
22 TREAT CASES AUTH V 0;23 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 treatment cases authorized during this reporting period.
23 CASES PEND INIT OF TREAT V 0;24 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 cases pending initiation of treatment as of the end of this reporting period.
24 CASES PEND COMP V 0;25 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 cases pending completion as of the end of this reporting period.
25 TREAT CASES AUTH VI 0;26 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 treatment cases authorized during this reporting period.
26 CASES PEND INIT OF TREAT VI 0;27 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 cases pending initiation of treatment as of the end of this reporting period.
27 CASES PEND COMP VI 0;28 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 cases pending completion as of the end of this reporting period.
28 CHANGE/DELETE 0;30 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(223 - [#223] .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!, 27+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