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 |  Marked Items  | All
Print Page as PDF
Routine: DVBCPRNT

Package: Automated Medical Information Exchange

Routine: DVBCPRNT


Information

DVBCPRNT ;ALB/GTS-557/THM-FINAL REPORT DRIVER ; 5/17/91 10:29 AM

Source Information

Source file <DVBCPRNT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Automated Medical Information Exchange 5 ^DVBCLABR  STEP2^DVBCPRN1  (KILL,VARS)^DVBCUTIL  LKILL^DVBCUTL3  (SPM,STM)^DVBCUTL4  
Kernel 2 (,HOME)^%ZIS  (,KILL)^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Automated Medical Information Exchange 5 DVBA C PRINT FINAL RESULTS  DVBAB82  DVBCLABR  DVBCRPON  DVBCRPRT  

Entry Points

Name Comments DBIA/ICR reference
SETUP
DEVICE
GO
GO1
SETLAB
HDA
WARN
BADXRF ; ** Display a message that a bad cross reference exists **

External References

Name Field # of Occurrence
^%ZIS DEVICE
HOME^%ZIS SETUP+1
^%ZTLOAD DEVICE+2
KILL^%ZTLOAD GO+6, GO+14
^DVBCLABR GO+11
STEP2^DVBCPRN1 GO+11
KILL^DVBCUTIL DEVICE, DEVICE+2, GO+6, GO+14
VARS^DVBCUTIL GO+11
LKILL^DVBCUTL3 GO+11
SPM^DVBCUTL4 GO+13
STM^DVBCUTL4 GO

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"You DIVISION NUMBER is incorrect.",!
  • Line Location: DVBCPRNT+3
Function Call: WRITE
  • Prompt: !,*7,"Your DIVISION NUMBER is invalid.",!
  • Line Location: DVBCPRNT+4
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!!
  • Line Location: SETUP+1
Function Call: WRITE
  • Prompt: !!,"Note: All reports will be produced in 'terminal-digit' order.",!!
  • Line Location: SETUP+3
Function Call: WRITE
  • Prompt: !!!!!?25,"Nothing to print",!!
  • Line Location: GO+6
Function Call: WRITE
  • Prompt: !!,"Total requests to be printed: ",XCNT,!
  • Line Location: GO+7
Function Call: WRITE
  • Prompt: $E(PNAM,1,25),?28,$E($P(^(0),U,9),1,3)_" "_$E($P(^(0),U,9),4,5)_" "_$E($P(^(0),U,9),6,9)
  • Line Location: GO1+0
Function Call: WRITE
  • Prompt: ?43,CNUM,?55
  • Line Location: GO1+1
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: GO1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDA+1
Function Call: WRITE
  • Prompt: !,"Final C&P Reports for print date "
  • Line Location: HDA+3
Function Call: WRITE
  • Prompt: Y,!!,"Operator: ",$S($D(^VA(200,+DUZ,0)):$P(^(0),U,1),1:"Unknown operator"),!,"Location: ",$S($D(^DIC(4,+DUZ(2),0)):$P(^(0),U,1),1:"Unknown location"),!
  • Line Location: HDA+3
Function Call: WRITE
  • Prompt: !,"Veteran Name",?28,"SSN",?43,"C-Number",?55,"Request date",!
  • Line Location: HDA+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDA+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDA+6
Function Call: WRITE
  • Prompt: !!,*7,"Too many locations to store! Some locations may not be reported.",!!
  • Line Location: WARN+0
Function Call: WRITE
  • Prompt: !,"A bad 'D' X-Reference exists on the 2507 Request File (#396.3) for"
  • Line Location: BADXRF+1
Function Call: WRITE
  • Prompt: " DA="_DA(1)_"."
  • Line Location: BADXRF+2
Function Call: WRITE
  • Prompt: !,"Please notify IRM at the facility where you have created"
  • Line Location: BADXRF+3
Function Call: WRITE
  • Prompt: " this report.",!!
  • Line Location: BADXRF+4
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE
Routine Call
  • %ZIS
  • Line Location:
    • SETUP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SETUP
^DIC(4 - [#4] HDA+3
^DPT - [#2] GO1, GO1+1, GO1+3
^DVB(396.1 - [#396.1] SETUP+2, SETLAB+1
^DVB(396.3 - [#396.3] GO+3, GO+4, GO+5, GO1, GO1+1
^SC - [#44] SETLAB+1
^TMP($J GO+1!, GO+11, GO1+4*
^VA(200 - [#200] HDA+3

Label References

Name Line Occurrences
BADXRF GO+5
GO1 GO+4
HDA GO+1, GO1+1
SETLAB GO+9

Naked Globals

Name Field # of Occurrence
^( GO1+1
^(0 SETUP+2, GO1, HDA+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE*
>> %ZIS("A" DEVICE*
>> %ZIS("B" DEVICE*
AUTO SETUP!, GO+11
CNUM GO1+1*, GO1+2, GO1+5!
>> DA GO+11*
>> DA(1 GO+3*, GO+4, GO+5, GO+11*, GO1, GO1+1, GO1+4, BADXRF+2
>> DFN GO1*, GO1+1, GO1+3
DT SETUP+2, HDA+3
DUZ HDA+3
DUZ(2 DVBCPRNT+3, DVBCPRNT+4, GO+3, HDA+3
>> DVBAON2 HDA+1, HDA+2*
>> DVBCDT(0 SETUP+2*
DVBCN GO+14!
>> DVBCRALC( SETLAB*, SETLAB+1*
>> DVBCSITE SETUP+2*
EDPRT SETUP!
>> FF SETUP+1*
>> HD SETUP+1*
>> I DEVICE+1*
IO GO+1
IO("Q" DEVICE+1, DEVICE+2
IOF SETUP+1, HDA+1
IOM SETUP+1
ION DEVICE+1
IOSL GO1+1
IOST HDA+1
>> JJ GO+11*
>> LKILL GO+14*
OUT GO+8!, WARN*
>> PGHD SETUP+2*
PNAM GO+10*, GO+11*, GO1*, GO1+4, GO1+5!
>> POP DEVICE
PRINT GO+11!
U SETUP+2, GO1, GO1+1, GO1+3, SETLAB+1, HDA+3
ULINE SETUP!*
XCN GO+10*, GO+11*, GO1+2*, GO1+3*, GO1+4, GO1+5!
XCNT GO+1*, GO+4*, GO+7, GO+8!
>> XDD SETUP*, SETUP+2, GO1+1, HDA+3
XPG GO+6!, GO+8!, HDA*
XPRINT GO+1*, GO+4*, GO+6!, GO+7, GO+8!
>> XRTN GO+12*
XX SETLAB~*, SETLAB+1*
XXLN GO+6!, GO+8!, HDA+5*
>> Y SETUP+2*, GO1+1*, SETLAB*, SETLAB+1*, HDA+3*
>> ZTDESC DEVICE+1*
>> ZTIO DEVICE+1*
>> ZTQUEUED GO+6, GO+14
>> ZTRTN DEVICE+1*
>> ZTSAVE( DEVICE+1*
ZTSK DEVICE+2!

Marked Items

Name Field # of Occurrence
$T( GO+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All