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

Package: Automated Medical Information Exchange

Routine: DVBCADE1


Information

DVBCADE1 ;ALB/GTS-557/THM-PRINT/REPRINT WORKSHEETS ; 5/7/91 11:20 AM

Source Information

Source file <DVBCADE1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
Automated Medical Information Exchange 2 ^DVBCTRNN  (KILL,VARS)^DVBCUTIL  
VA FileMan 2 ^DIC  MIX^DIC1  

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: 2

Package Total Caller Graph
Automated Medical Information Exchange 2 DVBA C PRINT WORKSHEETS  DVBCADE2  

Entry Points

Name Comments DBIA/ICR reference
CK1
EN
QUE
GO
SET
RPRT
EN1
GO2
EXMNM
FMT
COPY
QUES
EXIT

External References

Name Field # of Occurrence
^%ZIS EN
HOME^%ZIS RPRT
^%ZISC GO+2, GO2+3
^%ZTLOAD QUE+1
KILL^%ZTLOAD GO+2, EXIT
^DIC EN1+3, EN1+8
MIX^DIC1 EN1+10
^DVBCTRNN GO2+1
KILL^DVBCUTIL EXIT
VARS^DVBCUTIL GO, GO2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No exams selected ...",!!
  • Line Location: DVBCADE1+3
Function Call: WRITE
  • Prompt: @FF,!!,"Worksheets should be sent to a printer."
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: @FF,!!,HD4,!!!
  • Line Location: SET+0
Function Call: WRITE
  • Prompt: @FF,!,"Print/Reprint C&P Worksheets",!!!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,HD4,!!!
  • Line Location: EN1+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: *7,!!,"No exams selected ..."
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: FMT+0
Function Call: WRITE
  • Prompt: !!?10,EXMNM,!
  • Line Location: FMT+0
Function Call: WRITE
  • Prompt: *7,!!?5,"Status is not OPEN - No worksheet will be printed. "
  • Line Location: FMT+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: @FF,!!,HD4,!!!
  • Line Location: QUES+1
Routine Call
  • %ZIS
  • Line Location:
    • EN
Routine Call
  • %ZIS
  • Line Location:
    • RPRT
Routine Call
  • DIC
  • Line Location:
    • EN1+3
    • EN1+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396.3 - [#396.3] Classic Fileman Calls
^DVB(396.4 - [#396.4] Classic Fileman Calls
^DVB(396.6 - [#396.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DVB(396.3 - [#396.3] GO2+1
^DVB(396.4 - [#396.4] CK1, CK1+16*, EN1+13, EXMNM, FMT+1
^DVB(396.6 - [#396.6] CK1+2, EXMNM+1
^TMP($J DVBCADE1+3, SET*, EN1!, EN1+13*, EN1+14, COPY

Label References

Name Line Occurrences
@( CK1+4
CK1 GO+1, GO2+2
COPY DVBCADE1+4, EN1+15
EN DVBCADE1+4, EN1+15
EN1 EN1+14, EN1+15, GO2+3
EXIT EN1+3, EN1+12, EN1+13, EN1+15, GO2+3
EXMNM SET, FMT
FMT SET, EN1+13
QUES SET, EN1+8
SET EN1+11

Naked Globals

Name Field # of Occurrence
^(0 CK1, CK1+2, CK1+4, EXMNM+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN*!
%ZIS("A" EN*
>> ANS QUES*
CMBN CK1+1!*, CK1+17!
D EN1+7!, EN1+9*, EN1+10!
DA GO*, EN1!, GO2*
DA(1 EN1+3*, GO2, GO2+1
DIC EN1!, EN1+2*, EN1+7!*, EN1+9!*, EN1+10!
DIC("A" EN1+2*, EN1+7*
DIC("S" EN1+7*
DIC(0 EN1+2*, EN1+7*, EN1+9*
DTIME EN1+7, QUES
DVBCEXM CK1+5~*, CK1+7*, CK1+8, CK1+9*, CK1+10, CK1+12*, CK1+13, CK1+15!
DVBCFF CK1+5!, CK1+8*, CK1+9, CK1+10*, CK1+13*, CK1+14, CK1+15!
EXDA CK1, CK1+16, GO+1*, SET*, EN1!, EN1+13*, GO2+2*, EXMNM, FMT+1
EXMNM CK1+1, CK1+5, GO+1*, SET, EN1!, EN1+13, GO2+2*, EXMNM+1*, EXMNM+2, FMT
>> FF EN, SET, RPRT*, EN1+1, QUES+1
FMT SET, EN1+13, FMT+2*, EXIT!
>> HD4 SET, EN1+4*, EN1+5, QUES+1
>> I QUE*, EN1+7*
IO GO, GO2
IO("Q" QUE, QUE+1!
IOF CK1+14, RPRT, FMT
IOST CK1+14
>> JY CK1+2, GO+1*, SET*, EN1+13, GO2+2*, EXMNM*, EXMNM+1
>> JZ GO+1*, GO2+2*
OUT SET, EN1!, EN1+6!, EN1+13, EXMNM!, EXMNM+2*, FMT+1!*, EXIT!
OUT1 EN1+6!, EN1+7*, EN1+12, EN1+13, FMT+1!, EXIT!
>> OWNDOM GO2+1*
PGM CK1+2*, CK1+3, CK1+4*, CK1+17!
>> POP EN, QUE+1*, EN1+15
>> REQDA GO, EN1+3*, EN1+9, EN1+13
RPRT DVBCADE1+3!, CK1, QUE, QUE+1, QUE+2, RPRT*, EXIT!
TEMP COPY!
TEMP("NEW" CK1+1, CK1+7, CK1+9, CK1+12, GO+1, GO2+2, COPY*
TNAM CK1+4*, CK1+17!
U CK1, CK1+1, CK1+2, CK1+4, CK1+16, GO+1, SET, EN1+3, EN1+7, EN1+13
, GO2+1, GO2+2, EXMNM, EXMNM+1, FMT+1, COPY
>> X EN1+3, EN1+7*, EN1+8, EN1+9*, EN1+13, COPY*
Y SET, EN1+3, EN1+7!, EN1+8, EN1+9, EN1+11, COPY*
>> Z COPY*
>> ZC CK1+1, CK1+6, CK1+11, GO+1*, GO2+2*
ZTDESC QUE*, QUE+1!
ZTIO QUE+1!
>> ZTQUEUED GO+2, GO2+3, EXIT
ZTRTN QUE*, QUE+1!
>> ZTSAVE( QUE*
ZTSK QUE+1!, EN1+15!
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 |  Naked Globals |  Local Variables  | All