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

Package: Enrollment Application System

Routine: EASECDEL


Information

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

Source Information

Source file <EASECDEL.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 4 EN^DGMTAUD  ($$S,$$SR)^DGMTAUD1  AFTER^DGMTEVT  PID^VADPT6  
VA FileMan 3 (,IX)^DIC  ^DIK  ^DIR  
Income Verification Match 2 DELETE^IVMPLOG  ^IVMPMTE  
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
Enrollment Application System 1 DISPLAY^EASECU23  

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
Enrollment Application System 1 EASEC LTC COPAY TEST DELETE  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS LKP+3
EN^DGMTAUD DEL4+10
$$S^DGMTAUD1 ID+3
$$SR^DGMTAUD1 ID+4
AFTER^DGMTEVT DEL4+9
^DIC LKP+3
IX^DIC LKT+3
^DIK DEL+8, DEL+10, DEL+12, DEL+13, DEL4+8
^DIR LKT+8, LKT+10
DISPLAY^EASECU23 LKT+8
DELETE^IVMPLOG DEL4+7
^IVMPMTE DEL4+11
PID^VADPT6 PID+3
$$FMTE^XLFDT LKT+9, HD+1

Interaction Calls

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
Routine Call
  • %ZIS
  • Line Location:
    • LKP+3
Routine Call
  • DIC
  • Line Location:
    • LKP+3
Routine Call
  • DIC
  • Line Location:
    • LKT+3
Routine Call
  • DIR
  • Line Location:
    • LKT+8
    • LKT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGMT(408.21 - [#408.21] Classic Fileman Calls
^DGMT(408.22 - [#408.22] Classic Fileman Calls
^DGMT(408.31 - [#408.31] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(408.34 - [#408.34] LKT+5
^DGMT(408.21 - [#408.21] DEL+12
^DGMT(408.22 - [#408.22] DEL+10, DEL+13
^DGMT(408.31 - [#408.31] LKP+4, DEL+7, DEL+16, DEL4+5, DEL4+6, ID+2
^XUSEC("DG MTDELETE" EN+1

Label References

Name Line Occurrences
$$PID HD+1
DEL LKT+11
DEL4 DEL+17
EXIT EN+1, LKP+3
HD LKP+6, LKT+8
LKP LKP+4, LKT+4, LKT+5, LKT+10, LKT+12

Naked Globals

Name Field # of Occurrence
^(0 ID+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D LKT+1~, LKT+3*
DA DEL+6~, DEL+8*, DEL+10*, DEL+12*, DEL+13*, DEL4+8*
DFN LKP+5*, LKT+3, LKT+11, DEL~, DEL+10, DEL4+7, HD+1, PID~
DGDOB LKP+1~, LKP+5*, HD+1
DGI ID+1~, ID+2*
DGMTA DEL4+3~
DGMTACT DEL4+3~, DEL4+9*
DGMTDT LKT+1~, LKT+6*, LKT+9, DEL4+3~, DEL4+5*, DEL4+7
DGMTI LKT+1~, LKT+6*, LKT+8, LKT+11, DEL~, DEL+7, DEL+8, DEL+10, DEL+12, DEL4+3~
, DEL4+4*, DEL4+5, DEL4+6, DEL4+8
DGMTINF DEL4+3~, DEL4+10*
DGMTP DEL4+3~, DEL4+6*
DGMTYPT LKP+1~, LKP+2*, LKP+4, LKT+8, DEL4+3~, DEL4+10*
DGN ID+1~, ID+2*, ID+4
DGNAM LKP+1~, LKP+5*, HD+1
DGX DEL+6~, DEL+10*, DEL+11*, DEL+12*, DEL+13
DGY DEL+6~, DEL+9*, DEL+10*, DEL+13*
DIC LKP+1~, LKP+3*, LKT+1~, LKT+3*!
DIC("S" LKT+2*
DIC("W" LKT+2*
DIC(0 LKP+3*, LKT+3*
DIK DEL+6~, DEL+8*!, DEL+9*, DEL+12*, DEL+13*, DEL4+8*
DIR LKT+1~, LKT+8!, LKT+10!
DIR("A" LKT+7*, LKT+9*
DIR("B" LKT+7*, LKT+9*
DIR(0 LKT+7*, LKT+9*
DTOUT LKP+1~, LKP+3, LKT+4
DUOUT LKP+1~, LKP+3, LKT+4
DUZ EN+1
IOF HD+1
LTC4 DEL+6~, DEL+7*, DEL+16, DEL+17, DEL4~, DEL4+4
U LKP+4, LKP+5, LKT+5, LKT+6, DEL+7, DEL4+5, ID+3
VA LKP+1~
VA("PID" PID+4
X LKT+1~, LKT+3*
Y LKP+1~, LKP+3, LKP+4, LKP+5, LKT+1~, LKT+4, LKT+6, LKT+8, LKT+10, ID+2
Y(0 LKP+4, LKP+5, LKT+5, LKT+6
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