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  | All
Print Page as PDF
Routine: DVBCRPR1

Package: Automated Medical Information Exchange

Routine: DVBCRPR1


Information

DVBCRPR1 ;ALBANY-ISC/GTS-REPRINT C&P REPORT CONTINUED ;4/28/93

Source Information

Source file <DVBCRPR1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Automated Medical Information Exchange 3 $$INSFTME^DVBCUTA1  SSNOUT^DVBCUTIL  ($$PROCDAY,HDR3)^DVBCUTL2  

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 DVBCRPRT  

Entry Points

Name Comments DBIA/ICR reference
HDR
UP
BOT
HDA

External References

Name Field # of Occurrence
$$INSFTME^DVBCUTA1 HDR+4
SSNOUT^DVBCUTIL HDR+12
$$PROCDAY^DVBCUTL2 HDR+3
HDR3^DVBCUTL2 HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Date: ",DVBCDT(0),?(80-$L(PGHD)\2),PGHD,?71,"Page: ",PG,!?(80-$L(DVBCSITE)\2),DVBCSITE,!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?29,"** REPRINT OF FINAL **",!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?(80-$L(OUTTIME)\2),OUTTIME,!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?(80-$L(EXHD)\2),EXHD,!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!?2,"Name: ",PNAM,?56,"SSN: ",DVBCSSNO,!?51,"C-Number: ",CNUM,!?56,"DOB: "
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: Y,!?2,"Address: ",ADR1,!
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ?11,ADR2,!
  • Condition for execution: ADR2]""
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ?11,ADR3,!!
  • Condition for execution: ADR3]""
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !?2,"City,State,Zip+4: ",?48,"Res Phone: ",HOMPHON,!?5,CITY," ",STATE," ",ZIP,?48,"Bus Phone: ",BUSPHON,!
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,"Entered active service: "
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: Y,?40,"Last rating exam date: ",LREXMDT,!
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: Y,?40,"Last rating exam date: ",LREXMDT,!
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: Y,?40,"Last rating exam date: ",LREXMDT,!
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: UP+0
Function Call: WRITE
  • Prompt: ?7,"This exam has been reviewed and approved by the examining physician"
  • Line Location: BOT+0
Function Call: WRITE
  • Prompt: !?27,"and signed by the veteran"
  • Condition for execution: $D(DVBCAO)
  • Line Location: BOT+0
Function Call: WRITE
  • Prompt: ".",!!,"VA Form 2507",!
  • Line Location: BOT+0
Function Call: WRITE
  • Prompt: ?7,"Adequated by: ___________________________________ Date: _____________",!!
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: "Physician signature: ___________________________________ Date: _____________",!!,"VA Form 2507",!
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDA+1
Function Call: WRITE
  • Prompt: !,"Final C&P Reports for print date "
  • Line Location: HDA+5
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+5
Function Call: WRITE
  • Prompt: !,"Veteran Name",?28,"SSN",?43,"C-Number",?55,"Request date",!
  • Line Location: HDA+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDA+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDA+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HDA+5
^VA(200 - [#200] HDA+5

Label References

Name Line Occurrences
UP BOT, BOT+1

Naked Globals

Name Field # of Occurrence
^(0 HDA+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADR1 HDR+13
>> ADR2 HDR+13
>> ADR3 HDR+13
>> AUTO BOT, BOT+1, BOT+2
>> BUSPHON HDR+15
>> CITY HDR+15
>> CNUM HDR+13
>> DA(1 HDR+3, HDR+4
>> DOB HDR+13
DUZ HDA+5
DUZ(2 HDA+5
>> DVBAON2 HDR+6, HDR+7*, HDA+1, HDA+2*
DVBCAO HDR+11*!, BOT
>> DVBCDT(0 HDR+8
>> DVBCSITE HDR+8
DVBCSSNO HDR+13, HDR+14!
>> DVBGUI HDR+1
>> EOD HDR+16
>> EXHD HDR+10, HDR+11
>> HOMPHON HDR+15
IOF HDR+6, HDA+1
IOSL UP
IOST HDR+6, HDA+1
LNE HDR+10*, HDR+11!, HDR+17*
>> LREXMDT HDR+16
>> OUTTIME HDR+5*, HDR+9
>> PG HDR*, HDR+1, HDR+2, HDR+8
>> PGHD HDR+8
>> PNAM HDR+13
>> PRINT BOT, BOT+1, BOT+2
>> PRIO HDR+16
>> RAD HDR+16
>> RUNDATE HDA+5
>> STATE HDR+15
>> TOTTIME HDR+3*, HDR+4*, HDR+5
U HDA+5
>> XDD HDR+13, HDR+16, HDA+5
>> XIX UP*
>> XPG HDA*
>> XXLN HDA+7*
>> Y HDR+13*, HDR+16*, HDA+5*
>> ZIP HDR+15
>> ZPR HDR+3, HDR+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All