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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGLKIN

Package: IHS Patient Registration

Routine: AGLKIN


Information

AGLKIN ; IHS/ASDS/EFG - LOOK-UP AND EDIT INACTIVE OR DECEASED PATIENTS ;

Source Information

Source file <AGLKIN.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Patient Registration 4 (PTLK,READ,YN)^AG  ^AGDICLK  ^AGED1  $$S^AGVDF  
VA Fileman 1 EN^DIQ1  

Entry Points

Name Comments DBIA/ICR reference
A
C
B
END
D
E

External References

Name Field # of Occurrence
PTLK^AG A+1
READ^AG D
YN^AG D
^AGDICLK C, C+1
^AGED1 E
$$S^AGVDF A
EN^DIQ1 B

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"Review and edit DECEASED or INACTIVE patient files.....",!!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!!,"DATE OF DEATH: "
  • Line Location: B+0
Function Call: WRITE
  • Prompt: ^(DR)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !!,"INACTIVE DATE: "
  • Line Location: C+0
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !!,"RECORD DISPOSITION: "
  • Line Location: C+1
Function Call: WRITE
  • Prompt: AG("LKPRINT")
  • Condition for execution: $D(AG("LKPRINT"))
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !!,"Do you wish to edit this patient's file? (Y/N) NO// "
  • Line Location: D+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("DIQ1" B!

Label References

Name Line Occurrences
A D, E
D D
E D
END D

Naked Globals

Name Field # of Occurrence
^( B

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AG("DRENT1" C*, C+1*
>> AG("LKPRINT" C, C+1
>> AG("NOUPDATE" C!*, E!
>> AUPNLK("INAC" A+1*!
>> DA B*, C*
>> DFN A+2, B, C
>> DFOUT D
>> DIC B*, C*
>> DIC("S" A+1*
>> DLOUT D
>> DR B*, C*, C+1*
>> DTOUT D
>> DUOUT D
DUZ(2 C, C+1
>> Y D
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All