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

Package: IHS Patient

Global: ^AUPNPLDC


Information

FileMan FileNo FileMan Filename Package
9000034 PATIENT'S LEGAL DOCS IHS Patient

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
IHS Patient Registration 2 AGED11A    AGLDOC    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS Patient Registration 1 AGLDOC    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 2 ELIGIBILITY MODIFIERS(#9000030)[.03]    PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.08]    

Fields, Total: 9

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

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 01, 2003
  • TECHNICAL DESCR:  
    Created 6/13/2002 for V7.0 of AG Distributed in AUPN*99.1*8
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000034^B
    1)= S ^AUPNPLDC("B",$E(X,1,30),DA)=""
    2)= K ^AUPNPLDC("B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  JUL 03, 2002
  • TECHNICAL DESCR:  
    Created 6/20/02 for V7.0 of AG Distributed in AUPN*99.1*8
  • CROSS-REFERENCE:  9000034^C
    1)= S ^AUPNPLDC("C",$E(X,1,30),DA)=""
    2)= K ^AUPNPLDC("C",$E(X,1,30),DA)
.03 LEGAL DOCUMENT 0;3 POINTER TO ELIGIBILITY MODIFIERS FILE (#9000030) ELIGIBILITY MODIFIERS(#9000030)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)[""L""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 01, 2003
  • HELP-PROMPT:  Enter the name of the legal document that has been entered into the patient's chart
  • TECHNICAL DESCR:  
    Created 6/20/02 for V7.0 of AG Distributed in AUPN*99.1*8
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)[""L"""
  • EXPLANATION:  Enter name of legal document
.04 DATE ADDED TO FILE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 02, 2002
.05 DOCUMENT# 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  JUL 01, 2004
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • DESCRIPTION:  
    Enter the document number if applicable.
.06 EFFECTIVE DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 2004
  • DESCRIPTION:  
    Enter the effective date if this is a temporary document such as "Temporary Guardianship" or "Consent for medical care of a minor"
.07 END DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 01, 2004
  • DESCRIPTION:  
    Enter the end date if this is a temporary document such as "Temporary Guardianship" or "Consent for medical care of a minor"
.08 ENTERED BY 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 01, 2004
1101 BEGINNING DATE 11;0 DATE Multiple #9000034.11 9000034.11
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All