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

Package: IHS Patient

Global: ^AUPNNPP


Information

FileMan FileNo FileMan Filename Package
9000038 NOTICE OF PRIVACY PRACTICES IHS Patient

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Patient Registration GUI 2 AGGDCUPD    AGGPRE1    
Clinical Scheduling for Windows 1 BSDX41A    
Health Summary Components 1 BHSDEM    
IHS Patient Registration 1 AGED11A    
Local Area Programs 1 AZAXDPM1    
Patient Care Component 1 APCHS1    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
IHS Patient Registration 2 AGED11A    AGFACE    
Patient Registration GUI 2 AGGDCTRG    AGGDCUPD    
IHS Mods To Text Integration Utilities 1 BTIULO14    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[.07]    

Fields, Total: 7

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

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  APR 09, 2003
  • HELP-PROMPT:  Enter the patient's name
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000038^B
    1)= S ^AUPNNPP("B",$E(X,1,30),DA)=""
    2)= K ^AUPNNPP("B",$E(X,1,30),DA)
.02 WAS NPP REC'D BY PATIENT ? 0;2 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 15, 2003
  • HELP-PROMPT:  Was Notice of Privacy Practices (NPP) received by patient ?
.03 DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 10, 2003
  • HELP-PROMPT:  Enter the date the patient received the NPP
.04 ACKNOWLEDGEMENT SIGNED ? 0;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 09, 2003
  • HELP-PROMPT:  Was the Acknowledgement of Receipt of NPP signed ?
.05 REASON 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  APR 09, 2003
  • HELP-PROMPT:  Answer must be 3-80 characters in length. State reason why the patient is unable to sign.
.06 DATE/TIME OF ENTRY 0;6 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 15, 2003
.07 ENTERED BY 0;7 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  APR 15, 2003
  • CROSS-REFERENCE:  9000038^C
    1)= S ^AUPNNPP("C",$E(X,1,30),DA)=""
    2)= K ^AUPNNPP("C",$E(X,1,30),DA)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All