Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DVB(396.3 - [#396.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call