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 |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^ADGIC

Package: IHS Changes To ADT

Global: ^ADGIC


Information

FileMan FileNo FileMan Filename Package
9009013 INCOMPLETE CHART-OLD IHS Changes To ADT

Description

Directly Accessed By Routines, Total: 18

Package Total Routines
IHS Changes To ADT 12 ADGCP    ADGEVNT    ADGICAL    ADGICAL1    ADGICPQ    ADGT08    ADGT081    ADGT082
ADGT083    ADGT55    BDGF2    BDGPOST4    
Quality Assurance 2 AQAQDCC    AQAQVAR    
Registration 2 CHART DEFICIENCY    PROVIDER    
IHS Changes To Scheduling 1 ASDROUT2    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
IHS Changes To ADT 6 ADGEVNT    ADGPOST    ADGT08    ADGT081    ADGT082    ADGT083    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Registration 2 WARD LOCATION(#42)[#9009013.01(2)]    FACILITY TREATING SPECIALTY(#45.7)[#9009013.01(3)]    
IHS Changes To ADT 1 CHART DEFICIENCY-OLD(#9009013.5)[#9009013.151(.01)]    
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[#9009013.15(.01)]    

Fields, Total: 3

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

  • INPUT TRANSFORM:  S DINUM=X Q
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009013^B
    1)= S ^ADGIC("B",$E(X,1,30),DA)=""
    2)= K ^ADGIC("B",$E(X,1,30),DA)
1 DISCHARGE DATE D;0 DATE Multiple #9009013.01 9009013.01
2 HRCN COMPUTED

  • MUMPS CODE:  S X=$S($D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),"^",2),1:"")
  • ALGORITHM:  S X=$S($D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),"^",2),1:"")
  • LAST EDITED:  APR 01, 1988

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGIC("B" .01(XREF 1S), .01(XREF 1K)
^AUPNPAT - [#9000001] 2+1

Naked Globals

Name Field # of Occurrence
^(0 2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 2+1
>> DA .01(XREF 1S), .01(XREF 1K)
>> DINUM .01+1*
DUZ(2 2+1
>> X .01+1, .01(XREF 1S), .01(XREF 1K), 2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All