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: ^VAT(408

Package: Registration

Global: ^VAT(408


Information

FileMan FileNo FileMan Filename Package
408 DISCRETIONARY WORKLOAD Registration

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Registration 7 DESCRIPTION (VERSIONED)    DGOD COMPLETE INP    DGOD COMPLETE OPC    DGODCV    DGODDEL    ELIGIBILITY    ^VAT(408    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Registration 2 DGODCV    DGODDEL    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[3]    NEW PERSON(#200)[10]    

Fields, Total: 15

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

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X S DINUM=X
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408^B
    1)= S ^VAT(408,"B",$E(X,1,30),DA)=""
    2)= K ^VAT(408,"B",$E(X,1,30),DA)
1 REPORT MONTH/YR 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • CROSS-REFERENCE:  408^C
    1)= S ^VAT(408,"C",$E(X,1,30),DA)=""
    2)= K ^VAT(408,"C",$E(X,1,30),DA)
1.5 REPORT RANGE 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUL 10, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
2 SITE CODE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • CROSS-REFERENCE:  408^AC
    1)= S ^VAT(408,"AC",$E(X,1,30),DA)=""
    2)= K ^VAT(408,"AC",$E(X,1,30),DA)
3 INSTITUTION 0;4 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)
4 REPORT TYPE 0;5 SET
  • '1' FOR OPC VISITS;
  • '2' FOR DISCHARGES;
  • '3' FOR OPC RESEARCH;
  • '4' FOR OPC 10/10 VISITS;

  • CROSS-REFERENCE:  408^AE^MUMPS
    1)= S ^VAT(408,"AE",$P(^VAT(408,DA,0),U,2),$P(^(0),U,3),$E(X,1,30),DA)=""
    2)= K ^VAT(408,"AE",$P(^VAT(408,DA,0),U,2),$P(^(0),U,3),$E(X,1,30),DA)
5 *TRANSMISSION 0;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • CROSS-REFERENCE:  408^AD
    1)= S ^VAT(408,"AD",$E(X,1,30),DA)=""
    2)= K ^VAT(408,"AD",$E(X,1,30),DA)
6 ELAPSED TIME 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
7 MESSAGE DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
7.5 MESSAGE ID 2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100000000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 10, 1989
  • HELP-PROMPT:  Type a Number between 0 and 100000000, 0 Decimal Digits
  • DESCRIPTION:  
    This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
7.7 REMOTE MESSAGE ID 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<2) X
  • LAST EDITED:  JUL 10, 1989
  • HELP-PROMPT:  ANSWER MUST BE 2-45 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
8 ELIGIBILITY 1;0 SET Multiple #408.08 408.08
9 PTS REMAINING 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
10 DUZ 2;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 06, 1990
  • DESCRIPTION:  
    This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.
11 COMPLETED? 2;4 SET
  • '0' FOR PENDING;
  • '1' FOR COMPLETE;
  • '2' FOR NEW;

  • LAST EDITED:  JUL 10, 1989
  • DESCRIPTION:  
    This field is not used by Medical Centers, it only applies to the Q-DWL collection queue.

External References

Name Field # of Occurrence
^%DT .01+1, 1+1, 7+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VAT(408 - [#408] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1, ID2+1, 4(XREF 1S), 4(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 1+1*, 7+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K)
>> DIC ID4+1
>> DINUM .01+1*
U ID1+1, ID2+1, 4(XREF 1S), 4(XREF 1K)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 1.5+1!, 2+1!, 2(XREF 1S), 2(XREF 1K)
4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K), 6+1!, 7+1*!, 7.5+1!, 7.7+1!, 9+1!
>> Y .01+1, 1+1, 7+1
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