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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: EASECSC1

Package: Enrollment Application System

Routine: EASECSC1


Information

EASECSC1 ;ALB/PHH,LBD,EG,ERC - LTC Co-Pay Test Screen Military Service ; 05/06/2006 4:17 PM

Source Information

Source file <EASECSC1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 3 $$GETCUR^DGNTAPI  $$FV^DGRPMS  (,WW1)^DGRPV  
Enrollment Application System 2 EN1^EASECSCR  HD^EASECSCU  
Kernel 2 ENDR^%ZISS  $$FMTE^XLFDT  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
DAT
EN ;Entry point
WW ;Write number on screens for display and/or edit (Z=number)
; NOTE: This section was copied from WW^DGRPV and modified specifically
; for LTC. The code calling ^DGRPV has been redirected here.
YN
S
Q
PAUSE(RESP) ; Prompt user for next page or quit
DEN
MR
EASECRP6 ; Display the screen
; Note: This section was copied from ^DGRP6 and modified specifically
; to work with LTC.

External References

Name Field # of Occurrence
ENDR^%ZISS EN+4
$$GETCUR^DGNTAPI EASECRP6+34
$$FV^DGRPMS S+1
^DGRPV EN+2
WW1^DGRPV EASECRP6+5, EASECRP6+11, YN, DAT+2
^DIR PAUSE+3
EN1^EASECSCR EN+8
HD^EASECSCU EASECRP6+4
$$FMTE^XLFDT DAT+1, S+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,$G(IORVON)," * VETERAN MAY BE EXEMPT FROM COPAY IF LTC EPISODE IS DUE TO THIS CONDITION.",$G(IORVOFF)
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: " Discharge"
  • Line Location: EASECRP6+5
Function Call: WRITE
  • Prompt: !?4,"--------------",?27,"---------",?46,"-------",?58,"---------",?70,"---------"
  • Line Location: EASECRP6+6
Function Call: WRITE
  • Prompt: " POW: "
  • Line Location: EASECRP6+8
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+8
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+8
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+8
Function Call: WRITE
  • Prompt: " Combat: "
  • Line Location: EASECRP6+9
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+9
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+9
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+9
Function Call: WRITE
  • Prompt: " Vietnam: "
  • Line Location: EASECRP6+10
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+10
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+10
Function Call: WRITE
  • Prompt: " A/O Exp.: "
  • Line Location: EASECRP6+11
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+11
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+11
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+11
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+11
Function Call: WRITE
  • Prompt: " ION Rad.: "
  • Line Location: EASECRP6+12
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+12
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+12
Function Call: WRITE
  • Prompt: $S(X=2:"HIROSHIMA/NAGASAKI",X=3:"ATMOSPHERIC NUCLEAR TESTING",X=4:"H/N AND ATMOSPHERIC TESTING",X=5:"UNDERGROUND NUCLEAR TESTING",X=6:"EXPOSURE AT NUCLEAR FACILITY",X=7:"OTHER",1:"")
  • Line Location: EASECRP6+13
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: DGX<10
  • Line Location: EASECRP6+15
Function Call: WRITE
  • Prompt: $S(DGX=1:" Lebanon",DGX=4:" Grenada",DGX=7:" Panama",1:" Gulf War"),": "
  • Line Location: EASECRP6+15
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+15
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+15
Function Call: WRITE
  • Prompt: " Somalia: "
  • Line Location: EASECRP6+16
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+16
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+16
Function Call: WRITE
  • Prompt: " SW Asia Cond: "
  • Line Location: EASECRP6+18
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+18
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+18
Function Call: WRITE
  • Prompt: " Mil Disab Retirement: ",$S(X=0:"NO",X=1:"YES",1:"")
  • Line Location: EASECRP6+20
Function Call: WRITE
  • Prompt: " Dischrg Due to Disab: ",$S(X=1:"YES",X=0:"NO",1:"")
  • Line Location: EASECRP6+22
Function Call: WRITE
  • Prompt: " Dent Inj: "
  • Line Location: EASECRP6+23
Function Call: WRITE
  • Prompt: "Teeth Extracted: "
  • Line Location: EASECRP6+23
Function Call: WRITE
  • Prompt: " Yugoslavia: "
  • Line Location: EASECRP6+26
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+26
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+26
Function Call: WRITE
  • Prompt: " Purple Heart: "
  • Line Location: EASECRP6+27
Function Call: WRITE
  • Prompt: ?26,"PH Status: "_$S($P($G(DGRPX),U,2)="1":"Pending",$P($G(DGRPX),U,2)="2":"In Process",$P($G(DGRPX),U,2)="3":"Confirmed",1:"")
  • Line Location: EASECRP6+28
Function Call: WRITE
  • Prompt: ?26,"PH Remarks: "_$S($G(DGX)]"":$G(DGX),1:"")
  • Line Location: EASECRP6+32
Function Call: WRITE
  • Prompt: " N/T Radium: "
  • Line Location: EASECRP6+33
Function Call: WRITE
  • Prompt: $G(DGNT("INTRP"))
  • Line Location: EASECRP6+34
Function Call: WRITE
  • Prompt: "*"
  • Line Location: EASECRP6+34
Function Call: WRITE
  • Prompt: !?3," Trt Date: "
  • Line Location: DEN+0
Function Call: WRITE
  • Prompt: "Cond.: ",$E($P(DGRPX,"^",2),1,45)
  • Line Location: DEN+0
Function Call: WRITE
  • Prompt: !?4,$S($D(^DIC(23,DGRPSB,0)):$E($P(^(0),"^",1),1,15),1:DGRPU)
  • Line Location: S+1
Function Call: WRITE
  • Prompt: ?20,"("_$P(DGRP(.321),U,14)_")"
  • Condition for execution: $$FV^DGRPMS(DGRPSB)=1
  • Line Location: S+1
Function Call: WRITE
  • Prompt: ?27,$S($P(DGRPX,"^",DGRPSV+4)]"":$P(DGRPX,"^",DGRPSV+4),1:DGRPU)
  • Line Location: S+2
Function Call: WRITE
  • Prompt: ?$S(I=2:46,1:58),X
  • Line Location: S+3
Function Call: WRITE
  • Prompt: ?70,$S($D(^DIC(25,+$P(DGRPX,"^",DGRPSV),0)):$E($P(^(0),"^",1),1,9),1:"UNKNOWN")
  • Line Location: S+4
Function Call: WRITE
  • Prompt: !?19,"Receiving Military retirement in lieu of VA Compensation."
  • Line Location: MR+0
Routine Call
  • DIR
  • Line Location:
    • PAUSE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(22 - [#22] EASECRP6+8, EASECRP6+9
^DIC(23 - [#23] S+1
^DIC(25 - [#25] S+4
^DPT - [#2] EASECRP6+4, EASECRP6+24

Label References

Name Line Occurrences
$$PAUSE EN+7
DAT EASECRP6+8, EASECRP6+9, EASECRP6+10, EASECRP6+11, EASECRP6+12, EASECRP6+15, EASECRP6+16, EASECRP6+18, EASECRP6+26, DEN
DEN EASECRP6+24
EASECRP6 EN+3
S EASECRP6+7
WW EASECRP6+5, EASECRP6+8, EASECRP6+9, EASECRP6+10, EASECRP6+11, EASECRP6+12, EASECRP6+15, EASECRP6+16, EASECRP6+18, EASECRP6+19
, EASECRP6+23, EASECRP6+26, EASECRP6+27, EASECRP6+33
YN EASECRP6+8, EASECRP6+9, EASECRP6+10, EASECRP6+11, EASECRP6+12, EASECRP6+15, EASECRP6+16, EASECRP6+18, EASECRP6+23, EASECRP6+26
, EASECRP6+27

Naked Globals

Name Field # of Occurrence
^( EASECRP6+4, EASECRP6+24
^(0 EASECRP6+8, EASECRP6+9, S+1, S+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EASECRP6+4, EASECRP6+24, EASECRP6+34
DGLTC EN+1~, EASECRP6+11*, EASECRP6+12*, EASECRP6+18*, YN!
DGLTCEX EN+1~, EN+5, EASECRP6+34*, YN*
>> DGMTSCI EASECRP6+4*
DGNT EASECRP6+34~
DGNT("INTRP" EASECRP6+34
>> DGRP( EASECRP6+4*, EASECRP6+7, EASECRP6+8, EASECRP6+10, EASECRP6+14, EASECRP6+19, EASECRP6+21, EASECRP6+23, EASECRP6+25, EASECRP6+27
, S+1
DGRPD EASECRP6+23*, EASECRP6+24, Q!
>> DGRPS EASECRP6+4*
DGRPSB S~*, S+1
DGRPSV EASECRP6+7*, Q!, S, S+2, S+3, S+4
>> DGRPU S+1, S+2
>> DGRPW EASECRP6+5*, WW+3
>> DGRPX EASECRP6+7*, EASECRP6+8*, EASECRP6+9, EASECRP6+10*, EASECRP6+11, EASECRP6+13, EASECRP6+14*, EASECRP6+23*, EASECRP6+24*, EASECRP6+25*
, EASECRP6+27*, EASECRP6+28, EASECRP6+29, EASECRP6+30, EASECRP6+34*, YN, DAT, DEN, S, S+2
, S+3, S+4
>> DGX EASECRP6+15*, EASECRP6+16*, EASECRP6+26*, EASECRP6+30*, EASECRP6+31*, EASECRP6+32
DIR PAUSE+1~
DIR(0 PAUSE+2*
DIRUT PAUSE+1~
DTOUT PAUSE+1~
DUOUT PAUSE+1~
>> I EASECRP6+4*, EASECRP6+24*, S+3*
>> I1 EASECRP6+24*
IORVOFF EN+1~, EN+5
IORVON EN+1~, EN+5
RESP PAUSE~, PAUSE+4*, PAUSE+5
U PAUSE+1~, EASECRP6+21, EASECRP6+28, EASECRP6+29, EASECRP6+30, S, S+1
X EN+4*!, EN+6*, EN+7*, PAUSE+1~, EASECRP6+8*, EASECRP6+9*, EASECRP6+10*, EASECRP6+11*, EASECRP6+12*, EASECRP6+13*
, EASECRP6+15*, EASECRP6+16*, EASECRP6+18*, EASECRP6+19*, EASECRP6+20, EASECRP6+21*, EASECRP6+22, EASECRP6+23*, EASECRP6+26*, EASECRP6+27*
, YN, DAT, DEN*, S+3*
>> X1 EASECRP6+10*
Y PAUSE+1~, PAUSE+4
>> Z EASECRP6+5*, EASECRP6+8*, EASECRP6+9*, EASECRP6+10*, EASECRP6+11*, EASECRP6+12*, EASECRP6+15*, EASECRP6+16*, EASECRP6+18*, EASECRP6+19*
, EASECRP6+21*, EASECRP6+23*, EASECRP6+26*, EASECRP6+27*, EASECRP6+33*, YN*, DAT*, DAT+1*
>> Z1 EASECRP6+5*, EASECRP6+8*, EASECRP6+9*, EASECRP6+10*, EASECRP6+11*, EASECRP6+12*, EASECRP6+15*, EASECRP6+16*, EASECRP6+18*, EASECRP6+23*
, EASECRP6+26*, DEN*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All