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 |  Fields
Print Page as PDF
Global: ^MCAR(690.97

Package: Medicine

Global: ^MCAR(690.97


Information

FileMan FileNo FileMan Filename Package
690.97 MCQ POLLING Medicine

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Medicine 2 MCARE1    MCPOS01A    

Fields, Total: 6

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

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
  • LAST EDITED:  MAY 02, 1996
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  690.97^B
    1)= S ^MCAR(690.97,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(690.97,"B",$E(X,1,30),DA)
.02 TYPE 0;2 SET
  • '1' FOR PAT;
  • '2' FOR PCC;
  • '3' FOR DEL;

  • LAST EDITED:  MAY 02, 1996
.03 DA 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  MAY 02, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999999999999, 6 Decimal Digits
.04 FILE 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  MAY 02, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999999999999, 6 Decimal Digits
.05 MCARGDA 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  MAY 02, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999999999999, 6 Decimal Digits
.06 MCQDEL 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 02, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Fields