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 |  All
Print Page as PDF
Global: ^AUPNFSE

Package: IHS Patient

Global: ^AUPNFSE


Information

FileMan FileNo FileMan Filename Package
9000007 *SCHEDULED ENCOUNTER 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)[.02]    
Kernel 1 NEW PERSON(#200)[.06, .08]    
Utility Tables 1 LOCATION(#9999999.06)[.05, .07]    

Fields, Total: 9

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

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:DT+20000X) X
  • LAST EDITED:  AUG 07, 1986
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY + 2 YEARS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000007^B
    1)= S ^AUPNFSE("B",$E(X,1,30),DA)=""
    2)= K ^AUPNFSE("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000007^AZ9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 22, 1986
    UNEDITABLE
  • CROSS-REFERENCE:  9000007^AC
    1)= S ^AUPNFSE("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNFSE("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000007^AA^MUMPS
    1)= S ^AUPNFSE("AA",X,$P(^AUPNFSE(DA,0),U,1),DA)=""
    2)= K ^AUPNFSE("AA",X,$P(^AUPNFSE(DA,0),U,1),DA)
.03 SCHED ON DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  APR 22, 1987
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY
    UNEDITABLE
.04 PRIORITY 0;4 SET
  • 'R' FOR ROUTINE;
  • 'H' FOR HIGH;
  • 'U' FOR URGENT;

  • LAST EDITED:  APR 22, 1986
.05 SCHED BY FACILITY 0;5 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  JUL 11, 1986
    SOURCE OF DATA:   031/FEPOEN
.06 SCHED BY PROVIDER 0;6 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 15, 1993
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"
  • EXPLANATION:  Must be a Provider.
    SOURCE OF DATA:   031/FEPERS
.07 SCHED FOR FACILITY 0;7 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  JUL 11, 1986
    SOURCE OF DATA:   031/FELOCE
.08 SCHED FOR PROVIDER 0;8 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 15, 1993
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"
  • EXPLANATION:  Must be a Provider.
    SOURCE OF DATA:   031/FEPMEN
.09 NARRATIVE 0;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>44!($L(X)<2) X
  • LAST EDITED:  JUL 11, 1986
  • HELP-PROMPT:  ANSWER MUST BE 2-44 CHARACTERS IN LENGTH
    SOURCE OF DATA:   031/FENARR
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  All