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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call