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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGMSTR4

Package: Registration

Routine: DGMSTR4


Information

DGMSTR4 ;ALB/SCK - MST History report ; 7/9/01 4:07pm

Source Information

Source file <DGMSTR4.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 4 ($$GETSTAT,$$NAME)^DGMSTAPI  (KVA,PID)^VADPT  PAUSE^VALM1  PATIENT^VAUTOMA  
Kernel 3 HOME^%ZIS  ($$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGMST HISTORY REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point
RPT ; Generate and print report
BUILD(PTARRY,RPARRY) ; Build TMP global of patients to include in report form array
; of patient names passed in (PTARRY)
HEADER() ; Print report header

External References

Name Field # of Occurrence
HOME^%ZIS EN+11
$$GETSTAT^DGMSTAPI BUILD+10
$$NAME^DGMSTAPI RPT+24, RPT+25
$$GET1^DIQ RPT+23
KVA^VADPT RPT+30
PID^VADPT RPT+16
PAUSE^VALM1 HEADER+2
PATIENT^VAUTOMA EN+5
$$FMTE^XLFDT RPT+21, HEADER+11
$$NOW^XLFDT HEADER+11
EN^XUTMDEVQ EN+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,"No data found for report."
  • Line Location: RPT+11
Function Call: WRITE
  • Prompt: !?2,$E($P(MSTNAME,U),1,$L($P(MSTNAME,U)))," ("_VA("PID")_")"
  • Line Location: RPT+17
Function Call: WRITE
  • Prompt: !?2,$$FMTE^XLFDT(-MSTDT)
  • Line Location: RPT+21
Function Call: WRITE
  • Prompt: ?21,$J($P(DGMST,U,2),2)
  • Line Location: RPT+22
Function Call: WRITE
  • Prompt: ?30,$$GET1^DIQ(4,(+$P(DGMST,U,7))_",",99)
  • Line Location: RPT+23
Function Call: WRITE
  • Prompt: ?36,$E($$NAME^DGMSTAPI($P(DGMST,U,4)),1,25)
  • Line Location: RPT+24
Function Call: WRITE
  • Prompt: ?61,$E($$NAME^DGMSTAPI($P(DGMST,U,5)),1,25)
  • Line Location: RPT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,LINE_STR
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,LINE_STR
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !!?2,"Status Date",?21,"Status",?30,"Site",?36,"Provider",?61,"Who entered status",!
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: SDASH,!
  • Line Location: HEADER+17
Routine Call
  • %ZIS
  • Line Location:
    • EN+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMS(29.11 - [#29.11] BUILD+6, BUILD+9
^DPT - [#2] BUILD+12

Label References

Name Line Occurrences
$$HEADER RPT+6, RPT+28
BUILD RPT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN RPT+1~, RPT+15*, BUILD+3~, BUILD+5*, BUILD+6*, BUILD+7, BUILD+9, BUILD+10, BUILD+12
DGMST RPT+20*, RPT+22, RPT+23, RPT+24, RPT+25, BUILD+3~, BUILD+10*, BUILD+11, BUILD+12
DGQUIT RPT+1~, RPT+14, RPT+19, RPT+27, RPT+28*
FRSTPAS RPT+1~, HEADER+2, HEADER+3, HEADER+4*
IOF HEADER+5, HEADER+7
IOM HEADER+9, HEADER+12, HEADER+16
IOSL RPT+27
IOST HEADER+2
LINE HEADER+1~, HEADER+9*, HEADER+10, HEADER+12!*, HEADER+13
MSTDT RPT+18*, RPT+19*, RPT+20, RPT+21, BUILD+3~, BUILD+8*, BUILD+9*, BUILD+10, BUILD+12
MSTIEN BUILD+3~
MSTNAME RPT+1~, RPT+13*, RPT+14*, RPT+15, RPT+17, RPT+19, RPT+20
PTARRY BUILD~, BUILD+7
PTARRY( BUILD+7
RPARRY BUILD~, BUILD+12
RPTREF RPT+1~, RPT+3*, RPT+4, RPT+5, RPT+10, RPT+14, RPT+19, RPT+20, RPT+31
SDASH HEADER+1~, HEADER+16*, HEADER+17
STR HEADER+1~, HEADER+8*, HEADER+9, HEADER+10, HEADER+11*, HEADER+12, HEADER+13
U RPT+15, RPT+17, RPT+22, RPT+23, RPT+24, RPT+25, BUILD+12
VA EN+1~
VA("PID" RPT+17
VAUTN EN+1~, EN+6, RPT+5
VAUTN("" EN+6
VAUTNI EN+1~, EN+4*
Y EN+1~, HEADER+2
ZTSAVE EN+1~, EN+8~, EN+10
ZTSAVE("VAUTN" EN+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All