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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNPOD

Package: IHS Patient

Global: ^AUPNPOD


Information

FileMan FileNo FileMan Filename Package
9000028 PODIATRY HISTORY IHS Patient

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Local Area Programs 1 AZAXDPM2    
PCC New Encounter Form 1 VENPCC1F    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Registration 1 VA PATIENT(#2)[.01]    

Fields, Total: 16

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

  • INPUT TRANSFORM:  S:$D(X) DINUM=X Q
  • LAST EDITED:  JAN 27, 2003
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000028^B
    1)= S ^AUPNPOD("B",$E(X,1,30),DA)=""
    2)= K ^AUPNPOD("B",$E(X,1,30),DA)
.02 DATE OF LAST VASCULAR EXAM 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 25, 2003
.03 DATE OF LAST NEURO EXAM 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 25, 2003
.04 DATE OF LAST SHOE FITTING 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 25, 2003
1.01 DATE OF LAST PULSE CHECK 1;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 27, 2003
1.02 LAST PULSE RESULTS 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  JAN 27, 2003
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
1.03 DATE OF LAST DOPPLER 1;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 27, 2003
1.04 LAST DOPPLER RESULTS 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  JAN 27, 2003
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
1.05 DATE OF LAST OSCILLOMETRY 1;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 27, 2003
1.06 LAST OSCILLOMETRY RESULTS 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  JAN 27, 2003
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
2.01 LAST NEURO EXAM RESULTS 2;1 SET
  • '1' FOR SENSATE;
  • '2' FOR INCOMPLETE NEUROPATHY;
  • '3' FOR COMPLETE NEUROPATHY;

  • LAST EDITED:  JAN 25, 2003
2.02 NEURO EXAM COMMENT 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  JAN 25, 2003
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
3 GRAFTS 3;0 DATE Multiple #9000028.03 9000028.03
4 AMPUTATIONS 4;0 SET Multiple #9000028.04 9000028.04
5.01 LAST SHOE TYPE 5;1 SET
  • '1' FOR IN DEPTH;
  • '2' FOR MOLDED;
  • '3' FOR AZ AJ BRACE;
  • '4' FOR OTHER;

  • LAST EDITED:  JAN 25, 2003
5.02 LAST SHOE COMMENT 5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  JAN 27, 2003
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All