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

Package: PCC New Encounter Form

Global: ^VEN(7.1


Information

FileMan FileNo FileMan Filename Package
19707.1 VEN EHP ICD PREFERENCES PCC New Encounter Form

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
PCC New Encounter Form 10 VENPCC1G    VENPCC1H    VENPCC1P    VENPCCG4    VENPCCMA    VENPCCMD    VENPCCMG    VENPCCMH
VENPCCML    VENPCCU    
GUI Objects 1 BGOICDP2    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
PCC New Encounter Form 5 VENPCC1P    VENPCCG4    VENPCCMA    VENPCCMD    VENPCCML    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.01]    

Fields, Total: 6

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

  • LAST EDITED:  SEP 29, 1999
  • CROSS-REFERENCE:  19707.1^B
    1)= S ^VEN(7.1,"B",$E(X,1,30),DA)=""
    2)= K ^VEN(7.1,"B",$E(X,1,30),DA)
.02 ICD DX 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  OCT 05, 2000
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • CROSS-REFERENCE:  19707.1^AC
    1)= S ^VEN(7.1,"AC",$E(X,1,30),DA)=""
    2)= K ^VEN(7.1,"AC",$E(X,1,30),DA)
.03 PRINTED NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  OCT 04, 1999
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
.04 CLASS 0;4 SET
  • '1' FOR INFANT;
  • '2' FOR CHILD;
  • '3' FOR TEEN MALE;
  • '4' FOR TEEN FEMALE;
  • '5' FOR ADULT MALE;
  • '6' FOR ADULT FEMALE;
  • '7' FOR SENIOR MALE;
  • '8' FOR SENIOR FEMALE;

  • LAST EDITED:  DEC 10, 2000
  • CROSS-REFERENCE:  19707.1^AD
    1)= S ^VEN(7.1,"AD",$E(X,1,30),DA)=""
    2)= K ^VEN(7.1,"AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^19707.1^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$CLASS2^VENPCCU(D0,X) X ^DD(19707.1,.04,1,2,1.4)
    1.4)= S DIH=$S($D(^VEN(7.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=19707.1,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$$CLASS2^VENPCCU(D0,X)
    DELETE VALUE)= NO EFFECT
    FIELD)= GROUP
.05 GROUP 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  DEC 10, 2000
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • NOTES:  TRIGGERED by the CLASS field of the VEN EHP ICD PREFERENCES File
  • CROSS-REFERENCE:  19707.1^AG
    1)= S ^VEN(7.1,"AG",$E(X,1,30),DA)=""
    2)= K ^VEN(7.1,"AG",$E(X,1,30),DA)
.06 SECONDARY CODE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  AUG 29, 2002
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All