Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
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

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
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields