Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9000044.11

Package: IHS Patient

BENEFIT COORDINATOR CASES(#9000044)-->9000044.11

Sub-Field: 9000044.11


Information

Parent File Name Number Package
BENEFIT COORDINATOR CASES(#9000044) ASSIGNED TO BENEFIT COORD 9000044.11 IHS Patient

Details

Field # Name Loc Type Details
.01 DATE ASSIGNED 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 23, 2004
  • HELP-PROMPT:  (No range limit on date)
  • DELETE TEST:  1,0)= I '$$ENUFOPEN^AGEDBEB(DA(1))
  • CROSS-REFERENCE:  9000044.11^B
    1)= S ^AUPNBENR(DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNBENR(DA(1),11,"B",$E(X,1,30),DA)
.02 ASSIGNED TO 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  MAR 30, 2005
.03 USER INITIAL 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  JUN 14, 2004
  • HELP-PROMPT:  Answer must be 1-3 characters in length
.04 ASSIGNED BY 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 07, 2004
.05 CASE NUMBER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 07, 2004
  • HELP-PROMPT:  Answer must be 1-30 characters in length
.06 CASE TYPE 0;6 SET
  • 'IP' FOR INPATIENT;
  • 'OP' FOR OUTPATIENT;
  • 'DS' FOR DAY SURGERY;
  • 'CHS' FOR CONTRACT;
  • 'D' FOR DENTAL;

  • LAST EDITED:  OCT 12, 2004
.07 STATUS 0;7 SET
  • 'O' FOR OPEN;
  • 'C' FOR CLOSED;

  • LAST EDITED:  JUN 16, 2004
.08 CASE WORKER 0;8 FREE TEXT

  • INPUT TRANSFORM:  D NAME^AUPNPED
  • LAST EDITED:  JUN 16, 2004
  • HELP-PROMPT:  NAME IN THE FORM 'LASTNAME,FIRSTNAME'
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.09 COMPLETED BY 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 14, 2004
.11 DATE COMPLETED 0;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X Q:'$D(X) K:$P($G(^AUPNBENR(DA(1),11,DA,0)),U)>X X
  • LAST EDITED:  DEC 19, 2005
  • HELP-PROMPT:  (No range limit on date)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.12 CASE REASON 0;12 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  MAR 30, 2005
  • HELP-PROMPT:  Enter up to 45 characters the reason for this case
101 NOTES 1;0 WORD-PROCESSING #9000044.1101
Info |  Details |  All