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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Automated Medical Information Exchange 4 WR^DVBAUTL4  SSNOUT^DVBCUTIL  (DDIS,TERM,TST)^DVBCUTL3  $$SITE^DVBCUTL4  
VA FileMan 2 ^DIWP  ^DIWW  

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

Entry Points

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

External References

Name Field # of Occurrence
^DIWP START+32
^DIWW START+33
WR^DVBAUTL4 START+15, START+21, START+24
SSNOUT^DVBCUTIL START+2
DDIS^DVBCUTL3 START+28
TERM^DVBCUTL3 CRTBOT+4, BOT+4
TST^DVBCUTL3 START+26
$$SITE^DVBCUTL4 HDR+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+3, START+12, START+19, HDR+4
^DG(40.8 - [#40.8] HDR+1
^DIC(4.2 - [#4.2] HDR+3
^DPT - [#2] START+5
^DVB(396.3 - [#396.3] START+17, START+18, START+19, START+32, HDR+3, CRTBOT+1, BOT
^UTILITY($J START+30!

Label References

Name Line Occurrences
BOT START+32, EXIT
CRTBOT START+11, START+27, START+31
EXIT START+11, START+26, START+27, START+28, START+31
HDR START+1, START+32
RMRK START+32

Naked Globals

Name Field # of Occurrence
^( START+32
^(0 HDR+1, HDR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADR1 START+3
>> ADR2 START+3
>> ADR3 START+3
>> BUSPHON START+4
>> CITY START+4
>> CNUM START+3
>> DA(1 START+17, START+18, START+19, START+32, HDR+3, CRTBOT+1, BOT
>> DFN START+5
>> DIWF START+32*
>> DIWL START+32*
>> DOB START+3
DT START+7, START+8
>> DTRQ HDR+4
DTT START+5, START+6, START+7, START+8, EXIT!
>> DVBAINSF START+18
>> DVBCDT(0 HDR+1
DVBCDX EXIT!
DVBCSC EXIT!
DVBCSSNO START+3, EXIT!, RMRK
>> EOD START+12
GETOUT START+11, START+26, START+27, START+28, START+31, START+32, START+33, EXIT!
>> HOMPHON START+4
IOF HDR
IOSL START+32, CRTBOT+2, BOT+1, BOT+2
IOST START+11, START+27, START+31, HDR, BOT+1, BOT+2, BOT+4
>> LINE START+13*, START+32*
LPCNT EXIT!, CRTBOT+2*, BOT+1*, BOT+2*
>> LREXMDT START+12
>> ONE HDR
>> OTHDIS START+29
>> OTHDIS1 START+29
>> OTHDIS2 START+29
>> PG START*, HDR*, HDR+1
>> PGHD START*, HDR+1
>> PNAM START+3, RMRK
>> PRIO START+14
>> PRTDIV HDR+1*, HDR+2
>> RAD START+12
>> ROHD START*, HDR+4
>> RONAME START
>> RQ HDR+4*
>> STATE START+4
TAD1 START+9, EXIT!
TAD2 START+9, EXIT!
TAD3 START+9, EXIT!
TCITY START+10, EXIT!
TPHONE START+10, EXIT!
TST START+10, EXIT!
TVAR START+16!, START+22!, START+25!
TVAR(1 START+14*, START+20*, START+23*
TZIP START+10, EXIT!
U START+6, START+7, START+8, START+17, START+18, START+19, HDR+1, HDR+3, CRTBOT+1, BOT
>> X START+32*
>> XDIV HDR+1
XLN HDR+4*, HDR+5!, RMRK+1*
Y START+3*, START+12*, START+19*, START+20!, HDR+3*, HDR+4*
>> Z HDR+3*
>> ZIP START+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All