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 |  Local Variables |  All
Print Page as PDF
Routine: AGHOME

Package: IHS Patient Registration

Routine: AGHOME


Information

AGHOME ; IHS/ASDS/EFG - PRINT DIRECTIONS TO PATIENT'S HOME ;

Source Information

Source file <AGHOME.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
IHS Patient Registration 2 (LINE,PTLK,RTRN)^AG  $$S^AGVDF  
VA Fileman 1 DD^%DT  

Entry Points

Name Comments DBIA/ICR reference
START ;EP - From TaskMan.
END
DEV

External References

Name Field # of Occurrence
DD^%DT START+2
^%ZIS DEV
^%ZISC DEV+1, DEV+3, END
^%ZTLOAD DEV+3
KILL^%ZTLOAD END+1
LINE^AG START+2
PTLK^AG AGHOME+2
RTRN^AG END
$$S^AGVDF START+1, END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: AGHOME+3
Function Call: WRITE
  • Prompt: !!,*7,"This patient has no entry in the ""DIRECTIONS"" file.",!,"Press RETURN..."
  • Line Location: AGHOME+3
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),"Directions to patient's home.",!!,"PATIENT: ",$P(^DPT(DFN,0),U),!,"CHART #: ",$P(^AUPNPAT(DFN,41,DUZ(2),0),U,2)," (",$P(^DIC(4,DUZ(2),0),U),")",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: "DATE: "
  • Line Location: START+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: START+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: START+2
Function Call: WRITE
  • Prompt: ^AUPNPAT(DFN,12,AG,0),!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2
^AUPNPAT - [#9000001] AGHOME+3, START+1, START+3
^DIC(4 - [#4] START+1
^DPT - [#2] DEV+2, START+1

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
START DEV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG DEV+3!, START+3*, END+1!
AG("LINE" START+2*
AGIO AGHOME+4*, DEV+3!, END+1!
>> DFN AGHOME+3, DEV+2, START+1, START+3
DT START+2
DTIME AGHOME+3
DUZ(2 START+1
G DEV+2*, DEV+3!
IO AGHOME+4, START+1
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*
IOST DEV+1
>> POP DEV
U DEV+2, START+1
X END+1!
Y AGHOME+3*, DEV+2, START+2*, END+1!
ZTDESC DEV+2*, DEV+3!
>> ZTQUEUED END+1
ZTRTN DEV+2*, DEV+3!
>> ZTSAVE( DEV+2*
ZTSK DEV+3!
ZTUCI DEV+2*, DEV+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All