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 |  Fields |  All
Print Page as PDF
Global: ^VEN(7.16

Package: PCC New Encounter Form

Global: ^VEN(7.16


Information

FileMan FileNo FileMan Filename Package
19707.16 VEN EHP KB TRANSACTION PCC New Encounter Form

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
PCC New Encounter Form 2 VENPCCKD    VENPCCKT    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
PCC New Encounter Form 2 VENPCCKD    VENPCCKT    

Fields, Total: 16

Field # Name Loc Type Details
.01 KB CATEGORY IEN 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 06, 2006
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • CROSS-REFERENCE:  19707.16^B
    1)= S ^VEN(7.16,"B",$E(X,1,30),DA)=""
    2)= K ^VEN(7.16,"B",$E(X,1,30),DA)
.02 KB CATEGORY 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 06, 2006
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
.03 KB ITEM IEN 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 06, 2006
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
.04 KB ITEM 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  MAR 06, 2006
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
.05 CODE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  MAR 06, 2006
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
.06 LAST DATE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  MAR 14, 2006
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
.07 TODAYS RESULT 0;7 SET
  • '1' FOR SELECTED;
  • '0' FOR UNSELECTED;
  • 'A' FOR ABNORMAL;
  • 'N' FOR NORMAL;
  • 'B' FOR BORDERLINE;

  • LAST EDITED:  MAR 14, 2006
.08 VISIT IEN 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 07, 2006
  • HELP-PROMPT:  Type a Number between 1 and 999999999999, 0 Decimal Digits
.09 TYPE 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 07, 2006
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
.1 KEY 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 07, 2006
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • CROSS-REFERENCE:  19707.16^AC
    1)= S ^VEN(7.16,"AC",$E(X,1,30),DA)=""
    2)= K ^VEN(7.16,"AC",$E(X,1,30),DA)
.11 LAST RESULT 0;11 SET
  • 'A' FOR ABNORMAL;
  • 'N' FOR NORMAL;

  • LAST EDITED:  MAR 14, 2006
.12 TX DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 10, 2006
  • CROSS-REFERENCE:  19707.16^AD
    1)= S ^VEN(7.16,"AD",$E(X,1,30),DA)=""
    2)= K ^VEN(7.16,"AD",$E(X,1,30),DA)
.13 SUBSCRIPT 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 14, 2006
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
1 RESULT 1;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  MAR 06, 2006
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
1.01 LAST COMMENT 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  MAR 15, 2006
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
1.02 TODAYS COMMENT 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  MAR 15, 2006
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  All