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

Package: Automated Medical Information Exchange

Routine: DVBCREQ1


Information

DVBCREQ1 ;ALB/GTS-557/THM-NEW 2507 REQUEST PRINTING ; 5/25/91 11:36 AM

Source Information

Source file <DVBCREQ1.m>

Entry Points

Name Comments DBIA/ICR reference
START
EXIT
HDR
CRTBOT ; ** Write form number at bottom of CRT **
BOT
RMRK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,"Name: ",PNAM,?56,"SSN: ",DVBCSSNO,!?51,"C-Number: ",CNUM,!?56,"DOB: "
  • Line Location: START+3
Function Call: WRITE
  • Prompt: Y,!?2,"Address: ",ADR1,!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: ?11,ADR2,!
  • Condition for execution: ADR2]""
  • Line Location: START+3
Function Call: WRITE
  • Prompt: ?11,ADR3,!!
  • Condition for execution: ADR3]""
  • Line Location: START+3
Function Call: WRITE
  • Prompt: ?2,"City,State,Zip+4: ",?48,"Res Phone: ",HOMPHON,!?5,CITY," ",STATE," ",ZIP,?48,"Bus Phone: ",BUSPHON,!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"Entered active service: "
  • Line Location: START+12
Function Call: WRITE
  • Prompt: Y,?40,"Last rating exam date: ",LREXMDT,!
  • Line Location: START+12
Function Call: WRITE
  • Prompt: Y,?40,"Last rating exam date: ",LREXMDT,!
  • Line Location: START+12
Function Call: WRITE
  • Prompt: Y,?40,"Last rating exam date: ",LREXMDT,!
  • Line Location: START+12
Function Call: WRITE
  • Prompt: "="
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !!!!!
  • Line Location: START+27
Function Call: WRITE
  • Prompt: "Current Rated disabilities:",!!
  • Line Location: START+28
Function Call: WRITE
  • Prompt: "Other Disabilities:",!!?2,OTHDIS,!?2,OTHDIS1,!?2,OTHDIS2,!!,"General remarks:",!!
  • Line Location: START+29
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,"Date: ",DVBCDT(0),?(80-$L(PGHD)\2),PGHD,?71,"Page: ",PG,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?(80-$L(PRTDIV)\2),PRTDIV
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?(80-$L(Z)\2),Z,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?(80-$L(ROHD)\2),ROHD,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?(80-$L(RQ)\2),RQ,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?(80-$L(RQ)\2),RQ,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?20,"** Claim folder review will be required **",!
  • Line Location: CRTBOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CRTBOT+2
Function Call: WRITE
  • Prompt: !,"VA Form 21-2507"
  • Line Location: CRTBOT+3
Function Call: WRITE
  • Prompt: !?20,"** Claim folder review will be required **",!
  • Line Location: BOT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: !,"VA Form 21-2507"
  • Line Location: BOT+3
Function Call: WRITE
  • Prompt: !?2,"Name: ",PNAM,?56,"SSN: ",DVBCSSNO
  • Line Location: RMRK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RMRK+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: RMRK+1
Function Call: WRITE
  • Prompt: !!,"General remarks (continued):",!!
  • Line Location: RMRK+2
Info |  Source |  Entry Points |  Interaction Calls