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 |  FileMan Files Accessed Via FileMan Db Call |  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,JMM - 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: 10

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

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point
PAUSE(RESP) ; Prompt user for next page or quit
EASECRP6 ; Display the screen
; Note: This section was copied from ^DGRP6 and modified specifically
; to work with LTC.
Q
YN
DAT
DEN
S
MR
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.
S1 ;Display MSE data from .3216 multiple EAS*1.0*202

External References

Name Field # of Occurrence
ENDR^%ZISS EN+4
GETMSE^DGMSEUTL EASECRP6+7
$$GETCUR^DGNTAPI EASECRP6+44
$$FV^DGRPMS S+1, S1+4
^DGRPV EN+2
WW1^DGRPV EASECRP6+5, EASECRP6+15, YN, DAT+2
$$GET1^DIQ EASECRP6+22
^DIR PAUSE+3
EN1^EASECSCR EN+8
HD^EASECSCU EASECRP6+4
$$FMTE^XLFDT DAT+1, S+3, S1+6

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+13
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+13
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+13
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+13
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+13
Function Call: WRITE
  • Prompt: " A/O Exp.: "
  • Line Location: EASECRP6+15
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+15
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+15
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+15
Function Call: WRITE
  • Prompt: EASTYPE
  • Line Location: EASECRP6+17
Function Call: WRITE
  • Prompt: " ION Rad.: "
  • Line Location: EASECRP6+19
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+19
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+19
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+21
Function Call: WRITE
  • Prompt: $$GET1^DIQ(2,DFN,.3212,"E")
  • Line Location: EASECRP6+22
Function Call: WRITE
  • Prompt: " "
  • Condition for execution: DGX<10
  • Line Location: EASECRP6+25
Function Call: WRITE
  • Prompt: $S(DGX=1:" Lebanon",DGX=4:" Grenada",DGX=7:" Panama",1:" Gulf War"),": "
  • Line Location: EASECRP6+25
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+25
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+25
Function Call: WRITE
  • Prompt: " Somalia: "
  • 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: " SW Asia Cond: "
  • Line Location: EASECRP6+28
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+28
Function Call: WRITE
  • Prompt: "Reg: "
  • Line Location: EASECRP6+28
Function Call: WRITE
  • Prompt: " Mil Disab Retirement: ",$S(X=0:"NO",X=1:"YES",1:"")
  • Line Location: EASECRP6+30
Function Call: WRITE
  • Prompt: " Dischrg Due to Disab: ",$S(X=1:"YES",X=0:"NO",1:"")
  • Line Location: EASECRP6+32
Function Call: WRITE
  • Prompt: " Dent Inj: "
  • Line Location: EASECRP6+33
Function Call: WRITE
  • Prompt: "Teeth Extracted: "
  • Line Location: EASECRP6+33
Function Call: WRITE
  • Prompt: " Yugoslavia: "
  • Line Location: EASECRP6+36
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+36
Function Call: WRITE
  • Prompt: "From: "
  • Line Location: EASECRP6+36
Function Call: WRITE
  • Prompt: " Purple Heart: "
  • Line Location: EASECRP6+37
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+38
Function Call: WRITE
  • Prompt: ?26,"PH Remarks: "_$S($G(DGX)]"":$G(DGX),1:"")
  • Line Location: EASECRP6+42
Function Call: WRITE
  • Prompt: " N/T Radium: "
  • Line Location: EASECRP6+43
Function Call: WRITE
  • Prompt: $G(DGNT("INTRP"))
  • Line Location: EASECRP6+44
Function Call: WRITE
  • Prompt: "*"
  • Line Location: EASECRP6+44
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
Function Call: WRITE
  • Prompt: !?4,$S($D(^DIC(23,DGRPSB,0)):$E($P(^DIC(23,DGRPSB,0),"^",1),1,15),1:DGRPU)
  • Line Location: S1+4
Function Call: WRITE
  • Prompt: ?20,"("_$P(DGRP(.321),U,14)_")"
  • Condition for execution: $$FV^DGRPMS(DGRPSB)=1
  • Line Location: S1+4
Function Call: WRITE
  • Prompt: ?27,$P(DGMSE(DGMSECNT),"^",5)
  • Line Location: S1+5
Function Call: WRITE
  • Prompt: ?$S(I=1:46,2:58),X
  • Line Location: S1+6
Function Call: WRITE
  • Prompt: ?70,$S($D(^DIC(25,+$P(DGMSE(DGMSECNT),"^",6),0)):$E($P(^DIC(25,$P(DGMSE(DGMSECNT),"^",6),0),"^",1),1,9),1:"UNKNOWN")
  • Line Location: S1+7
Routine Call
  • DIR
  • Line Location:
    • PAUSE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$PAUSE EN+7
DAT EASECRP6+8, EASECRP6+9, EASECRP6+10, EASECRP6+15, EASECRP6+19, EASECRP6+25, EASECRP6+26, EASECRP6+28, EASECRP6+36, DEN
DEN EASECRP6+34
EASECRP6 EN+3
S1 EASECRP6+7
WW EASECRP6+5, EASECRP6+8, EASECRP6+9, EASECRP6+10, EASECRP6+15, EASECRP6+19, EASECRP6+25, EASECRP6+26, EASECRP6+28, EASECRP6+29
, EASECRP6+33, EASECRP6+36, EASECRP6+37, EASECRP6+43
YN EASECRP6+8, EASECRP6+9, EASECRP6+10, EASECRP6+15, EASECRP6+19, EASECRP6+25, EASECRP6+26, EASECRP6+28, EASECRP6+33, EASECRP6+36
, EASECRP6+37

Naked Globals

Name Field # of Occurrence
^( EASECRP6+4, EASECRP6+34
^(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+7, EASECRP6+22, EASECRP6+34, EASECRP6+44
DGLTC EN+1~, EASECRP6+15*, EASECRP6+19*, EASECRP6+28*, YN!
DGLTCEX EN+1~, EN+5, EASECRP6+44*, YN*
DGMSE EASECRP6+7~
DGMSE( S1+2, S1+3, S1+5, S1+6, S1+7
DGMSECNT S1+1~, S1+2*, S1+3, S1+5, S1+6, S1+7
>> DGMTSCI EASECRP6+4*
DGNT EASECRP6+44~
DGNT("INTRP" EASECRP6+44
>> DGRP( EASECRP6+4*, EASECRP6+8, EASECRP6+10, EASECRP6+24, EASECRP6+29, EASECRP6+31, EASECRP6+33, EASECRP6+35, EASECRP6+37, S+1
, S1+4
DGRPD EASECRP6+33*, EASECRP6+34, Q!
>> DGRPS EASECRP6+4*
DGRPSB S~*, S+1, S1+1~, S1+3*, S1+4
DGRPSV Q!, S, S+2, S+3, S+4
>> DGRPU S+1, S+2, S1+4
>> DGRPW EASECRP6+5*, WW+3
>> DGRPX EASECRP6+8*, EASECRP6+9, EASECRP6+10*, EASECRP6+15, EASECRP6+24*, EASECRP6+33*, EASECRP6+34*, EASECRP6+35*, EASECRP6+37*, EASECRP6+38
, EASECRP6+39, EASECRP6+40, EASECRP6+44*, YN, DAT, DEN, S, S+2, S+3, S+4
>> DGX EASECRP6+25*, EASECRP6+26*, EASECRP6+36*, EASECRP6+40*, EASECRP6+41*, EASECRP6+42
DIR PAUSE+1~
DIR(0 PAUSE+2*
DIRUT PAUSE+1~
DTOUT PAUSE+1~
DUOUT PAUSE+1~
EASTYPE EASECRP6+14~, EASECRP6+16*, EASECRP6+17
>> I EASECRP6+4*, EASECRP6+34*, S+3*, S1+6*
>> I1 EASECRP6+34*
IORVOFF EN+1~, EN+5
IORVON EN+1~, EN+5
RESP PAUSE~, PAUSE+4*, PAUSE+5
U PAUSE+1~, EASECRP6+31, EASECRP6+38, EASECRP6+39, EASECRP6+40, S, S+1, S1+4
X EN+4*!, EN+6*, EN+7*, PAUSE+1~, EASECRP6+8*, EASECRP6+9*, EASECRP6+10*, EASECRP6+15*, EASECRP6+19*, EASECRP6+25*
, EASECRP6+26*, EASECRP6+28*, EASECRP6+29*, EASECRP6+30, EASECRP6+31*, EASECRP6+32, EASECRP6+33*, EASECRP6+36*, EASECRP6+37*, YN
, DAT, DEN*, S+3*, S1+6*
>> X1 EASECRP6+10*
Y PAUSE+1~, PAUSE+4
>> Z EASECRP6+5*, EASECRP6+8*, EASECRP6+9*, EASECRP6+10*, EASECRP6+15*, EASECRP6+16, EASECRP6+19*, EASECRP6+25*, EASECRP6+26*, EASECRP6+28*
, EASECRP6+29*, EASECRP6+31*, EASECRP6+33*, EASECRP6+36*, EASECRP6+37*, EASECRP6+43*, YN*, DAT*, DAT+1*
>> Z1 EASECRP6+5*, EASECRP6+8*, EASECRP6+9*, EASECRP6+10*, EASECRP6+15*, EASECRP6+19*, EASECRP6+25*, EASECRP6+26*, EASECRP6+28*, EASECRP6+33*
, EASECRP6+36*, DEN*
Info |  Source |  Call 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