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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DVBHSVER

Package: HINQ

Routine: DVBHSVER


Information

DVBHSVER ;ALB/JLU;This is the print for the verification screen ; 8/23/05 11:04am

Source Information

Source file <DVBHSVER.m>

Entry Points

Name Comments DBIA/ICR reference
SS
BAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?23
  • Line Location: DVBHSVER+11
Function Call: WRITE
  • Prompt: "****** HINQ Upload/edit ******"
  • Line Location: DVBHSVER+11
Function Call: WRITE
  • Prompt: !,?35,DVBON,"<<0>>",DVBOFF
  • Line Location: DVBHSVER+12
Function Call: WRITE
  • Prompt: !,?26,"Verification screen only"
  • Line Location: DVBHSVER+13
Function Call: WRITE
  • Prompt: !!,?9,"Patient file"
  • Line Location: DVBHSVER+14
Function Call: WRITE
  • Prompt: DVBON," VBA ",$S($P(^DVB(395.5,DFN,0),U,5)="Y":"UPDATED",1:"NOT UPDATED"),DVBOFF," "
  • Line Location: DVBHSVER+16
Function Call: WRITE
  • Prompt: ?50,"HINQ Response"
  • Line Location: DVBHSVER+17
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------"
  • Line Location: DVBHSVER+18
Function Call: WRITE
  • Prompt: !,?11,$C(7),$C(7),DVBON,"** VBA indicates Patient is deceased. ",M_" "_$S(+$E(DVBP(6),3,4)>0:$E(DVBP(6),3,4)_", ",1:" ")_$E(DVBP(6),5,8)," **",DVBOFF
  • Line Location: DVBHSVER+20
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $D(M)
  • Line Location: DVBHSVER+23
Function Call: WRITE
  • Prompt: ?8,$C(7),DVBON,"** NO Monetary Benefits - Means Test Required **",DVBOFF
  • Line Location: DVBHSVER+23
Function Call: WRITE
  • Prompt: !,?3,DVBON,"Name: ",DVBOFF,DVBDIQ(2,DFN,.01,"E")
  • Line Location: DVBHSVER+24
Function Call: WRITE
  • Prompt: ?49,$S($D(DVBADR(1)):DVBADR(1),$D(DVBNAME):$E(DVBNAME,1,30),1:"")
  • Line Location: DVBHSVER+24
Function Call: WRITE
  • Prompt: !,?4,DVBON,"Sex: ",DVBOFF,DVBDIQ(2,DFN,.02,"E")
  • Line Location: DVBHSVER+26
Function Call: WRITE
  • Prompt: ?49,$S($P(DVBVET,U,3)="M":"MALE",$P(DVBVET,U,3)="F":"FEMALE",1:"")
  • Line Location: DVBHSVER+27
Function Call: WRITE
  • Prompt: ?49,$S($P(DVBBIR,U,25)="M":"MALE",$P(DVBBIR,U,25)="F":"FEMALE",1:"")
  • Line Location: DVBHSVER+28
Function Call: WRITE
  • Prompt: !,?4,DVBON,"SSN: ",DVBOFF,DVBDIQ(2,DFN,.09,"E")
  • Line Location: DVBHSVER+29
Function Call: WRITE
  • Prompt: ?49,$P(DVBREF,U,1)
  • Line Location: DVBHSVER+34
Function Call: WRITE
  • Prompt: ?60,DVBON,$E(C,2,99),DVBOFF
  • Condition for execution: C]""
  • Line Location: DVBHSVER+34
Function Call: WRITE
  • Prompt: ?49,DVBSSN
  • Line Location: DVBHSVER+35
Function Call: WRITE
  • Prompt: ?60,DVBON,$E(C,2,99),DVBOFF
  • Condition for execution: B
  • Line Location: DVBHSVER+35
Function Call: WRITE
  • Prompt: !,DVBON,"Claim #: ",DVBOFF,DVBDIQ(2,DFN,.313,"E")
  • Line Location: DVBHSVER+36
Function Call: WRITE
  • Prompt: ?49,DVBCN
  • Line Location: DVBHSVER+37
Function Call: WRITE
  • Prompt: !,DVBON,"Address: ",DVBOFF,DVBDIQ(2,DFN,.111,"E")
  • Line Location: DVBHSVER+38
Function Call: WRITE
  • Prompt: ?49,DVBADR(1)
  • Line Location: DVBHSVER+38
Function Call: WRITE
  • Prompt: !,?9,DVBDIQ(2,DFN,.112,"E")
  • Line Location: DVBHSVER+39
Function Call: WRITE
  • Prompt: ?49,DVBADR(2)
  • Line Location: DVBHSVER+39
Function Call: WRITE
  • Prompt: !,?9,DVBDIQ(2,DFN,.113,"E")
  • Line Location: DVBHSVER+40
Function Call: WRITE
  • Prompt: ?49,DVBADR(3)
  • Line Location: DVBHSVER+40
Function Call: WRITE
  • Prompt: !!,?2,DVBON,"Pat. Type: ",DVBOFF,DVBDIQ(2,DFN,391,"E")
  • Line Location: DVBHSVER+41
Function Call: WRITE
  • Prompt: ?45,DVBON,"Elig. Stat.: ",DVBOFF,$E(DVBDIQ(2,DFN,.3611,"E"),1,20)
  • Line Location: DVBHSVER+42
Function Call: WRITE
  • Prompt: !,?3,DVBON,"Vet. Y/N: ",DVBOFF,DVBDIQ(2,DFN,1901,"E")
  • Line Location: DVBHSVER+43
Function Call: WRITE
  • Prompt: ?46,DVBON,"Stat. Date: ",DVBOFF,DVBDIQ(2,DFN,.3612,"E")
  • Line Location: DVBHSVER+44
Function Call: WRITE
  • Prompt: !,?2,DVBON,"Ser. Con.: ",DVBOFF,DVBDIQ(2,DFN,.301,"E")
  • Line Location: DVBHSVER+45
Function Call: WRITE
  • Prompt: ?44,DVBON,"Verif. Meth.: ",DVBOFF,DVBDIQ(2,DFN,.3615,"E")
  • Line Location: DVBHSVER+46
Function Call: WRITE
  • Prompt: !,DVBON,"Ser. Con. %: ",DVBOFF,DVBDIQ(2,DFN,.302,"E")
  • Line Location: DVBHSVER+47
Function Call: WRITE
  • Prompt: ?35,DVBON,"Eff. Date Comb. Eval.:",DVBOFF,DVBDIQ(2,DFN,.3014,"E")
  • Line Location: DVBHSVER+48
Function Call: WRITE
  • Prompt: !,?1,DVBON,"Elig. code: ",DVBOFF,DVBDIQ(2,DFN,.361,"E")
  • Line Location: DVBHSVER+49
Function Call: WRITE
  • Prompt: ?46,DVBON,DVBBLO,"-->",DVBBLF,DVBOFF
  • Line Location: SS+0
Function Call: WRITE
  • Prompt: !,DVBON,DVBBLO," ***",DVBOFF,DVBBLF,$E(T1,1,$L(T1)-1),DVBON,DVBBLO,"***",DVBOFF,DVBBLF
  • Line Location: BAD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call