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

Package: Automated Medical Information Exchange

Routine: DVBCENQ1


Information

DVBCENQ1 ;ALB/GTS,557/THM - 2507 INQUIRY DISPLAY ; 10/14/2009 1:00 PM

Source Information

Source file <DVBCENQ1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Automated Medical Information Exchange 6 ^DVBCEEXM  ^DVBCENQ2  ($$GETCNTRY,$$ISFORGN)^DVBCUTIL  TST^DVBCUTL2  $$SITE^DVBCUTL4  ($$RSTAT,$$RTSTAT)^DVBCUTL8  
VA FileMan 2 ^DIWP  ^DIWW  
Kernel 1 $$FMTE^XLFDT  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBCENQ  

Entry Points

Name Comments DBIA/ICR reference
CON
START
END
DDIS1
DDIS
HDR

External References

Name Field # of Occurrence
^DIWP START+44
^DIWW START+45
^DVBCEEXM START+21
^DVBCENQ2 START+21
$$GETCNTRY^DVBCUTIL START+16
$$ISFORGN^DVBCUTIL START+9
TST^DVBCUTL2 START+24
$$SITE^DVBCUTL4 HDR+1
$$RSTAT^DVBCUTL8 START+29
$$RTSTAT^DVBCUTL8 START+30
$$SITE^VASITE START+23
$$FMTE^XLFDT START+34

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: CON+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: !?2,"Name: ",PNAM,?56,"SSN: ",SSN
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !?51,"C-Number: ",CNUM
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !?56,"DOB: "
  • Line Location: START+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !?4,"Address: ",ADR1
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !
  • Line Location: START+6
Function Call: WRITE
  • Prompt: ?13,ADR2
  • Condition for execution: ADR2]""
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !
  • Line Location: START+7
Function Call: WRITE
  • Prompt: ?13,ADR3
  • Condition for execution: ADR3]""
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!?7,"City: ",CITY
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !?3,"Province: ",PROVINCE,?48,"Res Phone: ",HOMPHON
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,"Postal Code: ",POSTALCD,?48,"Bus Phone: ",BUSPHON
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !?6,"State: ",STATE,?48,"Res Phone: ",HOMPHON
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !?6,"Zip+4: ",ZIP,?48,"Bus Phone: ",BUSPHON
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !?4,"Country: ",$$GETCNTRY^DVBCUTIL(COUNTRY),!
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !
  • Line Location: START+18
Function Call: WRITE
  • Prompt: !,"Entered active service: "
  • Line Location: START+19
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: START+19
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: START+19
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: START+19
Function Call: WRITE
  • Prompt: "="
  • Line Location: START+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !,"This request was initiated on "
  • Line Location: START+22
Function Call: WRITE
  • Prompt: $P(Y,"@",1)," at ",$P(Y,"@",2),!!?17,"Requester: ",REQN,!,"Requesting Regional Office: ",RONAME,!
  • Line Location: START+22
Function Call: WRITE
  • Prompt: "VHA Division Processing Request: "_$P($$SITE^VASITE(,$P(^DVB(396.3,REQDA,1),U,4)),U,2),!
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !?3,"Exams on this request: "
  • Line Location: START+24
Function Call: WRITE
  • Prompt: !
  • Line Location: START+24
Function Call: WRITE
  • Prompt: !?3,"(No exams have yet been entered)",!
  • Line Location: START+25
Function Call: WRITE
  • Prompt: !,"** Status of request: "
  • Line Location: START+26
Function Call: WRITE
  • Prompt: STAT
  • Line Location: START+31
Function Call: WRITE
  • Prompt: !!?9,"Released on "
  • Line Location: START+32
Function Call: WRITE
  • Prompt: Y," by "
  • Line Location: START+32
Function Call: WRITE
  • Prompt: Y," by "
  • Line Location: START+32
Function Call: WRITE
  • Prompt: "Printed by the RO on "
  • Line Location: START+33
Function Call: WRITE
  • Prompt: Y," by "
  • Line Location: START+33
Function Call: WRITE
  • Prompt: Y," by "
  • Line Location: START+33
Function Call: WRITE
  • Prompt: STAT
  • Line Location: START+34
Function Call: WRITE
  • Prompt: " (Cancelled on "
  • Line Location: START+34
Function Call: WRITE
  • Prompt: " (Cancelled on "
  • Line Location: START+34
Function Call: WRITE
  • Prompt: !,"Exam(s) transferred to another site -- see pending report.",!
  • Line Location: START+35
Function Call: WRITE
  • Prompt: !,"This request was faxed to the regional office.",!
  • Line Location: START+36
Function Call: WRITE
  • Prompt: !!,"*** Exams done on a FEE BASIS *** ",!
  • Line Location: START+37
Function Call: WRITE
  • Prompt: !
  • Line Location: START+38
Function Call: WRITE
  • Prompt: "-"
  • Line Location: START+38
Function Call: WRITE
  • Prompt: !
  • Line Location: START+39
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+40
Function Call: WRITE
  • Prompt: !!,"Other Disabilities:",!!?2,OTHDIS,!
  • Line Location: START+41
Function Call: WRITE
  • Prompt: ?2,OTHDIS1,!?2,OTHDIS2
  • Line Location: START+41
Function Call: WRITE
  • Prompt: !!,"General Remarks:",!!
  • Line Location: START+42
Function Call: WRITE
  • Prompt: !!,"General Remarks, continued",!!!
  • Line Location: START+44
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: END+0
Function Call: WRITE
  • Prompt: ?2,DX,?37,$J(PCT,3,0)," %",?50,$S(SC=1:"Yes",1:"No"),?58,DXCOD,!
  • Line Location: DDIS1+0
Function Call: WRITE
  • Prompt: !?25,"No rated disabilities on file",!!
  • Line Location: DDIS+1
Function Call: WRITE
  • Prompt: !?2,"Rated Disability",?37,"Percent",?50,"SC ?",?58,"Dx Code",!
  • Line Location: DDIS+2
Function Call: WRITE
  • Prompt: ?2
  • Line Location: DDIS+2
Function Call: WRITE
  • Prompt: ?2
  • Line Location: DDIS+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DDIS+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: DDIS+5
Function Call: WRITE
  • Prompt: !,"Date: ",FDT(0),?(80-$L(PGHD)\2),PGHD,?71,"Page: ",PG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L($$SITE^DVBCUTL4)\2),$$SITE^DVBCUTL4
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L($$SITE^DVBCUTL4)\2),$$SITE^DVBCUTL4
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+4, START+19, START+22, START+32, START+33
^DIC(31 - [#31] DDIS+4
^DPT - [#2] DDIS+1, DDIS+4
^DVB(396.3 - [#396.3] START+21, START+23, START+27, START+32, START+33, START+34, START+36, START+37, START+41, START+44
^DVB(396.4 - [#396.4] START+24, START+25
^UTILITY($J START+43!
^VA(200 - [#200] START+32, START+33

Label References

Name Line Occurrences
CON START+21, START+39, START+44, DDIS1+1, DDIS
DDIS START+39
DDIS1 DDIS+4
HDR CON, CON+1, START+1, START+40
START DVBCENQ1+4

Naked Globals

Name Field # of Occurrence
^( START+44, DDIS+4
^(0 START+32, START+33, DDIS+4
^(1 START+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADR1 START+5
>> ADR2 START+6
>> ADR3 START+7
ANS CON*, END!*
>> BUSPHON START+11, START+14
>> CANDT START+34*
>> CITY START+8
>> CNUM START+3, HDR+1
>> COUNTRY START+9, START+15, START+16
>> DFN DDIS+1, DDIS+4
>> DIWF START+44*
>> DIWL START+44*
>> DIWR START+44*
>> DOB START+4
DTIME CON, END
>> DX DDIS1, DDIS+4*
>> DXCOD DDIS1, DDIS+4*
>> DXNUM DDIS+4*
>> EOD START+19
>> FDT(0 HDR+1
FEXAM START+37*!
>> HOMPHON START+10, START+13
IOF CON+1, START+40, HDR
IOST CON, CON+1, START+40, START+44, END, HDR
>> JII DDIS+4*
>> LINE START+20*, START+38*, START+44*, DDIS+2*
>> OTHDIS START+41
>> OTHDIS1 START+41
>> OTHDIS2 START+41
OUT CON!*, START+21, START+39, END*, DDIS
>> PCT DDIS1, DDIS+4*
>> PG START*, HDR*, HDR+1
>> PGHD START*, HDR+1
>> PNAM START+2, HDR+1
>> POSTALCD START+11
>> PRBY START+33*
>> PROVINCE START+10
>> RAD START+19
>> RELBY START+32*
>> REQDA START+21, START+23, START+24, START+25, START+27, START+32, START+33, START+34, START+36, START+37
, START+41, START+44
>> REQDT START+21*, START+22
>> REQN START+22
>> RONAME START+22
>> RST START+27*, START+29, START+30
>> SC DDIS1, DDIS+4*
>> SSN START+2, HDR+1
>> STAT START+30*, START+31, START+34*
>> STATE START+13
U CON, START+21, START+23, START+27, START+32, START+33, START+34, START+36, START+37, END
, DDIS+4
>> X START+44*
>> XLINE HDR+2*
>> XSTAT START+29*, START+32, START+33, START+34
>> Y START+4*, START+19*, START+22*, START+32*, START+33*
>> ZIP START+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All