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

Package: IHS Patient

Global: ^AUPNPRCL


Information

FileMan FileNo FileMan Filename Package
9000096 PRIMARY CARE PROVIDER CHANGE LOG IHS Patient

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Local Area Programs 1 AZAXDPM1    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[.04, .06]    
Utility Tables 1 PROVIDER CHANGE REASON(#9999999.93)[.05]    

Fields, Total: 6

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

  • LAST EDITED:  MAR 12, 2001
  • CROSS-REFERENCE:  9000096^B
    1)= S ^AUPNPRCL("B",$E(X,1,30),DA)=""
    2)= K ^AUPNPRCL("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000096^AA^MUMPS
    1)= I $P(^AUPNPRCL(DA,0),U,2)]"",$P(^AUPNPRCL(DA,0),U,3)]"" S ^AUPNPRCL("AA",X,$P(^AUPNPRCL(DA,0),U,3),$P(^AUPNPRCL(DA,0),U,2),DA)=""
    2)= I $P(^AUPNPRCL(DA,0),U,2)]"",$P(^AUPNPRCL(DA,0),U,3)]"" K ^AUPNPRCL("AA",X,$P(^AUPNPRCL(DA,0),U,3),$P(^AUPNPRCL(DA,0),U,2),DA)
.02 DATE/TIME 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 2001
  • CROSS-REFERENCE:  9000096^AATOO^MUMPS
    1)= I $P(^AUPNPRCL(DA,0),U)]"",$P(^AUPNPRCL(DA,0),U,3)]"" S ^AUPNPRCL("AA",$P(^AUPNPRCL(DA,0),U),$P(^AUPNPRCL(DA,0),U,3),X,DA)=""
    2)= I $P(^AUPNPRCL(DA,0),U)]"",$P(^AUPNPRCL(DA,0),U,3)]"" K ^AUPNPRCL("AA",$P(^AUPNPRCL(DA,0),U),$P(^AUPNPRCL(DA,0),U,3),X,DA)
.03 TYPE OF PROVIDER 0;3 SET
  • '1' FOR PRIMARY CARE PROVIDER;
  • '2' FOR WOMEN'S HEALTH REFERRAL;
  • '3' FOR MENTAL HEALTH PRIMARY;
  • '4' FOR MENTAL HEALTH SECONDARY;

  • LAST EDITED:  MAR 12, 2001
  • CROSS-REFERENCE:  9000096^AATOOO^MUMPS
    1)= I $P(^AUPNPRCL(DA,0),U)]"",$P(^AUPNPRCL(DA,0),U,2)]"" S ^AUPNPRCL("AA",$P(^AUPNPRCL(DA,0),U),X,$P(^AUPNPRCL(DA,0),U,2),DA)=""
    2)= I $P(^AUPNPRCL(DA,0),U)]"",$P(^AUPNPRCL(DA,0),U,2)]"" K ^AUPNPRCL("AA",$P(^AUPNPRCL(DA,0),U),X,$P(^AUPNPRCL(DA,0),U,2),DA)
.04 PROVIDER 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 05, 2001
.05 REASON FOR CHANGE 0;5 POINTER TO PROVIDER CHANGE REASON FILE (#9999999.93) PROVIDER CHANGE REASON(#9999999.93)

  • LAST EDITED:  MAR 05, 2001
.06 PERSON WHO CHANGED 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 12, 2001
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All