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

Package: Beneficiary Travel

Routine: DGBTALTI


Information

DGBTALTI ;PAV - BENEFICIARY/TRAVEL Alternate Income Enter/Edit ; 4/23/2012@1130

Source Information

Source file <DGBTALTI.m>

Entry Points

Name Comments DBIA/ICR reference
ALT ;BT Alternate Income Enter/Edit
PATIENT ; patient lookup, quit if patient doesn't exist
DATE ;Get the date
RD ;Display - Redisplay Alt. Income on File
RD1
SETINC(DFN,OLDDATE,DGBTDTI) ;Set Alt Income
PI(DFN,DGBTDTI,XX) ;Return Patient info in XX
PD ;Display patient information
PAUSE
EXIT ;Exit patient
EXITE ; Exit Menu
KILL ;Kill Local variable.. Dont use NEW, because of return to Patient Prompt

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"Somebody else is Editing this entry",*7
  • Line Location: PATIENT+8
Function Call: WRITE
  • Prompt: !!,"Eligibility is missing from registration and is required to continue.",*7
  • Line Location: PATIENT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+12
Function Call: WRITE
  • Prompt: !,I,": ",$$FMTE^XLFDT($P(XX(5,I),U,3)),?30,"$",$P(XX(5,I),U,2),?40,$S($P(XX(5,I),U,4)="H":"Hardship",1:"POW"),?50,"Ex: ",$$FMTE^XLFDT($P(XX(5,I),U,5))
  • Line Location: PATIENT+17
Function Call: WRITE
  • Prompt: TXT
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !!,"No Edit permited for Alt. Income older as 30 days."
  • Line Location: RD+2
Function Call: WRITE
  • Prompt: !,"Alternate Income Deleted"
  • Line Location: RD+7
Function Call: WRITE
  • Prompt: !!,"Patient Already Qualified for Low Income Condition",*7
  • Line Location: RD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RD+10
Function Call: WRITE
  • Prompt: !,"Continue Processing Alternate Income"
  • Line Location: RD1+0
Function Call: WRITE
  • Prompt: !," Answer with 'Yes' or 'No'",*7
  • Line Location: RD1+2
Function Call: WRITE
  • Prompt: !,"Alternate Income Deleted"
  • Line Location: RD1+3
Function Call: WRITE
  • Prompt: !!,$S($P(XX(3),U,4)="H":"Hardship",1:"POW")_": $",$P(XX(3),U,2)," Begin: ",$$FMTE^XLFDT($P(XX(3),U,3))," Expire: ",$$FMTE^XLFDT($P(XX(3),U,5))," has been Saved "
  • Line Location: RD1+5
Function Call: WRITE
  • Prompt: !,"Begin of Alt. Income: ",$$FMTE^XLFDT(DGBTDTI)
  • Line Location: SETINC+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PD+1
Function Call: WRITE
  • Prompt: !!?8,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),"^",2)
  • Line Location: PD+2
Function Call: WRITE
  • Prompt: !!?5,"Address: ",DGBTADDR(1)
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: !?14,DGBTADDR(2)
  • Condition for execution: DGBTADDR(2)]""
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: !?14,DGBTADDR(3)
  • Condition for execution: DGBTADDR(3)]""
  • Line Location: PD+4
Function Call: WRITE
  • Prompt: !?14,DGBTADDR(4),$S(DGBTADDR(4)]"":", "_$P(DGBTADDR(5),"^",2)_" "_$P(DGBTADDR(6),"^",2),1:"UNSPECIFIED")
  • Line Location: PD+4
Function Call: WRITE
  • Prompt: !!," Eligibility: ",$P(DGBTELG,"^",2)
  • Line Location: PD+8
Function Call: WRITE
  • Prompt: ?45,"SC%: ",$P(DGBTCSC,"^",2)
  • Condition for execution: DGBTCSC
  • Line Location: PD+8
Function Call: WRITE
  • Prompt: ?65,"POW:",$S(XX(4):"YES",1:"NO")
  • Line Location: PD+8
Function Call: WRITE
  • Prompt: ?65,"POW:",$S(XX(4):"YES",1:"NO")
  • Line Location: PD+8
Function Call: WRITE
  • Prompt: ?14,$P(VAEL(1,I),"^",2)," "
  • Line Location: PD+9
Function Call: WRITE
  • Prompt: !!,"Disabilities:"
  • Line Location: PD+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PD+15
Function Call: WRITE
  • Prompt: ?16
  • Line Location: PD+17
Function Call: WRITE
  • Prompt: I2,!
  • Line Location: PD+17
Function Call: WRITE
  • Prompt: !!?2,"Income: ",$P($G(DGBTINC),U),$G(DGBTDTY),?35,"Source of Income: "
  • Line Location: PD+36
Function Call: WRITE
  • Prompt: $S($G(DGBTIFL)="M":"MEANS TEST",$G(DGBTIFL)="C":"COPAY TEST",$G(DGBTIFL)="P":"Alt. Income POW",$G(DGBTIFL)="H":"Alt. Income Hardship",1:"")
  • Line Location: PD+37
Function Call: WRITE
  • Prompt: !,?40," (Expire: ",$$FMTE^XLFDT($P(XX(3),U,5)),")"
  • Line Location: PD+38
Function Call: WRITE
  • Prompt: !?2,"No. of Dependents: ",+DGBTDEP
  • Line Location: PD+39
Function Call: WRITE
  • Prompt: !!,"EXITING Patient"
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !!,"EXITING Alternate Income Menu"
  • Line Location: EXITE+2

FileMan Files Accessed Via FileMan Db Call

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