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  | All
Print Page as PDF
Global: ^EAS(713.2

Package: Enrollment Application System

Global: ^EAS(713.2


Information

FileMan FileNo FileMan Filename Package
713.2 EAS MT LETTER STATUS Enrollment Application System

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Enrollment Application System 13 EAS114PT    EAS122PT    EAS150P1    EAS155P1    EAS155PT    EASMT65    EASMTL10    EASMTL2
EASMTL6    EASMTL6B    EASMTRP2    EASMTRPT    EASMTUTL    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Enrollment Application System 12 EAS114PT    EAS122PT    EAS150P1    EAS155P1    EAS155PT    EASMT65    EASMTL10    EASMTL6
EASMTL6A    EASMTL8    EASMTRPT    EASMTUTL    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Enrollment Application System 1 EAS MT PATIENT STATUS(#713.1)[2]    
Kernel 1 NEW PERSON(#200)[6]    

Fields, Total: 20

Field # Name Loc Type Details
.001 ENTRY NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 20, 2001
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
.01 PROCESSING DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 20, 2001
  • HELP-PROMPT:  Enter processing date for entry, time required
  • DESCRIPTION:  
    Initial processing date for the patient's means test anniversary date
  • CROSS-REFERENCE:  713.2^B
    1)= S ^EAS(713.2,"B",$E(X,1,30),DA)=""
    2)= K ^EAS(713.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  713.2^AD^MUMPS
    1)= S ^EAS(713.2,"AD",$P(X,".",1),DA)=""
    2)= K ^EAS(713.2,"AD",$P(X,".",1),DA)
    Cross-reference on processing date, using the date only. Strips the time
2 RECIPIENT 0;2 POINTER TO EAS MT PATIENT STATUS FILE (#713.1)
************************REQUIRED FIELD************************
EAS MT PATIENT STATUS(#713.1)

  • LAST EDITED:  OCT 29, 2001
  • HELP-PROMPT:  Select the recipient for the MT letters
  • DESCRIPTION:  
    Pointer to the EAS MT LETTERS File, The patietn whose means test is coming due.
  • CROSS-REFERENCE:  713.2^C
    1)= S ^EAS(713.2,"C",$E(X,1,30),DA)=""
    2)= K ^EAS(713.2,"C",$E(X,1,30),DA)
    Cross-reference by patient in the patient status file, #713.1
  • RECORD INDEXES:  AN (#144)
3 MEANS TEST DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 07, 2002
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    The current means test date for the patient (from the ANNUAL MEANS TEST File)
  • RECORD INDEXES:  AN (#144)
4 MEANS TEST RETURNED? 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 13, 2001
  • HELP-PROMPT:  Enter "Y"es if returned, "N"o if it has not
  • DESCRIPTION:  
    Indicates whether a response (10-10EZ form) has been received in response to one of the reminder letters.
  • CROSS-REFERENCE:  713.2^AC
    1)= S ^EAS(713.2,"AC",$E(X,1,30),DA)=""
    2)= K ^EAS(713.2,"AC",$E(X,1,30),DA)
    Cross reference on returned/not-returned means tests
5 DATE MEANS TEST RETURNED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 20, 2001
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    Date the completed 10-10EZ form was recieved and processed
6 WHO ENTERED RETURNED MT 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 12, 2001
  • HELP-PROMPT:  Select the user entering the returned MT data
  • DESCRIPTION:  
    User entering the returned MT letter information
7 COMMENTS 1;0 WORD-PROCESSING #713.27
8 60-DAY LETTER DATE 6;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 07, 2002
  • HELP-PROMPT:  Enter the 60-day MT anniversary date threshold
  • DESCRIPTION:  
    Means Test anniversary date minus 60 days
9 60-DAY FLAG TO PRINT? 6;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2001
  • HELP-PROMPT:  Enter "Y"es for flagged, "N"o for not flagged
  • DESCRIPTION:  
    Flag indicates the letter is ready for printing
10 60-DAY LETTER PRINTED? 6;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2001
  • HELP-PROMPT:  Enter "Y"es for printed, "N"o for not printed
  • DESCRIPTION:  
    The 60-day letter has been printed
10.5 60-DAY PRINT DATE 6;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 23, 2001
  • HELP-PROMPT:  Enter date 60-day letter was printed
  • DESCRIPTION:  
    60-Day print date
11 30-DAY LETTER DATE 4;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 07, 2002
  • HELP-PROMPT:  Enter the 30-day MT anniversary date threshold
  • DESCRIPTION:  
    Means Test anniversary date minus 30 days
12 30-DAY FLAG TO PRINT? 4;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 07, 2002
  • HELP-PROMPT:  Enter "Y"es for flagged, "N"o for not flagged
  • DESCRIPTION:  
    Flag indicates the letter is ready for printing
13 30-DAY LETTER PRINTED? 4;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 07, 2002
  • HELP-PROMPT:  Enter "Y"es if letter printed, "N"o if it has not
  • DESCRIPTION:  
    The 30-day letter has been printed
13.5 30-DAY PRINT DATE 4;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 07, 2002
  • HELP-PROMPT:  Enter date 30-day letter was printed
  • DESCRIPTION:  
    Date the 30-Day letter was printed
17 ZERO-DAY LETTER DATE Z;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 20, 2001
  • HELP-PROMPT:  Enter the 0-day MT anniversary date threshold
  • DESCRIPTION:  
    Means Test anniversary date minus 0 days
18 ZERO-DAY FLAG TO PRINT? Z;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2001
  • HELP-PROMPT:  Enter "Y"es for flagged, "N"o for not flagged
  • DESCRIPTION:  
    Flag indicates the letter is ready for printing
19 ZERO-DAY LETTER PRINTED? Z;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 12, 2001
  • HELP-PROMPT:  Enter "Y"es if letter printed, "N"o if it has not
  • DESCRIPTION:  
    The 0-day letter has been printed
19.5 ZERO-DAY PRINT DATE Z;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 23, 2001
  • HELP-PROMPT:  Enter date 0-day letter was printed
  • DESCRIPTION:  
    0-day letter print date
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields  | All