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

Package: Automated Medical Information Exchange

Routine: DVBCRPON


Information

DVBCRPON ;ALB/GTS-557/THM-REPRINT C&P REPORTS ; 7/1/91 1:09 PM

Source Information

Source file <DVBCRPON.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Medical Information Exchange 5 REN^DVBCLABR  SETLAB^DVBCPRNT  (GO,STEP2)^DVBCRPRT  (KILL,VARS)^DVBCUTIL  $$RSTAT^DVBCUTL8  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA FileMan 3 ^%DT  ^DIC  YN^DICN  

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

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA C REPRINT 2507 FINAL RPT  

Entry Points

Name Comments DBIA/ICR reference
SETUP
SETUP1 ;** Drops into if setup is ok
RASK
ONLYLAB ;** Dropped into if the user doesn't exit from RASK and selects to
ADATE ;** Jumped into from RASK or dropped into from ONLYLAB
WHO ;** Dropped into from ADATE
DEVICE ;** Dropped into from WHO
ONEVET ;** Called from WHO when ONE=Y
OV ;** Run as a background task or in real-time
EXIT

External References

Name Field # of Occurrence
^%DT ADATE+1
^%ZIS DEVICE+1
HOME^%ZIS SETUP
^%ZISC OV+2
^%ZTLOAD DEVICE+4
KILL^%ZTLOAD EXIT
^DIC ONEVET+1
YN^DICN ONLYLAB+2
REN^DVBCLABR ONLYLAB+2
SETLAB^DVBCPRNT OV+1
GO^DVBCRPRT DEVICE+5
STEP2^DVBCRPRT OV+1
KILL^DVBCUTIL EXIT
VARS^DVBCUTIL OV+1
$$RSTAT^DVBCUTL8 ONEVET+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Your division code is invalid.",!!
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!!
  • Line Location: SETUP1+1
Function Call: READ
  • Variable: RTYPE
  • Timeout: DTIME
  • Line Location: RASK+0
Function Call: WRITE
  • Prompt: "Date"
  • Condition for execution: RTYPE=""
  • Line Location: RASK+2
Function Call: WRITE
  • Prompt: $S(RTYPE="D"!(RTYPE="d"):"ate",RTYPE="V"!(RTYPE="v"):"eteran",1:"")
  • Line Location: RASK+2
Function Call: WRITE
  • Prompt: !!,"Must be D or V"
  • Line Location: RASK+4
Function Call: WRITE
  • Prompt: !!,"Do you want just the Lab/X-ray results"
  • Line Location: ONLYLAB+2
Function Call: WRITE
  • Prompt: !!,"Enter Y to get just the Lab/X-ray results for the Vet",!,"or N to get the entire exam results AND Lab/X-ray."
  • Line Location: ONLYLAB+3
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: WHO+1
Function Call: WRITE
  • Prompt: $S(ANS="M"!(ANS="m"):"AS",ANS="R"!(ANS="r"):"O",1:"")
  • Line Location: WHO+3
Function Call: WRITE
  • Prompt: !,"Must be R for Regional Office or M for MAS.",!!,*7
  • Line Location: WHO+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ONEVET+1
Function Call: WRITE
  • Prompt: *7," ???"
  • Line Location: ONEVET+2
Function Call: WRITE
  • Prompt: !!,*7,"Those results do not belong to your office.",!!
  • Line Location: ONEVET+4
Function Call: WRITE
  • Prompt: *7,!!,"This request has not been released to the Regional Office yet.",!!
  • Line Location: ONEVET+8
Function Call: WRITE
  • Prompt: *7,!!,"This has never been printed.",!!
  • Line Location: ONEVET+9
Routine Call
  • DIC
  • Line Location:
    • ONEVET+1
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1
Routine Call
  • %ZIS
  • Line Location:
    • SETUP

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SETUP+1
^DVB(396.1 - [#396.1] SETUP1+3
^DVB(396.3 - [#396.3] ONEVET+4, ONEVET+7, ONEVET+9
^XUSEC("DVBA C SUPERVISOR" SETUP+3

Label References

Name Line Occurrences
ADATE RASK+5
EXIT SETUP+2, RASK, ADATE+1, WHO+1, WHO+9, DEVICE+1, DEVICE+4
ONEVET WHO+9, ONEVET+2, ONEVET+4, ONEVET+8
ONLYLAB ONLYLAB+3
OV DEVICE+6
RASK RASK+4
SETUP1 OV+2
WHO WHO+6

Naked Globals

Name Field # of Occurrence
^(0 SETUP1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ONLYLAB+2*, ONLYLAB+3
>> %DT ADATE+1*
>> %DT("A" ADATE+1*
>> %DT(0 ADATE+1*
>> %ZIS DEVICE+1*
>> %ZIS("A" DEVICE+1*
>> %ZIS("B" DEVICE+1*
>> ANS WHO+1*, WHO+2*, WHO+3, WHO+4*, WHO+5*, WHO+6, WHO+7, WHO+8
AUTO WHO+7!, WHO+8*, ONEVET+4, ONEVET+8, OV+2!, EXIT!
>> DA ONEVET+3*, ONEVET+4, ONEVET+7, ONEVET+9, OV+1
>> DA(1 OV+1*
>> DIC ONEVET+1*
>> DIC("W" ONEVET+1*
>> DIC(0 ONEVET+1*
DT SETUP1+2, ADATE+1
DTIME RASK, WHO+1
DUZ SETUP+3
DUZ(2 SETUP+2, SETUP1+3, ONEVET+4, ONEVET+8
DVBAON2 OV+1!
>> DVBCDT(0 SETUP1+3*
>> DVBCSITE SETUP1+3*
>> FF SETUP*
>> HD SETUP*, SETUP1+1
>> I DEVICE+2*, DEVICE+3*
IO OV+1
IO("Q" DEVICE+2, DEVICE+3, DEVICE+4
IOF SETUP, SETUP1+1, DEVICE+1
IOM SETUP1+1
ION DEVICE+2, DEVICE+3
>> LKILL EXIT*
>> LOC SETUP1+3*
>> ONE SETUP1+2*, RASK+5*, WHO+9, DEVICE+2, DEVICE+3, DEVICE+5, DEVICE+6
OUT WHO+9!, ONEVET+1*, ONEVET+9*
>> PG SETUP1+3*
>> PGHD SETUP1+3*
>> POP DEVICE+1
>> PRTDATE ONEVET+9*
>> RO ONEVET+4*, ONEVET+8
RST ONEVET+6~, ONEVET+7*, ONEVET+8
>> RTYPE RASK*, RASK+1*, RASK+2*, RASK+3*, RASK+4, RASK+5, ADATE+1
>> RUNDATE ADATE+1*
>> SUPER SETUP+3*, ONEVET+4, ONEVET+9
U SETUP1+3, RASK, WHO+1, ONEVET+1, ONEVET+4, ONEVET+7, ONEVET+9
ULINE SETUP!, SETUP+1*
>> X ONEVET+1
>> XDD SETUP+1*, SETUP1+2
>> Y SETUP1+2*, SETUP1+3, ADATE+1, ONEVET+2, ONEVET+3
>> ZTDESC DEVICE+2*, DEVICE+3*
>> ZTIO DEVICE+2*, DEVICE+3*
>> ZTQUEUED OV+2, EXIT
>> ZTRTN DEVICE+2*, DEVICE+3*
>> ZTSAVE( DEVICE+2*, DEVICE+3*
>> ZTSK DEVICE+4
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