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

Package: Automated Medical Information Exchange

Routine: DVBCPRN1


Information

DVBCPRN1 ;ALB/GTS-557/THM-C&P FINAL REPORT PRINT ; 9/3/91 8:05 AM

Source Information

Source file <DVBCPRN1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIE  ^DIWP  ^DIWW  
Automated Medical Information Exchange 3 $$INSFTME^DVBCUTA1  (KILL,SSNOUT,VARS)^DVBCUTIL  ($$PROCDAY,HDR2)^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: 2

Package Total Caller Graph
Automated Medical Information Exchange 2 DVBCEDIT  DVBCPRNT  

Entry Points

Name Comments DBIA/ICR reference
PHYS
STEP2A
STEP2
STEP3
STEP3A
HDR
ZTSK
UP
NEXT
BOT

External References

Name Field # of Occurrence
^%DT STEP2+2, ZTSK+2
^DIE STEP2+2
^DIWP STEP3+1
^DIWW STEP3+2
$$INSFTME^DVBCUTA1 HDR+2
KILL^DVBCUTIL ZTSK+5
SSNOUT^DVBCUTIL HDR+8
VARS^DVBCUTIL ZTSK+4
$$PROCDAY^DVBCUTL2 HDR+1
HDR2^DVBCUTL2 HDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Examining provider: ",PHYS,!,"Examined on: "
  • Line Location: STEP2A+1
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: STEP2A+1
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: STEP2A+1
Function Call: WRITE
  • Prompt: !!?2,"Examination results:",!!
  • Line Location: STEP2A+2
Function Call: WRITE
  • Prompt: !!!!!?25,"This exam was CANCELLED by ",$S(EXSTAT="RX":"the RO.",1:"MAS."),!!
  • Line Location: STEP2A+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Date: ",DVBCDT(0),?(80-$L(PGHD)\2),PGHD,?71,"Page: ",PG,!?(80-$L(DVBCSITE)\2),DVBCSITE,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?35,"** FINAL **",!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?(80-$L(OUTTIME)\2),OUTTIME,!?(80-$L(EXHD)\2),EXHD,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?(80-$L(OUTTIME)\2),OUTTIME,!?(80-$L(EXHD)\2),EXHD,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!?2,"Name: ",PNAM,?56,"SSN: ",DVBCSSNO,!?51,"C-Number: ",CNUM,!?56,"DOB: "
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: Y,!?2,"Address: ",ADR1,!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?11,ADR2,!
  • Condition for execution: ADR2]""
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?11,ADR3,!!
  • Condition for execution: ADR3]""
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?2,"City,State,Zip+4: ",?48,"Res Phone: ",HOMPHON,!?5,CITY," ",STATE," ",ZIP,?48,"Bus Phone: ",BUSPHON,!
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"Entered active service: "
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: Y,?40,"Last rating exam date: ",LREXMDT,!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: Y,?40,"Last rating exam date: ",LREXMDT,!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: Y,?40,"Last rating exam date: ",LREXMDT,!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !
  • Line Location: UP+0
Function Call: WRITE
  • Prompt: !,"Continued on next page",!,"VA Form 2507"
  • Line Location: NEXT+0
Function Call: WRITE
  • Prompt: ?7,"This exam has been reviewed and approved by the examining provider"
  • 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," Approved by: ___________________________________ Date: _____________",!!
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: "Provider signature: ___________________________________ Date: _____________",!!,"VA Form 2507",!
  • Line Location: BOT+2
Routine Call
  • DIE
  • Line Location:
    • STEP2+2

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" ZTSK+3
^DVB(396.1 - [#396.1] ZTSK+3
^DVB(396.3 - [#396.3] STEP2
^DVB(396.4 - [#396.4] PHYS, STEP2A+1, STEP2A+2, STEP2, STEP3+1, STEP3A
^DVB(396.6 - [#396.6] STEP2A
^UTILITY($J STEP3!

Label References

Name Line Occurrences
BOT STEP2, ZTSK+4
HDR STEP2A+1, STEP3A
NEXT STEP3A
PHYS STEP2
STEP2 ZTSK+4
STEP2A STEP2
STEP3 STEP2A+3
STEP3A STEP3+1
UP STEP3A, BOT, BOT+1

Naked Globals

Name Field # of Occurrence
^(0 PHYS, STEP2A, ZTSK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT STEP2+2*
>> ADR1 HDR+9
>> ADR2 HDR+9
>> ADR3 HDR+9
>> AUTO STEP2A, STEP2, STEP2+2, ZTSK*, BOT, BOT+1, BOT+2
>> BUSPHON HDR+11
>> CITY HDR+11
>> CNUM HDR+9
>> CTIM STEP2+2*
>> DA PHYS, STEP2A+1, STEP2A+2, STEP2*, STEP2+2*, STEP3, STEP3+2*
>> DA(1 STEP2, STEP2+2, STEP3, STEP3+2*, HDR+1, HDR+2
>> DIC STEP2+2*
>> DIE STEP2+2*
>> DIWF STEP3*
>> DIWL STEP3*
>> DIWR STEP3*
>> DOB HDR+9
>> DR STEP2+2*
DT ZTSK+2*, ZTSK+3
DUZ(2 STEP2
DVBCAO HDR+7*!, BOT
>> DVBCDT(0 HDR+5, ZTSK+3*
>> DVBCSITE HDR+5, ZTSK+3*
DVBCSSNO HDR+9, HDR+10!
>> EDPRT ZTSK+5
>> EOD HDR+12
>> EXHD STEP2A+1*, HDR+6, HDR+7
EXMNM STEP2A*, STEP2A+1, ZTSK+4!
>> EXSTAT STEP2A+2*
>> HOMPHON HDR+11
IOF HDR+4
IOSL STEP3A, UP
>> JI STEP2A, STEP2*
>> LINE STEP2A+1*, STEP3+1*, STEP3A
LNE HDR+6*, HDR+7!, HDR+13*
>> LREXMDT HDR+12
NCN STEP2A+2!
>> OLDA STEP3*, STEP3+1, STEP3+2, STEP3A
>> OLDA1 STEP3*, STEP3+2
>> OUTTIME HDR+3*, HDR+6
>> PG STEP2*, HDR*, HDR+5, ZTSK*
>> PGHD HDR+5, ZTSK+3*
>> PHYS PHYS*, STEP2A+1
>> PNAM HDR+9
PRINT STEP2!, STEP3+2*, BOT, BOT+1, BOT+2
>> PRIO HDR+12
>> RAD HDR+12
>> RO STEP2*
>> STATE HDR+11
>> TOTTIME HDR+1*, HDR+2*, HDR+3
U PHYS, STEP2A, STEP2A+1, STEP2A+2, STEP2, ZTSK+3
ULINE ZTSK!, ZTSK+4*
>> X STEP2+2*, STEP3+1*, ZTSK+2*
>> XDD STEP2A+1, HDR+9, HDR+12, ZTSK+3*
>> XEXMNM STEP2A, ZTSK+4*
>> XIX UP*
>> Y STEP2A+1*, STEP2+2, HDR+9*, HDR+12*, ZTSK+2, ZTSK+3*
>> ZIP HDR+11
>> ZPR HDR+1, HDR+2
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