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

Package: IHS Changes To ADT

Global: ^ADGDS


Information

FileMan FileNo FileMan Filename Package
9009012 DAY SURGERY IHS Changes To ADT

Description

Directly Accessed By Routines, Total: 40

Package Total Routines
IHS Changes To ADT 34 ADGADSP2    ADGADSP6    ADGBULL1    ADGCP    ADGCRB0    ADGCRB1    ADGCRB2    ADGCRB4
ADGCRB5    ADGDEM    ADGDSA    ADGDSAU    ADGDSEP    ADGDSN    ADGDSQA    ADGDSST
ADGFXDS    ADGPI    ADGPOST    ADGPTLC1    ADGRALP    ADGRALP1    ADGREADM    ADGT04
ADGT041    ADGT044    ADGT53    BDGADD2    BDGADS2    BDGDSA    BDGF2    BDGP1003
^ADGDS    BDGPI    
IHS Changes To Scheduling 2 ASDROUT2    BSDROUT2    
Local Area Programs 1 AZAXDPM1    
Quality Assurance 1 AQALDG50    
Registration 1 DAY SURGERY DATE/TIME    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
IHS Changes To ADT 6 ADGDSA    ADGDSEP    ADGT04    ADGT041    ADGT044    BDGDSA    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Registration 2 WARD LOCATION(#42)[#9009012.01(2)]    FACILITY TREATING SPECIALTY(#45.7)[#9009012.01(4)]    
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[#9009012.01(5)]    

Fields, Total: 4

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

  • INPUT TRANSFORM:  SET DINUM=X
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009012^B
    1)= S ^ADGDS("B",$E(X,1,30),DA)=""
    2)= K ^ADGDS("B",$E(X,1,30),DA)
1 DAY SURGERY DATE/TIME DS;0 DATE Multiple #9009012.01 9009012.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:"")
3 COMMUNITY OF RESIDENCE COMPUTED DATE

  • MUMPS CODE:  X ^DD(9009012,3,9.5) S X=$S('$D(^AUTTCOM(+$P(Y(9009012,3,302),U,3),0)):"",1:$P(^(0),U,1)) S D0=Y(9009012,3,80) S D1=Y(9009012,3,181)
    9.2 = S Y(9009012,3,80)=$S($D(D0):D0,1:""),Y(9009012,3,1)=$S($D(^ADGDS(D0,0)):^(0),1:""),D0=$P(Y(9009012,3,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(9009012,3,180)=$S($D(D0):D0,1:"")
    9.3 = X ^DD(9009012,3,9.2) S Y(9009012,3,181)=$S($D(D1):D1,1:""),Y(9009012,3,101)=X S Y(9009012,3,280)=$S($D(D0):D0,1:""),Y(9009012,3,281)=$S($D(D1):D1,1:"")
    9.4 = X ^DD(9009012,3,9.3) S Y(9009012,3,202)="" X "F D1=0:0 S D1=$O(^AUPNPAT(D0,51,D1)) Q:'D1  S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""") S:Y'?."" "" Y(9009012,3,202)=Y" S D(1)=D1
    9.5 = X ^DD(9009012,3,9.4) S X=Y(9009012,3,202) K DIC S Y=-1,DIC="^AUPNPAT(D0,51,",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y S Y(9009012,3,302)=$S($D(^AUPNPAT(D0,51,D1,0)):^(0),1:"")
  • ALGORITHM:  PATIENT NAME:LAST(PREVIOUS COMMUNITY):PREVIOUS COMMUNITY:COMMUNITY OF RESIDENCE

External References

Name Field # of Occurrence
^DIC 3OF9.5+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ADGDS - [#9009012] 3OF9.2+1
^ADGDS("B" .01(XREF 1S), .01(XREF 1K)
^AUPNPAT - [#9000001] 2+1, 3OF9.2+1, 3OF9.5+1
^AUTTCOM - [#9999999.05] 3+1
^DD(9009012 3+1, 3OF9.3+1, 3OF9.4+1, 3OF9.5+1

Naked Globals

Name Field # of Occurrence
^(0 2+1, 3+1, 3OF9.2+1, 3OF9.5+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D 3OF9.5+1*
>> D(1 3OF9.4+1*
>> D0 2+1, 3+1*, 3OF9.2+1*, 3OF9.3+1, 3OF9.5+1
>> D1 3+1*, 3OF9.3+1, 3OF9.4+1, 3OF9.5+1*
>> DA .01(XREF 1S), .01(XREF 1K)
DIC 3OF9.5+1!*
DIC(0 3OF9.5+1*
>> DINUM .01+1*
DUZ(2 2+1
U 3+1, 3OF9.2+1
>> X .01+1, .01(XREF 1S), .01(XREF 1K), 2+1*, 3+1*, 3OF9.3+1, 3OF9.5+1*
>> Y 3OF9.5+1*
>> Y(9009012 3+1, 3OF9.2+1*, 3OF9.3+1*, 3OF9.4+1*, 3OF9.5+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