Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ADGLOC1

Package: IHS Changes To ADT

Routine: ADGLOC1


Information

ADGLOC1 ; IHS/ADC/PDW/ENM - LOCATOR CARD - print ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGLOC1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
IHS Changes To ADT 1 $$HRCN^ADGF  
VA Fileman 1 EN^DIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGLOC0  

Entry Points

Name Comments DBIA/ICR reference
A ; -- patient demographic
TS() ; -- treating specialty
SSN() ; -- social security number
REL() ; -- religion
ADT() ; -- admission date
STM() ; -- state, mailing
STN() ; -- state, nok
TIM() ; -- admission time
DOB() ; -- date of birth
CLS() ; -- classification/beneficiary & classif code
NOKR() ; -- nok relationship
AGE() ; -- age

External References

Name Field # of Occurrence
$$HRCN^ADGF A+4
EN^DIQ1 AGE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!?8,"***Confidential Patient Data***",!
  • Line Location: A+3
Function Call: WRITE
  • Prompt: ?5,$E($P(N0,U),1,25),?29,"Chart #: ",$$HRCN^ADGF
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !!?5,"SSN: ",$$SSN,?29,"Classif: ",$$CLS
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !?5,"Age: ",$$AGE,?23,"Date of Birth: ",$$DOB
  • Line Location: A+6
Function Call: WRITE
  • Prompt: !?5,"Sex: ",$P(N0,U,2),?28,"Religion: ",$$REL
  • Line Location: A+7
Function Call: WRITE
  • Prompt: !!?5,"Patient's Address: ",!
  • Line Location: A+10
Function Call: WRITE
  • Prompt: ?5,$P(N11,U)," ",$P(N11,U,4),", ",$$STM," ",$P(N11,U,6)
  • Line Location: A+11
Function Call: WRITE
  • Prompt: !?5,"Next of Kin:",!?5,$P(N21,U),?37,$$NOKR,!?5,$P(N21,U,3)," "
  • Line Location: A+14
Function Call: WRITE
  • Prompt: $P(N21,U,6),", ",$$STN," ",$P(N21,U,8),!?26,"Phone: ",$P(N21,U,9)
  • Line Location: A+15
Function Call: WRITE
  • Prompt: !!?5,"Admission Date: ",?20,$$ADT," ",$$TIM,!!?5,$P(N0,U)
  • Line Location: A+18
Function Call: WRITE
  • Prompt: ?36,$E(^(.1),1,3)
  • Condition for execution: $D(^DPT(DFN,.1))
  • Line Location: A+19
Function Call: WRITE
  • Prompt: ?41,$$TS,@IOF
  • Line Location: A+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] A+2, NOKR+1
^AUTTBEN - [#9999999.25] CLS+1
^DD("DD" ADT+1, TIM+1
^DGPM - [#405] A+17
^DIC(13 - [#13] REL+1
^DIC(45.7 - [#45.7] TS+1
^DIC(5 - [#5] STM+1, STN+1
^DPT - [#2] A+2, A+9, A+13, A+19, TS+1
^UTILITY("DIQ1" AGE+1!, AGE+2!

Label References

Name Line Occurrences
$$ADT A+18
$$AGE A+6
$$CLS A+5
$$DOB A+6
$$NOKR A+14
$$REL A+7
$$SSN A+5
$$STM A+11
$$STN A+15
$$TIM A+18
$$TS A+19

Naked Globals

Name Field # of Occurrence
^( A+9, A+13, A+19
^(0 CLS+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA AGE+1~*, AGE+2
>> DFN A+2, A+9, A+13, A+19, NOKR+1, TS+1, AGE+1
DIC AGE+1~*
DR AGE+1~*
>> IFN A+17
IO A+3
IOF A+19
N A+1~, A+17*, ADT+1, TIM+1
N0 A+1~, A+2*, A+4, A+7, A+18, DOB+1, SSN+1, REL+1
N11 A+1~, A+2*, A+9*, A+11, CLS+1, STM+1
N21 A+1~, A+13*, A+14, A+15, STN+1
U A+4, A+7, A+11, A+14, A+15, A+18, NOKR+1, DOB+1, TS+1, SSN+1
, CLS+1, REL+1, STM+1, STN+1
X AGE+1~, AGE+2*
Y ADT+1~*, TIM+1~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All