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

Entry Points

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

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