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

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, |dd221, |dd226
^DD(220.5 |dd220.03
^DD(220.67 |dd220.67
^DENT(220 - [#220] |dd220*!, |dd220.03*!, |dd220.071*!
^DENT(220.5 - [#220.5] |dd220.03, |dd220.5*!, |dd221
^DENT(220.6 - [#220.6] |dd220.6*!, |dd220.67*!
^DENT(221 - [#221] |dd221*!
^DENT(222 - [#222] |dd222*!
^DENT(223 - [#223] |dd223*!
^DENT(224 - [#224] |dd224*!
^DENT(225 - [#225] |dd225*!
^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)
, |dd226*!
^DIC(220.3 - [#220.3] |dd220.3*!
^DIC(220.4 - [#220.4] |dd220.4*!
^XUSEC("XMQ-DAS" |opt

Naked Globals

Name Field # of Occurrence
^(0 ID.3+1, IDZ0+1, IDZ1+1, |dd220*, |dd220.03, |dd220.5, |dd220.6, |dd220.67*, |dd221*, |dd222
, |dd223, |dd224, |dd226

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 61+1*, |dd220*, |dd220.02*, |dd220.03*, |dd220.071*, |dd221*, |dd222*, |dd223*, |dd224*
, |dd226*
>> %DT(0 .01+1*!, |dd221*!, |dd226*!
%I |dd220.03*!
>> C |dd220.03*
>> D .3(HELP ), .4(HELP ), |dd220.6*, |dd221*, |dd222*, |dd223*, |dd224*, |dd225*, |dd226*
>> D0 |dd220*, |dd221*
>> 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), |dd220
, |dd220.03, |dd220.071, |dd220.3, |dd220.4, |dd220.5, |dd220.6, |dd220.67, |dd221, |dd222, |dd223
, |dd224, |dd225, |dd226
>> DA(1 |dd220.03, |dd220.071, |dd220.67
>> DENTDFN |dd221*
>> DENTFUL |dd221
>> DENTSSN |dd221*
>> DFN |dd221*
DIC .3+1*!, .3(HELP ), .4+1*!, .4(HELP ), |dd220*!, |dd220.03*!, |dd220.6*, |dd221*!, |dd222*!, |dd223*!
, |dd224*!, |dd225*!, |dd226*!
DIC("S" |dd220*, |dd220.03*, |dd220.6*!, |dd221*
DIC(0 .3+1*, .3(HELP ), .4+1*, .4(HELP ), |dd220.6*, |dd221*, |dd222*, |dd223*, |dd224*, |dd225*
, |dd226*
>> DIE .3(HELP ), .4(HELP ), |dd220, |dd220.03, |dd220.6, |dd221, |dd222, |dd223, |dd224, |dd226
>> DIG |dd220*, |dd221*
>> DIH |dd220*, |dd221*
>> DINUM |dd220*
>> DIU |dd220*, |dd221*
DIV |dd220*!, |dd220.67*!, |dd221*!
DIV(0 |dd220*, |dd221*
DJ3 |dd220.6*!
DJ5 |dd220.6*!
>> DJDN |dd220.6
DLAYGO |dd221*!
DT |dd220
DUZ |opt
DUZ(0 |dd220.6
U ID.3+1, IDZ0+1, IDZ1+1, .3+1, .4+1, |dd220, |dd220.03, |dd220.5, |dd220.6, |dd220.67
, |dd221, |dd222, |dd223, |dd224, |dd225, |dd226
>> VADM(1 |dd221
>> VADM(2 |dd221
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*!, |dd220*!, |dd220.02*!, |dd220.03*!, |dd220.071*!
, |dd220.2!, |dd220.3*!, |dd220.4!, |dd220.5!, |dd220.6*!, |dd220.67!, |dd221*!, |dd221*!, |dd222*!, |dd223*!
, |dd224*!, |dd225*!, |dd226*!, |inpt
>> X1 |inpt*
>> XQUIT |opt*
>> Y IDZ0+1*, IDZ1+1, .01+1, .3+1, .4+1, 61+1, |dd220!, |dd220.02, |dd220.03*, |dd220.071
, |dd220.6, |dd221*!, |dd222, |dd223, |dd224, |dd225, |dd226*
>> Y(0 .3+1, .4+1, |dd221, |dd222, |dd223, |dd224, |dd225, |dd226
Y(1 |dd220*, |dd221*
Z IDZ0+1*!, |dd221*!, |dd226*!
ZD .3(HELP ), .4(HELP ), |dd220.6*!, |dd221*!, |dd222*!, |dd223*!, |dd224*!, |dd225*!, |dd226*!
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