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

Entry Points

Name Comments DBIA/ICR reference
HDR
UP
BOT
HDA

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
Info |  Source |  Entry Points |  Interaction Calls