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

Package: IHS Changes To ADT

Global: ^ADGAUTH


Information

FileMan FileNo FileMan Filename Package
9009013.1 SCHEDULED VISIT-OLD IHS Changes To ADT

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
IHS Changes To ADT 10 ADGCP    ADGDEM    ADGPI    ADGSV    ADGT02    ADGT021    ADGT022    ADGT51
BDGPOST2    ^ADGAUTH    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
IHS Changes To ADT 4 ADGSV    ADGT02    ADGT021    ADGT022    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Registration 2 WARD LOCATION(#42)[#9009013.13(6)]    FACILITY TREATING SPECIALTY(#45.7)[#9009013.13(2)]    
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[#9009013.13(1)]    
Scheduling 1 HOSPITAL LOCATION(#44)[#9009013.13(2.5)]    

Fields, Total: 6

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

  • INPUT TRANSFORM:  SET DINUM=X
  • LAST EDITED:  MAR 18, 1988
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009013.1^B
    1)= S ^ADGAUTH("B",$E(X,1,30),DA)=""
    2)= K ^ADGAUTH("B",$E(X,1,30),DA)
1 DOB COMPUTED DATE

  • MUMPS CODE:  X ^DD(9009013.1,1,9.2) X $P(^DD(9000001,1102.2,0),U,5,99) S Y(9009013.1,1,101)=X S X=Y(9009013.1,1,101) S D0=Y(9009013.1,1,80)
    9.2 = S Y(9009013.1,1,80)=$S($D(D0):D0,1:""),Y(9009013.1,1,1)=$S($D(^ADGAUTH(D0,0)):^(0),1:""),D0=$P(Y(9009013.1,1,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  NAME:DOB
1.5 AGE COMPUTED

  • MUMPS CODE:  X ^DD(9009013.1,1.5,9.2) X $P(^DD(9000001,1102.98,0),U,5,99) S Y(9009013.1,1.5,101)=X S X=Y(9009013.1,1.5,101) S D0=Y(9009013.1,1.5,80)
    9.2 = S Y(9009013.1,1.5,80)=$S($D(D0):D0,1:""),Y(9009013.1,1.5,1)=$S($D(^ADGAUTH(D0,0)):^(0),1:""),D0=$P(Y(9009013.1,1.5,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  NAME:PRINTABLE AGE
2 HRCN COMPUTED

  • MUMPS CODE:  S X=$S($D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),"^",2),1:"")
    9.2 = S Y(9009013.1,2,80)=$S($D(D0):D0,1:""),Y(9009013.1,2,1)=$S($D(^ADGAUTH(D0,0)):^(0),1:""),D0=$P(Y(9009013.1,2,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
    9.3 = X ^DD(9009013.1,2,9.2) S Y(9009013.1,2,180)=$S($D(D0):D0,1:""),Y(9009013.1,2,181)=$S($D(D1):D1,1:"") S X="ANCH MED CTR"
    9.4 = X ^DD(9009013.1,2,9.3) K DIC S Y=-1,DIC="^AUPNPAT(D0,41,",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y S Y(9009013.1,2,202)=$S($D(^AUPNPAT(D0,41,D1,0)):^(0),1:"")
  • ALGORITHM:  S X=$S($D(^AUPNPAT(D0,41,DUZ(2),0)):$P(^(0),"^",2),1:"")
  • LAST EDITED:  APR 01, 1988
3 DATE EXPECTED IN 1;0 DATE Multiple #9009013.13 9009013.13
4 COMMUNITY COMPUTED

  • MUMPS CODE:  X ^DD(9009013.1,4,9.2) S Y(9009013.1,4,101)=$S($D(^AUPNPAT(D0,11)):^(11),1:"") S X=$P(Y(9009013.1,4,101),U,18) S D0=Y(9009013.1,4,80)
    9.2 = S Y(9009013.1,4,80)=$S($D(D0):D0,1:""),Y(9009013.1,4,1)=$S($D(^ADGAUTH(D0,0)):^(0),1:""),D0=$P(Y(9009013.1,4,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  NAME:CURRENT COMMUNITY

External References

Name Field # of Occurrence
^DIC 2OF9.4+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGAUTH - [#9009013.1] 1OF9.2+1, 1.5OF9.2+1, 2OF9.2+1, 4OF9.2+1
^ADGAUTH("B" .01(XREF 1S), .01(XREF 1K)
^AUPNPAT - [#9000001] 1OF9.2+1, 1.5OF9.2+1, 2+1, 2OF9.2+1, 2OF9.4+1, 4+1, 4OF9.2+1
^DD(9000001 1+1, 1.5+1
^DD(9009013.1 1+1, 1.5+1, 2OF9.3+1, 2OF9.4+1, 4+1

Naked Globals

Name Field # of Occurrence
^(0 1OF9.2+1, 1.5OF9.2+1, 2+1, 2OF9.2+1, 2OF9.4+1, 4OF9.2+1
^(11 4+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D 2OF9.4+1*
>> D0 1+1*, 1OF9.2+1*, 1.5+1*, 1.5OF9.2+1*, 2+1, 2OF9.2+1*, 2OF9.3+1, 2OF9.4+1, 4+1*, 4OF9.2+1*
>> D1 2OF9.3+1, 2OF9.4+1*
>> DA .01(XREF 1S), .01(XREF 1K)
DIC 2OF9.4+1!*
DIC(0 2OF9.4+1*
>> DINUM .01+1*
DUZ(2 2+1
U 1+1, 1OF9.2+1, 1.5+1, 1.5OF9.2+1, 2OF9.2+1, 4+1, 4OF9.2+1
>> X .01+1, .01(XREF 1S), .01(XREF 1K), 1+1*, 1.5+1*, 2+1*, 2OF9.3+1*, 4+1*
>> Y 2OF9.4+1*
>> Y( 1+1*, 1OF9.2+1*, 1.5+1*, 1.5OF9.2+1*, 2OF9.2+1*, 2OF9.3+1*, 2OF9.4+1*, 4+1*, 4OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All