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

Package: PCC New Encounter Form

Global: ^VEN(7.14


Information

FileMan FileNo FileMan Filename Package
19707.14 VEN EHP ASQ QUESTIONNAIRE PCC New Encounter Form

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
PCC New Encounter Form 7 VENPCCQ    VENPCCQ1    VENPCCQ2    VENPCCQ6    VENPCCQ8    VENPCCQC    VENPCCQD    
IHS Patient 1 AUPNVMSR    
Patient Care Component 1 APCDTWC1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
PCC New Encounter Form 1 VENPCCQ6    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V WELL CHILD(#9000010.46)[2.07]    

Fields, Total: 11

Field # Name Loc Type Details
.01 AGE IN MONTHS 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 10, 2006
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • CROSS-REFERENCE:  19707.14^B
    1)= S ^VEN(7.14,"B",$E(X,1,30),DA)=""
    2)= K ^VEN(7.14,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^19707.14^1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.14,D0,1)):^(1),1:"") S X=$E(Y(1),1,240),X=X S DIU=X K Y S X=DIV S X=$$NAME^VENPCCQ(X) X ^DD(19707.14,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^VEN(7.14,DIV(0),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,240),Y=$E(DIH,241,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",240-$L(DIV))_Y),DIH=19707.14,DIG=1 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.14,D0,1)):^(1),1:"") S X=$E(Y(1),1,240),X=X S DIU=X K Y S X="" X ^DD(19707.14,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^VEN(7.14,DIV(0),1)):^(1),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,240),Y=$E(DIH,241,999),^(1)=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",240-$L(DIV))_Y),DIH=19707.14,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0)
    )>0
    CREATE VALUE)= S X=$$NAME^VENPCCQ(X)
    DELETE VALUE)= S X=""
    FIELD)= PDF
.02 COMMUNICATION CUTOFF 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  JAN 10, 2006
  • HELP-PROMPT:  Type a Number between 0 and 999, 1 Decimal Digit
.03 GROSS MOTOR CUTOFF 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  JAN 10, 2006
  • HELP-PROMPT:  Type a Number between 0 and 999, 1 Decimal Digit
.04 FINE MOTOR CUTOFF 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  JAN 10, 2006
  • HELP-PROMPT:  Type a Number between 0 and 999, 1 Decimal Digit
.05 PROBLEM SOLVING CUTOFF 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  JAN 10, 2006
  • HELP-PROMPT:  Type a Number between 0 and 999, 1 Decimal Digit
.06 PERSONAL-SOCIAL CUTOFF 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  JAN 10, 2006
  • HELP-PROMPT:  Type a Number between 0 and 999, 1 Decimal Digit
.07 NUMBER OF PAGES 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 12, 2006
  • HELP-PROMPT:  Type a Number between 1 and 9, 0 Decimal Digits
1 PDF 1;E1,240 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JAN 10, 2006
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • NOTES:  TRIGGERED by the AGE IN MONTHS field of the VEN EHP ASQ QUESTIONNAIRE File
2.01 START 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2011
  • HELP-PROMPT:  ASQ expresses age in months and days. This value is mm.dd; e.g., 28.15 = 28 months and 15 days
  • DESCRIPTION:  
    Start of age range expressed as mm.dd
2.02 END 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  FEB 07, 2011
  • HELP-PROMPT:  ASQ expresses age in months and days. This value is mm.dd; e.g., 28.15 = 28 months and 15 days
  • DESCRIPTION:  
    End of age range expressed as mm.dd
3 HISTORICAL CUTOFF SCORES 3;0 Multiple #19707.143 19707.143

Found Entries, Total: 21

AGE IN MONTHS: 10    AGE IN MONTHS: 12    AGE IN MONTHS: 14    AGE IN MONTHS: 16    AGE IN MONTHS: 18    AGE IN MONTHS: 2    AGE IN MONTHS: 20    AGE IN MONTHS: 22    
AGE IN MONTHS: 24    AGE IN MONTHS: 27    AGE IN MONTHS: 30    AGE IN MONTHS: 33    AGE IN MONTHS: 36    AGE IN MONTHS: 4    AGE IN MONTHS: 42    AGE IN MONTHS: 48    
AGE IN MONTHS: 54    AGE IN MONTHS: 6    AGE IN MONTHS: 60    AGE IN MONTHS: 8    AGE IN MONTHS: 9    
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  All