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: ^APCDDMUP

Package: Patient Care Component

Global: ^APCDDMUP


Information

FileMan FileNo FileMan Filename Package
9001002.2 PCC DATA ENTRY DM UPDATE Patient Care Component

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Patient Care Component 3 APCDDMU2    APCDDMU3    APCDDMUP    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Patient Care Component 1 APCDDMUP    

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
Utility Tables 6 EDUCATION TOPICS(#9999999.09)[#9001002.212(.01)]    HEALTH FACTORS(#9999999.64)[.09.11107110811091110]    IMMUNIZATION(#9999999.14)[111111121113]
LOCATION(#9999999.06)[1106]    REFUSAL TYPE(#9999999.73)[#9001002.215(.01)]    READINESS TO LEARN(#99999.15)[#9001002.212(.09)]    
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[#9001002.212(.04)]    
Lab Service 1 LABORATORY TEST(#60)[#9001002.213(.01)]    
Pharmacy Data Management 1 DRUG(#50)[#9001002.214(.01)]    
Radiology Nuclear Medicine 1 RAD/NUC MED PROCEDURES(#71)[.24]    
VA Fileman 1 FILE(#1)[#9001002.215(.03)]    

Fields, Total: 47

Field # Name Loc Type Details
.01 PATIENT NAME 0;1 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  FEB 29, 2000
  • CROSS-REFERENCE:  9001002.2^B
    1)= S ^APCDDMUP("B",$E(X,1,30),DA)=""
    2)= K ^APCDDMUP("B",$E(X,1,30),DA)
.02 DATE OF UPDATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 29, 2000
.03 DATE OF DM ONSET 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 PROBLEM NUMBER 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X D:$D(X) PROBN^APCDDMUP
  • LAST EDITED:  MAR 01, 2000
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 HEIGHT DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 HEIGHT VALUE 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>90)!(X<10)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 01, 2000
  • HELP-PROMPT:  Type a Number between 10 and 90, 0 Decimal Digits
.07 WEIGHT DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 WEIGHT VALUE 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>750)!(X<2)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 01, 2000
  • HELP-PROMPT:  Type a Number between 2 and 750, 0 Decimal Digits
.09 TOBACCO HEALTH FAC 0;9 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $$SMK^APCDDMU2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 27, 2001
  • SCREEN:  S DIC("S")="I $$SMK^APCDDMU2(Y)"
  • EXPLANATION:  MUST BE A TOBACCO HEALTH FACTOR
.1 TB HEALTH FACTOR 0;10 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $$TBF^APCDDMU2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 27, 2001
  • SCREEN:  S DIC("S")="I $$TBF^APCDDMU2(Y)"
  • EXPLANATION:  MUST BE A TB STATUS HEALTH FACTOR
.11 FOOT EXAM DATE 0;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.12 EYE EXAM DATE 0;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.13 DENTAL EXAM DATE 0;13 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.14 PAP SMEAR DATE 0;14 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.15 MAMMOGRAM DATE 0;15 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.16 FLU SHOT DATE 0;16 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.17 PNEUMOVAX DATE 0;17 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.18 TD DATE 0;18 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.19 BP DATE 0;19 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 17, 2001
.2 BP VALUE 0;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X D BP^AUPNVMSR
  • LAST EDITED:  JAN 17, 2001
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.21 FOOT EXAM RESULT 0;21 SET
  • 'A' FOR ABNORMAL;
  • 'N' FOR NORMAL;

  • LAST EDITED:  JUN 20, 2001
.22 EYE EXAM RESULT 0;22 SET
  • 'A' FOR ABNORMAL;
  • 'N' FOR NORMAL;

  • LAST EDITED:  JUN 20, 2001
.23 EKG RESULT 0;23 SET
  • 'A' FOR ABNORMAL;
  • 'N' FOR NORMAL;
  • 'B' FOR BORDERLINE;

  • LAST EDITED:  JAN 11, 2002
.24 MAMMOGRAM 0;24 POINTER TO RAD/NUC MED PROCEDURES FILE (#71) RAD/NUC MED PROCEDURES(#71)

  • LAST EDITED:  JUN 23, 2005
.25 DEPRESSION SCREEN EXAM DATE 0;25 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  JUL 18, 2006
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.26 DEPRESSION SCREENING RESULT 0;26 SET
  • 'N' FOR NORMAL/NEGATIVE;
  • 'PO' FOR POSITIVE;

  • LAST EDITED:  JUL 18, 2006
1101 PPD DATE 11;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1102 PPD READING 11;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 29, 2000
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
1103 EKG 11;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X D:$D(X) VSIT01^APCDDMUP
  • LAST EDITED:  MAR 16, 2000
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1106 SITE WHERE FOLLOWED 11;6 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  MAY 24, 2002
1107 SELF MONITORING HEALTH FACTOR 11;7 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $$SG^APCDDMU2(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 31, 2002
  • SCREEN:  S DIC("S")="I $$SG^APCDDMU2(Y)"
  • EXPLANATION:  Must be a Diabetes Self Monitoring Health Factor
1108 BARRIERS TO LEARN HF 11;8 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $$BTL^APCDDMU3(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 27, 2004
  • SCREEN:  S DIC("S")="I $$BTL^APCDDMU3(Y)"
  • EXPLANATION:  Must be a BARRIERS TO LEARNING health factor."
1109 READINESS TO LEARN HF 11;9 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $$RTL^APCDDMU3(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 27, 2004
  • SCREEN:  S DIC("S")="I $$RTL^APCDDMU3(Y)"
  • EXPLANATION:  Must be a READINESS TO LEARN health factor
1110 LEARNING PREFERENCE 11;10 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $$LP^APCDDMU3(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 27, 2004
  • SCREEN:  S DIC("S")="I $$LP^APCDDMU3(Y)"
  • EXPLANATION:  Must be a LEARNING PREFERENCE health factor.
1111 FLU VACCINE 11;11 POINTER TO IMMUNIZATION FILE (#9999999.14) IMMUNIZATION(#9999999.14)

  • INPUT TRANSFORM:  S DIC("S")="I $$FLU^APCDDMU3(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 04, 2004
  • SCREEN:  S DIC("S")="I $$FLU^APCDDMU3(Y)"
  • EXPLANATION:  Must be an ACTIVE Influenza immunization
1112 PNEMOVAX VALUE 11;12 POINTER TO IMMUNIZATION FILE (#9999999.14) IMMUNIZATION(#9999999.14)

  • INPUT TRANSFORM:  S DIC("S")="I $$PN^APCDDMU3(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 04, 2004
  • SCREEN:  S DIC("S")="I $$PN^APCDDMU3(+Y)"
  • EXPLANATION:  Must be an ACTIVE Pnemovax immunization
1113 TD Value 11;13 POINTER TO IMMUNIZATION FILE (#9999999.14) IMMUNIZATION(#9999999.14)

  • INPUT TRANSFORM:  S DIC("S")="I $$TD^APCDDMU3(+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 04, 2004
  • SCREEN:  S DIC("S")="I $$TD^APCDDMU3(+Y)"
  • EXPLANATION:  Must be an ACTIVE Td immunization
1114 TOBACCO SCREEN DATE 11;14 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 2004
1115 TB SCREEN DATE 11;15 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 2004
1116 SMBG SCREEN DATE 11;16 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 2004
1117 BARRIERS TO LEARN DATE 11;17 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 2004
1118 READINESS TO LEARN DATE 11;18 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 2004
1119 LEARNING PREFERNCE DATE 11;19 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 2004
1200 DM EDUCATION 12;0 POINTER Multiple #9001002.212 9001002.212
1300 LAB VALUES 13;0 POINTER Multiple #9001002.213 9001002.213
1400 MEDICATIONS 14;0 POINTER Multiple #9001002.214 9001002.214
1500 REFUSALS 15;0 POINTER Multiple #9001002.215 9001002.215
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All