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

Package: IHS Patient Registration

Global: ^AGACAL


Information

FileMan FileNo FileMan Filename Package
9009063.5 AG ACA LOG IHS Patient Registration

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
IHS Patient Registration 2 AGACAL    AGACALV    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS Patient Registration 1 AGACALV    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[.03]    
Utility Tables 1 LOCATION(#9999999.06)[.06]    

Fields, Total: 6

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

  • INPUT TRANSFORM:  K:'$D(XDRMRG) X
  • LAST EDITED:  SEP 18, 2013
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009063.5^B
    1)= S ^AGACAL("B",$E(X,1,30),DA)=""
    2)= K ^AGACAL("B",$E(X,1,30),DA)
.02 UNIQUE IDENTIFIER 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<20) X
  • LAST EDITED:  SEP 23, 2013
  • HELP-PROMPT:  Answer must be 20-40 characters in length.
    UNEDITABLE
.03 USER WHO GENERATED ACA 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 23, 2013
    UNEDITABLE
.04 DATE GENERATED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 23, 2013
  • HELP-PROMPT:  (No range limit on date)
    UNEDITABLE
  • CROSS-REFERENCE:  9009063.5^AC
    1)= S ^AGACAL("AC",$E(X,1,30),DA)=""
    2)= K ^AGACAL("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9009063.5^AA^MUMPS
    1)= S ^AGACAL("AA",$P(^AGACAL(DA,0),U),X,DA)=""
    2)= K ^AGACAL("AA",$P(^AGACAL(DA,0),U),X,DA)
.05 DATE/TIME GENERATED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 23, 2013
  • HELP-PROMPT:  (No range limit on date)
    UNEDITABLE
.06 LOCATION 0;6 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  SEP 23, 2013
    UNEDITABLE
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All