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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
VA FileMan 7 ^%DT  COMMA^%DTC  ^DIC  YN^DICN  (FILE,UPDATE)^DIE  ^DIK  ^DIR  
Beneficiary Travel 5 $$DAYSTEST^DGBT1  (KVAR,QUIT1)^DGBTEND  $$MTTH^DGBTMTTH  ($$LI,GA)^DGBTUTL  $$MTCHK^DGBTUTL1  
Registration 4 $$LST^DGMTCOU1  (6,PID,SVC)^VADPT  PID^VADPT6  $$DEP^VAFMON  
Integrated Billing 1 $$THRES^IBARXEU1  
Kernel 1 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Beneficiary Travel 1 DGBT ALTERNATE INCOME  

Entry Points

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

External References

Name Field # of Occurrence
^%DT ALT+2
COMMA^%DTC PD+23
$$DAYSTEST^DGBT1 PD+26
KVAR^DGBTEND PATIENT+9
QUIT1^DGBTEND PATIENT+1
$$MTTH^DGBTMTTH PI+8
$$LI^DGBTUTL PI+10
GA^DGBTUTL PATIENT+11, RD+6, RD1+4, PI+13
$$MTCHK^DGBTUTL1 PD+28
$$LST^DGMTCOU1 PD+30
^DIC PATIENT+4
YN^DICN RD1
FILE^DIE SETINC+19
UPDATE^DIE SETINC+3, SETINC+4
^DIK RD+7, RD1+3, SETINC+2
^DIR PATIENT+13, DATE+2, RD+4, SETINC+9, SETINC+15, PAUSE+1
$$THRES^IBARXEU1 PI+9
6^VADPT PATIENT+9
PID^VADPT PATIENT+9
SVC^VADPT PI+14
PID^VADPT6 PD+2
$$DEP^VAFMON PI+7
$$FMADD^XLFDT DATE+1
$$FMDIFF^XLFDT RD+2
$$FMTE^XLFDT PATIENT+17, PATIENT+18, DATE+1, DATE+3, RD+1, RD+6, RD1+5, SETINC+5, PD+37

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: ",VAPA(1)
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: !?14,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: !?14,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: !?14,VAPA(4),$S(VAPA(4)]"":", "_$P(VAPA(5),"^",2)_" "_$P(VAPA(11),U,2),1:"UNSPECIFIED")
  • Line Location: PD+3
Function Call: WRITE
  • Prompt: !!," Eligibility: ",$P(DGBTELG,"^",2)
  • Line Location: PD+7
Function Call: WRITE
  • Prompt: ?45,"SC%: ",$P(DGBTCSC,"^",2)
  • Condition for execution: DGBTCSC
  • Line Location: PD+7
Function Call: WRITE
  • Prompt: ?65,"POW:",$S(XX(4):"YES",1:"NO")
  • Line Location: PD+7
Function Call: WRITE
  • Prompt: ?65,"POW:",$S(XX(4):"YES",1:"NO")
  • Line Location: PD+7
Function Call: WRITE
  • Prompt: ?14,$P(VAEL(1,I),"^",2)," "
  • Line Location: PD+8
Function Call: WRITE
  • Prompt: !!,"Disabilities:"
  • Line Location: PD+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PD+14
Function Call: WRITE
  • Prompt: ?16
  • Line Location: PD+16
Function Call: WRITE
  • Prompt: I2,!
  • Line Location: PD+16
Function Call: WRITE
  • Prompt: !!?2,"Income: ",$P($G(DGBTINC),U),$G(DGBTDTY),?35,"Source of Income: "
  • Line Location: PD+35
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+36
Function Call: WRITE
  • Prompt: !,?40," (Expire: ",$$FMTE^XLFDT($P(XX(3),U,5)),")"
  • Line Location: PD+37
Function Call: WRITE
  • Prompt: !?2,"No. of Dependents: ",+DGBTDEP
  • Line Location: PD+38
Function Call: WRITE
  • Prompt: !!,"EXITING Patient"
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !!,"EXITING Alternate Income Menu"
  • Line Location: EXITE+2
Routine Call
  • DIE
  • Line Location:
    • SETINC+3
    • SETINC+4
Routine Call
  • DIE
  • Line Location:
    • SETINC+19
Routine Call
  • DIR
  • Line Location:
    • PATIENT+13
    • DATE+2
    • RD+4
    • SETINC+9
    • SETINC+15
    • PAUSE+1
Routine Call
  • DIC
  • Line Location:
    • PATIENT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGBT(392.9 - [#392.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGBT(392.9 - [#392.9] PATIENT+7, SETINC+3, EXIT+1, EXITE+1
^DIC(31 - [#31] PD+13
^DPT - [#2] PD+12

Label References

Name Line Occurrences
$$SETINC RD+6, RD1+3
ALT EXIT+2
EXIT PATIENT+8, PATIENT+10, PATIENT+12, DATE+2, RD+1, RD+8, RD1+1, RD1+3, RD1+6
EXITE PATIENT+4
KILL ALT+1, EXIT+2, EXITE+2
PAUSE PD+14
PD DATE+5, RD+6, RD1+4
PI DATE+4
RD RD+1
RD1 RD1+2

Naked Globals

Name Field # of Occurrence
^( PD+13
^(0 PD+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RD1*, RD1+1, RD1+2
%DT ALT+2*, KILL+3!
DA RD+7*, RD1+3*, SETINC+1~, SETINC+2*, KILL+3!
DA(1 RD+7*, RD1+3*, SETINC+2*
DAYFLG PD+26, PD+29*, PD+31*, PD+33, PD+34, KILL+2!
DDD KILL+2!
DFN PATIENT+6*, PATIENT+7, PATIENT+11, DATE+4, RD+6, RD+7, RD1+3, RD1+4, SETINC~, SETINC+2
, SETINC+3, SETINC+4, SETINC+11, SETINC+17, SETINC+18, PI~, PI+7, PI+10, PI+13, PD+12
, PD+26, PD+28, PD+30, EXIT+1, EXITE+1, KILL+3!
DGBTAI KILL+1!
DGBTAIE KILL+1!
DGBTCSC PD+5*, PD+6*, PD+7, PD+10, KILL+1!
DGBTDEP PI+7*, PI+8, PI+9, PI+10, PD+38, KILL+1!
>> DGBTDT PD+25*, PD+28
DGBTDTI PATIENT+2*, DATE+3*, DATE+4, RD+6, RD1+3, RD1+4, SETINC~, SETINC+4, SETINC+5, SETINC+11
, SETINC+17, SETINC+18, PI~, PI+7, PI+8, PI+9, PI+10, PI+13, PD+25, KILL+1!
DGBTDTY DATE+3*, PD+35, KILL+1!
>> DGBTDYFL PD+29*
DGBTELG PD+5*, PD+6, PD+7, KILL+1!
DGBTERR KILL+1!
DGBTHAR KILL+1!
DGBTIFL PD+20*, PD+24, PD+33*, PD+34*, PD+36, KILL+1!
>> DGBTIME ALT+1*
DGBTINC PD+24*, PD+33*, PD+34*, PD+35, KILL+1!
DGBTINCA PD+25*, KILL+2!
DGBTMTS PD+30*, PD+31*, PD+33*, PD+34*, PD+39, KILL+1!
>> DGBTMTTH PI+8*
DGBTR KILL+1!
>> DGBTRXTH PI+9*
DGBTTOUT PATIENT+3*, KILL+1!
DGNOTEST PD+26, KILL+2!
DGQUIT PD+11~, PD+12, PD+14, PD+15, PAUSE+1*
DIC PATIENT+3*, PATIENT+4!, KILL+3!
DIC("A" PATIENT+3*
DIC(0 PATIENT+3*
DIE SETINC+1~, KILL+3!
>> DIK RD+7*, RD1+3*, SETINC+2*
DIR DATE+1!, RD+4!, SETINC+6!, SETINC+12!, PAUSE+1~, KILL+3!
DIR("A" PATIENT+13*, DATE+1*, RD+4*, SETINC+6*, SETINC+8*, SETINC+12*
DIR("B" PATIENT+13*, DATE+1*, RD+4*, SETINC+7*, SETINC+13*, SETINC+14*
DIR(0 PATIENT+13*, DATE+1*, RD+4*, SETINC+6*, SETINC+7*, SETINC+8*, SETINC+13*, SETINC+14*, PAUSE+1*
DR SETINC+1~, KILL+3!
DT ALT+2*, PATIENT+2, PATIENT+11, DATE+1, RD+2, PD+30
DTIME ALT+1*
>> DTOUT DATE+2, SETINC+10, SETINC+16
>> DUOUT PATIENT+14, DATE+2
EXIT PATIENT+12, PATIENT+14*, RD+1, RD+2*, RD+3*, RD+5*, RD+7*, KILL+3!
EXP KILL+3!
FDA SETINC+1~, PI+6~, KILL+3!
FDA( SETINC+3*, SETINC+4*, SETINC+11*, SETINC+17*, SETINC+18*
I PATIENT+16*, PATIENT+17*, PD+8*, PD+11~, PD+12*, PD+13, KILL+3!
I1 PD+13*, KILL+3!
I2 PD+13*, PD+16, KILL+3!
I3 PD+10*, PD+13*, KILL+3!
IENC SETINC+4!, KILL+1!
IENC(1 SETINC+3*
IENC(2 SETINC+4*
IOF PD+1, PD+14
IOSL PD+14
IOST PAUSE+1
LOWINC PD+26, KILL+2!
OLDDATE SETINC~, SETINC+2
RXCP PD+33, KILL+2!
RXCPST PD+26, PD+31*, PD+33, PD+39, KILL+2!
RXDAYS PD+26, KILL+2!
>> S ALT+2*
TXT DATE+5*, RD+1*, RD+3*, RD+6*, KILL+1!
U ALT+1*, PATIENT+14, PATIENT+17, PATIENT+18, DATE+2, RD+1, RD+2, RD+5, RD+6, RD+7
, RD1+5, SETINC+7, SETINC+10, SETINC+16, PD+3, PD+20, PD+24, PD+30, PD+31, PD+33
, PD+35, PD+37, PD+39
>> VA("PID" PD+2
>> VADM(1 PD+2
>> VADM(3 PD+2
VAEL KILL+1!
VAEL(1 PATIENT+10, PI+19, PI+20, PD+5, PD+8
VAEL(3 PD+5
VAPA KILL+1!
VAPA(1 PD+3
VAPA(11 PD+3
VAPA(2 PD+3
VAPA(3 PD+3
VAPA(4 PD+3
VAPA(5 PD+3
VASV KILL+1!
VASV(4 PI+15
X RD+6*, PD+19~, PD+20*, PD+21, PD+22*, PD+24, PD+30*, KILL+3!
X0 PI+6~, PI+10*, PI+11, PI+20*
X1 PI+6~
X2 PD+19~, PD+23*, KILL+3!
X3 PD+19~, PD+23*
XX DATE+4!, PI~, PI+6!, KILL+3!
XX(1 RD+8, PI+11*
XX(3 PATIENT+12, PATIENT+18, DATE+4*, RD+1, RD+2, RD+6, RD+7, RD1+5, SETINC+7, PD+18
, PD+20, PD+25, PD+31, PD+37
XX(4 RD+9, SETINC+13, PI+15*, PI+16, PI+19*, PI+20*, PD+7
XX(5 PATIENT+12, PATIENT+17
XXX KILL+3!
XXX(3 DATE+4*
Y ALT+2, PATIENT+4, PATIENT+6, PATIENT+14, PATIENT+15, DATE+2, DATE+3, RD+5, RD+6, RD+7
, SETINC+1~, SETINC+10, SETINC+11, SETINC+16, SETINC+17, SETINC+18, PAUSE+1, KILL+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All