Routine: EASECDEL

Information

EASECDEL ;ALB/LBD - Delete a LTC Copay Test; 2 JUN 2003

Name	Comments	DBIA/ICR reference
EN	; Entry point to delete a LTC copay test
LKP	; Patient lookup
LKT	; LTC Copay Test lookup
EXIT
DEL(DGMTI,DFN)	; Delete selected LTC Copay Test from Annual Means Test file ; #408.31 and all entries that point to it in the Individual Annual ; Income file #408.21 and the Income Relations file #408.22. ; INPUT - DGMTI IEN of LTC Copay Test to delete from file #408.31 ; DFN IEN of Patient file #2 ; OUTPUT - none
DEL4(LTC4)	; Delete LTC Copay Exemption Test (type 4) associated with ; LTC Copay Test. Update IVM Patient file to send deletion to HEC. ; INPUT - LTC4 IEN of LTC Copay Exemption Test to delete from #408.31
HD	; Writes patient header to the screen
PID(DFN)	; Return PID ; INPUT - DFN ; OUTPUT - PID or 'UNKNOWN'
ID	; Write identifiers for test lookup

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ACCESS TO THIS OPTION IS RESTRICTED!!",*7 Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: LKP+3
Function Call: WRITE	Prompt: !?5,$P(Y(0),U)," has no LTC copay (10-10EC) tests on file." Line Location: LKP+4
Function Call: WRITE	Prompt: ! Line Location: LKT+3
Function Call: WRITE	Prompt: !,?5,"This LTC Copay Test (10-10EC) is uneditable and cannot be deleted." Line Location: LKT+5
Function Call: WRITE	Prompt: !," <OK, nothing deleted!>" Line Location: LKT+10
Function Call: WRITE	Prompt: !," <LTC Copay Test deleted.>" Line Location: LKT+11
Function Call: WRITE	Prompt: @IOF,"Name: ",DGNAM,?40,"DOB: ",$$FMTE^XLFDT(DGDOB),?65,"Pat ID: ",$$PID(DFN),!!! Line Location: HD+1
Function Call: WRITE	Prompt: " LTC Copay Test Date Status: ",$$S^DGMTAUD1($P(^(0),U,3)) Line Location: ID+3
Function Call: WRITE	Prompt: !?36,"Source: ",$$SR^DGMTAUD1(DGN) Line Location: ID+4