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

Package: Dental

Global: ^DENT(226


Information

FileMan FileNo FileMan Filename Package
226 DENTAL NON CLINICAL TIME Dental

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Dental 13 DENTA4    DENTA4A    DENTAR    DENTAR4    DENTCRD2    DENTE2    DENTPCD    DENTPKG
DENTPKG2    DENTPOST    DENTPUR    DENTXREF    ^DENT(226    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Dental 2 DENTE0    DENTPKG    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Dental 1 DENTAL PROVIDER(#220.5)[.06]    
Kernel 1 NEW PERSON(#200)[60]    

Fields, Total: 8

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

  • INPUT TRANSFORM:  S %DT(0)="-NOW",%DT="ESTX" D ^%DT K %DT(0) S X=Y K:Y<1 X I $D(X) D IEN6^DENTE1
  • LAST EDITED:  FEB 16, 1995
  • HELP-PROMPT:  Enter the date and time for this non clinical time entry
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  226^B^MUMPS
    1)= S ^DENT(226,"B",X,DA)=""
    2)= K ^DENT(226,"B",X,DA)
  • CROSS-REFERENCE:  226^AD^MUMPS
    1)= Q
    2)= Q:$P(^DENT(226,DA,0),"^",2)="" K ^DENT(226,"A",$P(^DENT(226,DA,0),"^",2),$P(X,".",1),DA)
.06 DENTAL PROVIDER 0;6 POINTER TO DENTAL PROVIDER FILE (#220.5) DENTAL PROVIDER(#220.5)

  • LAST EDITED:  DEC 17, 2004
  • HELP-PROMPT:  Enter the Dental Provider associated with the Non-Clinical time.
  • DESCRIPTION:  
    This field contains the Dental Provider. The 4 digit Provider Id saved in the Provider Number field (#.4) is being phased out, although we will continue to keep that field for historical records.
.3 STATION.DIVISION 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) 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:  JAN 13, 1995
  • HELP-PROMPT:  Select the appropriate station (division) number for this Dental non clinical time entry
  • EXECUTABLE HELP:  S:$D(D) ZD=D S X="?",DIC="^DENT(225,",DIC(0)="QEM" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  226^A^MUMPS
    1)= D STATSET^DENTXREF(X)
    2)= D STATKIL^DENTXREF(X)
    In the case when station.division field is being modified xrefs on fields 60 (released by) and .4 (provider #) (A and AC xrefs), need 2 b updated, since part of the key 2 both of those xrefs is the station.division field.
.4 PROVIDER NUMBER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S DIC="^DENT(220.5,",DIC(0)="QEMZ" D ^DIC S:Y>0 X=$P(Y(0),U,2) K:Y'>0 X K DIC
  • LAST EDITED:  DEC 17, 2004
  • HELP-PROMPT:  Select the appropriate Dental provider by name or provider number for this non clinical time entry
  • DESCRIPTION:  
    Provider names are entered last name, first name. This field contains the old 4 digit Provider Id which is being phased out and replaced with a new 8 digit Id. This field will remain for historical records.
  • EXECUTABLE HELP:  S:$D(D) ZD=D S X="?",DIC="^DENT(220.5,",DIC(0)="QEM" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  226^C
    1)= S ^DENT(226,"C",$E(X,1,30),DA)=""
    2)= K ^DENT(226,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  226^AC^MUMPS
    1)= Q:$P(^DENT(226,DA,0),"^",2)="" S ^DENT(226,"AC",$P(^DENT(226,DA,0),"^",2),$P($P(^DENT(226,DA,0),"^"),"."),X,DA)=""
    2)= Q:$P(^DENT(226,DA,0),"^",2)="" K ^DENT(226,"AC",$P(^DENT(226,DA,0),"^",2),$P($P(^DENT(226,DA,0),"^"),"."),X,DA)
    this cross reference is used for AMIS and other reports
.6 NON CLINICAL TIME CATEGORY 0;4 SET
************************REQUIRED FIELD************************
  • 'A' FOR ADMIN;
  • 'R' FOR RESEARCH;
  • 'F' FOR FEE BASIS;
  • 'E' FOR EDUC & TRAIN;

  • INPUT TRANSFORM:  I X="A"!(X="F") I X1'=1 W !,"Administrative and Fee non clinical time categories may only be entered for",!,"Dentists. They are not applicable to other providers",*7 K X
  • LAST EDITED:  SEP 09, 1985
  • HELP-PROMPT:  Select the appropriate non clinical time category. Remember, Admin and Fee categories are only applicable to Dentists
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.9 TIME SPENT 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X'>0) X I $D(X),X["." K:'($P(X,".",2)=25!($P(X,".",2)=75)!($P(X,".",2)=5)) X
  • LAST EDITED:  JAN 03, 1986
  • HELP-PROMPT:  Enter the amount of time spent in this non clinical time category. Answer must be a number from .25 to 50 in quarter hour increments (e.g., 4.5 or 6.25 or 7.75 or 8).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
60 RELEASED BY .1;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 19, 1995
  • CROSS-REFERENCE:  226^AE^MUMPS
    1)= Q:$P(^DENT(226,DA,0),"^",2)="" K ^DENT(226,"A",$P(^DENT(226,DA,0),"^",2),$P($P(^DENT(226,DA,0),"^"),"."),DA)
    2)= Q:$P(^DENT(226,DA,0),"^",2)="" S ^DENT(226,"A",$P(^DENT(226,DA,0),"^",2),$P($P(^DENT(226,DA,0),"^"),"."),DA)=""
61 DATE RELEASED .1;2 DATE

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

External References

Name Field # of Occurrence
^%DT .01+1, 61+1
IEN6^DENTE1 .01+1
STATKIL^DENTXREF .3(XREF 1K)
STATSET^DENTXREF .3(XREF 1S)
^DIC .3+1, .3(HELP ), .4+1, .4(HELP )

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" IDZ0+1
^DENT(226 - [#226] IDZ1+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 3K), .4(XREF 1S), .4(XREF 1K), .4(XREF 2S), .4(XREF 2K), 60(XREF 1S), 60(XREF 1K)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 61+1*
>> %DT(0 .01+1*!
>> D .3(HELP ), .4(HELP )
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 3K), .4(XREF 1S), .4(XREF 1K), .4(XREF 2S), .4(XREF 2K), 60(XREF 1S), 60(XREF 1K)
DIC .3+1*!, .3(HELP ), .4+1*!, .4(HELP )
DIC(0 .3+1*, .3(HELP ), .4+1*, .4(HELP )
>> DIE .3(HELP ), .4(HELP )
U ID.3+1, IDZ0+1, IDZ1+1, .3+1, .4+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 3K), .3+1!*, .3(HELP ), .3(XREF 1S), .3(XREF 1K), .4+1!*, .4(HELP )
, .4(XREF 1S), .4(XREF 1K), .4(XREF 2S), .4(XREF 2K), .9+1!, 61+1*!
>> Y IDZ0+1*, IDZ1+1, .01+1, .3+1, .4+1, 61+1
>> Y(0 .3+1, .4+1
Z IDZ0+1*!
ZD .3(HELP ), .4(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