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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^VEN(7.2

Package: PCC New Encounter Form

Global: ^VEN(7.2


Information

FileMan FileNo FileMan Filename Package
19707.2 VEN QUEUE PCC New Encounter Form

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
PCC New Encounter Form 5 VENPCCA    VENPCCMF    VENPCCP3    VENPCCU    VENPCCW    
Local Area Programs 1 AZAXDPM2    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
PCC New Encounter Form 3 VENPCCA    VENPCCMF    VENPCCP3    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
PCC New Encounter Form 1 VEN QUEUE(#19707.2)[.09]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
PCC New Encounter Form 3 VEN QUEUE(#19707.2)[.09]    VEN QUEUE TYPE(#19707.22)[.03]    VEN EHP CLINIC(#19707.95)[.04, .12]    
IHS Patient 1 VISIT(#9000010)[1.2]    
Kernel 1 NEW PERSON(#200)[.06, .07, .1, .11, 1.5]    
Registration 1 VA PATIENT(#2)[1.1]    

Fields, Total: 24

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

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 20, 2000
  • CROSS-REFERENCE:  19707.2^B
    1)= S ^VEN(7.2,"B",$E(X,1,30),DA)=""
    2)= K ^VEN(7.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^19707.2^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(19707.2,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^VEN(7.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=19707.2,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=1
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS
.02 TIME OUT 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 20, 2000
  • CROSS-REFERENCE:  ^^TRIGGER^19707.2^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$LEN^VENPCCU(D0) X ^DD(19707.2,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^VEN(7.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=19707.2,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$$LEN^VENPCCU(D0)
    DELETE VALUE)= NO EFFECT
    FIELD)= DURATION
  • CROSS-REFERENCE:  ^^TRIGGER^19707.2^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(19707.2,.02,1,2,1.4)
    1.4)= S DIH=$S($D(^VEN(7.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=19707.2,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=0
    DELETE VALUE)= NO EFFECT
    FIELD)= STATUS
.03 QUEUE TYPE 0;3 POINTER TO VEN QUEUE TYPE FILE (#19707.22) VEN QUEUE TYPE(#19707.22)

  • LAST EDITED:  OCT 20, 2000
.04 QUEUE DESTINATION 0;4 POINTER TO VEN EHP CLINIC FILE (#19707.95) VEN EHP CLINIC(#19707.95)

  • LAST EDITED:  FEB 20, 2001
  • CROSS-REFERENCE:  19707.2^AD
    1)= S ^VEN(7.2,"AD",$E(X,1,30),DA)=""
    2)= K ^VEN(7.2,"AD",$E(X,1,30),DA)
.05 STATUS 0;5 SET
  • '1' FOR PENDING;
  • '0' FOR RESOLVED;
  • '4' FOR CANCELLED;
  • '2' FOR ACTIVE;
  • '-2' FOR EXPIRED;
  • '3' FOR STANDBY;
  • '-1' FOR DONT USE ANYMORE;

  • LAST EDITED:  FEB 28, 2001
  • NOTES:  TRIGGERED by the TIME IN field of the VEN QUEUE File
    TRIGGERED by the TIME OUT field of the VEN QUEUE File
  • CROSS-REFERENCE:  19707.2^AC
    1)= S ^VEN(7.2,"AC",$E(X,1,30),DA)=""
    2)= K ^VEN(7.2,"AC",$E(X,1,30),DA)
.06 ORIGINATOR 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 20, 2000
.07 RECIPIENT 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 20, 2000
.08 DURATION 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  OCT 20, 2000
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TIME OUT field of the VEN QUEUE File
.09 PARENT QUEUE 0;9 POINTER TO VEN QUEUE FILE (#19707.2) VEN QUEUE(#19707.2)

  • LAST EDITED:  OCT 20, 2000
  • CROSS-REFERENCE:  19707.2^AE
    1)= S ^VEN(7.2,"AE",$E(X,1,30),DA)=""
    2)= K ^VEN(7.2,"AE",$E(X,1,30),DA)
.1 CANCELLED BY 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 08, 2000
.11 ACTIVE USER 0;11 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 11, 2000
.12 QUEUE ORIGIN 0;12 POINTER TO VEN EHP CLINIC FILE (#19707.95) VEN EHP CLINIC(#19707.95)

  • LAST EDITED:  FEB 20, 2001
  • CROSS-REFERENCE:  19707.2^AQ^MUMPS
    1)= D AQ^VENPCCU(DA,X)
    2)= D AQ1^VENPCCU(DA)
1 ELAPSED TIME COMPUTED

  • MUMPS CODE:  S X=$$DUR^VENPCCU(D0)
  • ALGORITHM:  S X=$$DUR^VENPCCU(D0)
  • LAST EDITED:  DEC 01, 2000
1.1 PATIENT 1;1 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  FEB 14, 2001
  • CROSS-REFERENCE:  19707.2^AP
    1)= S ^VEN(7.2,"AP",$E(X,1,30),DA)=""
    2)= K ^VEN(7.2,"AP",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^19707.2^1.3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.2,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$HRN^AUPNPAT(X,+$G(DUZ(2))) X ^DD(19707.2,1.1,1,2,1.4)
    1.4)= S DIH=$S($D(^VEN(7.2,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=19707.2,DIG=1.3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X=$$HRN^AUPNPAT(X,+$G(DUZ(2)))
    DELETE VALUE)= NO EFFECT
    FIELD)= HRN
1.2 VISIT 1;2 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  NOV 20, 2000
  • CROSS-REFERENCE:  19707.2^AV
    1)= S ^VEN(7.2,"AV",$E(X,1,30),DA)=""
    2)= K ^VEN(7.2,"AV",$E(X,1,30),DA)
1.3 HRN 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  FEB 14, 2001
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • NOTES:  TRIGGERED by the PATIENT field of the VEN QUEUE File
1.4 LAST DEMOGRAPHICS CHECK 1;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 17, 2001
  • DESCRIPTION:  
    Date the last time the check in clerk asked to review deomg/ins info.
1.5 PROVIDER 1;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 21, 2005
1.6 VCN 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 21, 2005
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1.7 CLERKS INITIALS 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  MAR 21, 2005
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
2 IMAGE LOCATION 2;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  OCT 20, 2000
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
3 CHART REQUEST DESTINATION 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X
  • LAST EDITED:  APR 27, 2001
  • HELP-PROMPT:  Answer must be 1-200 characters in length.
302 MED. RECORDS INITIALS 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<2) X
  • LAST EDITED:  APR 18, 2001
  • HELP-PROMPT:  Answer must be 2-6 characters in length.
303 IMAGE ID 3;3 FREE TEXT

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