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 |  Found Entries |  All
Print Page as PDF
Global: ^VEN(7.34

Package: PCC New Encounter Form

Global: ^VEN(7.34


Information

FileMan FileNo FileMan Filename Package
19707.34 VEN EHP ICD ITEM PCC New Encounter Form

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
PCC New Encounter Form 5 VENPCC1G    VENPCC1P    VENPCCG2    VENPCCMD    VENPCCMG    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
PCC New Encounter Form 3 VENPCC1P    VENPCCG2    VENPCCMD    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.01]    
PCC New Encounter Form 1 VEN EHP ICD GROUP(#19707.33)[.02]    

Fields, Total: 24

Field # Name Loc Type Details
.01 OWNER 0;1 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  APR 05, 2005
  • CROSS-REFERENCE:  19707.34^B
    1)= S ^VEN(7.34,"B",$E(X,1,30),DA)=""
    2)= K ^VEN(7.34,"B",$E(X,1,30),DA)
.02 DX PREFERENCE GROUP 0;2 POINTER TO VEN EHP ICD GROUP FILE (#19707.33) VEN EHP ICD GROUP(#19707.33)

  • LAST EDITED:  APR 05, 2005
.03 PRINTED NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
.04 ICD CODE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  MAY 04, 2005
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^19707.34^.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.34,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$$CIDC^VENPCC1P(X) S DIH=$G(^VEN(7.34,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=19707.34,DIG=.07 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.34,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$G(^VEN(7.34,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=19707.34,DIG=.07 D ^DICR
    CREATE VALUE)= S X=$$CIDC^VENPCC1P(X)
    DELETE VALUE)= S X=""
    FIELD)= ICD T
.05 SECONDARY CODE 0;5 FREE TEXT

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 04, 2005
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  19707.34^AC
    1)= S ^VEN(7.34,"AC",$E(X,1,30),DA)=""
    2)= K ^VEN(7.34,"AC",$E(X,1,30),DA)
.07 ICD TEXT 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  APR 04, 2005
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • NOTES:  TRIGGERED by the ICD CODE field of the VEN EHP ICD ITEM File
.08 SORT ORDER NUMBER 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 05, 2005
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
1.01 INFANT 1;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 2005
1.02 INFANT TOTAL 1;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
1.03 CHILD 1;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 2005
1.04 CHILD TOTAL 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
1.05 TEEN FEMALE 1;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 2005
1.06 TEEN FEMALE TOTAL 1;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
1.07 TEEN MALE 1;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 2005
1.08 TEEN MALE TOTAL 1;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
1.09 ADULT FEMALE 1;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 04, 2005
1.1 ADULT FEMALE TOTAL 1;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
1.11 ADULT MALE 1;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 2005
1.12 ADULT MALE TOTAL 1;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
1.13 SENIOR FEMALE 1;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 2005
1.14 SENIOR FEMALE TOTAL 1;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
1.15 SENIOR MALE 1;15 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 2005
1.16 SENIOR MALE TOTAL 1;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All