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.49

Package: PCC New Encounter Form

Global: ^VEN(7.49


Information

FileMan FileNo FileMan Filename Package
19707.49 VEN EHP HEADER GROUP PCC New Encounter Form

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
PCC New Encounter Form 3 VENPCC1    VENPCC10    VENPCC25    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
PCC New Encounter Form 1 VENPCC25    

Fields, Total: 3

Field # Name Loc Type Details
.01 HEADER GROUP 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  MAR 23, 2005
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • CROSS-REFERENCE:  19707.49^B
    1)= S ^VEN(7.49,"B",$E(X,1,30),DA)=""
    2)= K ^VEN(7.49,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^19707.49^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.49,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=X_"header.txt" X ^DD(19707.49,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^VEN(7.49,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=19707.49,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.49,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(19707.49,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^VEN(7.49,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=19707.49,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=X_"header.txt"
    DELETE VALUE)= S X=""
    FIELD)= OLD H
.02 OLD HEADER FILE NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 23, 2005
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • NOTES:  TRIGGERED by the HEADER GROUP field of the VEN EHP HEADER GROUP File
1 HEADER 1;0 Multiple #19707.491 19707.491
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  All