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

Package: IHS Patient Registration

AG TX STATUS(#9009063)-->9009063.01

Sub-Field: 9009063.01


Information

Parent File Name Number Package
AG TX STATUS(#9009063) DATE EXPORT PROCESSED 9009063.01 IHS Patient Registration

Details

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

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 04, 1992
  • CROSS-REFERENCE:  9009063^C
    1)= S ^AGTXST("C",$E(X,1,30),DA(1),DA)=""
    2)= K ^AGTXST("C",$E(X,1,30),DA(1),DA)
  • CROSS-REFERENCE:  9009063^AC^MUMPS
    1)= S ^AGTXST("AC",DA(1),9999999-$E(X,1,30),DA)=""
    2)= K ^AGTXST("AC",DA(1),9999999-$E(X,1,30),DA)
1 DATE OF FIRST RECORD 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 04, 1992
2 DATE OF LAST RECORD 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 04, 1992
3 LAST RECORD TX'ED 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999
4 NUMBER OF RECORDS 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999
5 DATA CARTRIDGE NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-6 CHARACTERS IN LENGTH
6 DATE MAILED 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
7 DATE RECEIVED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
8 DATE CONFIRMED 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
9 TAPE COPY OK 0;10 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  PLEASE ENTER Y OR N
11 RG1 COUNT 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
12 RG2 COUNT 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
13 RG3 COUNT 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
14 RG4 COUNT 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
15 RG5 COUNT 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
16 RG6 COUNT 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
17 RG7 COUNT 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
18 RG8 COUNT 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
21 NUMBER OF PATIENTS 0;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
22 BYTES GENERATED 0;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
23 BEGIN DATE/TIME 0;23 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 05, 2001
24 END DATE/TIME 0;24 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 05, 2001
24.1 ELAPSED TIME COMPUTED

  • MUMPS CODE:  X ^DD(9009063.01,24.1,9.2) S X1=Y(9009063.01,24.1,2) S X=$S(X&X1:X,1:"") Q:'X D H^%DTC S XUS1=%H*86400+%T,X=X1 D H^%DTC S XUS2=%H*86400+%T,X=$S(XUS1>XUS2:XUS1-XUS2,1:XUS2-XUS1)
    9.2 = S Y(9009063.01,24.1,1)=$S($D(^AGTXST(D0,1,D1,0)):^(0),1:"") S X=$P(Y(9009063.01,24.1,1),U,23),Y(9009063.01,24.1,2)=X S X=$P(Y(9009063.01,24.1,1),U,24)
  • ALGORITHM:  XUDELTATIME(#23,#24)
Info |  Details |  All