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,RESADDR)^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

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
Beneficiary Travel 1 DGBT ALTERNATE INCOME  

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

External References

Name Field # of Occurrence
^%DT ALT+2
COMMA^%DTC PD+24
$$DAYSTEST^DGBT1 PD+27
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+29
RESADDR^DGBTUTL1 PD+2
$$LST^DGMTCOU1 PD+31
^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+38

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
Routine Call
  • DIC
  • Line Location:
    • PATIENT+4
Routine Call
  • DIE
  • Line Location:
    • SETINC+19
Routine Call
  • DIE
  • Line Location:
    • SETINC+3
    • SETINC+4
Routine Call
  • DIR
  • Line Location:
    • PATIENT+13
    • DATE+2
    • RD+4
    • SETINC+9
    • SETINC+15
    • PAUSE+1

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+14
^DPT - [#2] PD+13

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+15
PD DATE+5, RD+6, RD1+4
PI DATE+4
RD RD+1
RD1 RD1+2

Naked Globals

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

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+27, PD+30*, PD+32*, PD+34, PD+35, 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+13
, PD+27, PD+29, PD+31, EXIT+1, EXITE+1, KILL+3!
DGBTADDR PD+2, KILL+3!
DGBTADDR(1 PD+3
DGBTADDR(2 PD+3
DGBTADDR(3 PD+4
DGBTADDR(4 PD+4
DGBTADDR(5 PD+4
DGBTADDR(6 PD+4
DGBTAI KILL+1!
DGBTAIE KILL+1!
DGBTCSC PD+6*, PD+7*, PD+8, PD+11, KILL+1!
DGBTDEP PI+7*, PI+8, PI+9, PI+10, PD+39, KILL+1!
>> DGBTDT PD+26*, PD+29
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+26, KILL+1!
DGBTDTY DATE+3*, PD+36, KILL+1!
>> DGBTDYFL PD+30*
DGBTELG PD+6*, PD+7, PD+8, KILL+1!
DGBTERR KILL+1!
DGBTHAR KILL+1!
DGBTIFL PD+21*, PD+25, PD+34*, PD+35*, PD+37, KILL+1!
>> DGBTIME ALT+1*
DGBTINC PD+25*, PD+34*, PD+35*, PD+36, KILL+1!
DGBTINCA PD+26*, KILL+2!
DGBTMTS PD+31*, PD+32*, PD+34*, PD+35*, PD+40, KILL+1!
>> DGBTMTTH PI+8*
DGBTR KILL+1!
>> DGBTRXTH PI+9*
DGBTTOUT PATIENT+3*, KILL+1!
DGNOTEST PD+27, KILL+2!
DGQUIT PD+12~, PD+13, PD+15, PD+16, 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+31
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+9*, PD+12~, PD+13*, PD+14, KILL+3!
I1 PD+14*, KILL+3!
I2 PD+14*, PD+17, KILL+3!
I3 PD+11*, PD+14*, KILL+3!
IENC SETINC+4!, KILL+1!
IENC(1 SETINC+3*
IENC(2 SETINC+4*
IOF PD+1, PD+15
IOSL PD+15
IOST PAUSE+1
LOWINC PD+27, KILL+2!
OLDDATE SETINC~, SETINC+2
RXCP PD+34, KILL+2!
RXCPST PD+27, PD+32*, PD+34, PD+40, KILL+2!
RXDAYS PD+27, 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+21, PD+25, PD+31, PD+32, PD+34, PD+36
, PD+38, PD+40
>> VA("PID" PD+2
>> VADM(1 PD+2
>> VADM(3 PD+2
VAEL KILL+1!
VAEL(1 PATIENT+10, PI+19, PI+20, PD+6, PD+9
VAEL(3 PD+6
VAPA KILL+1!
VASV KILL+1!
VASV(4 PI+15
X RD+6*, PD+20~, PD+21*, PD+22, PD+23*, PD+25, PD+31*, KILL+3!
X0 PI+6~, PI+10*, PI+11, PI+20*
X1 PI+6~
X2 PD+20~, PD+24*, KILL+3!
X3 PD+20~, PD+24*
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+19
, PD+21, PD+26, PD+32, PD+38
XX(4 RD+9, SETINC+13, PI+15*, PI+16, PI+19*, PI+20*, PD+8
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