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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGMTDEL

Package: Registration

Routine: DGMTDEL


Information

DGMTDEL ;ALB/TET,RMO,CAW,LD,SCG - DELETE MEANS TEST for a Patient ;5/11/92 09:40

Source Information

Source file <DGMTDEL.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 3 ($$DATE,$$PID,DEL,LOOP,VAR)^DGMTDEL1  (AFTER,EN)^DGMTEVT  ($$LST,DIS)^DGMTU  
Kernel 2 HOME^%ZIS  $$FMTE^XLFDT  
VA Fileman 2 (,IX)^DIC  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Registration 5 DG CO-PAY TEST DELETE  DG MEANS TEST DELETE  DGMTCOM  DGMTDEL1  DGMTM  

Entry Points

Name Comments DBIA/ICR reference
VET ;determine if patient is a vet; set dgnvet flag (1=nonvet,0=vet)
EN ;Entry point to delete means test
MTTXT ;informational text displayed to user if type of test = means test
CTTXT ;informational text displayed to user if type of test = copay test
LTCTXT ;informational text displayed to user if type of test = LTC copay test
LKM ;Means test lookup
EXIT
TXT ;informational text displayed to user
LKP ;Patient lookup

External References

Name Field # of Occurrence
HOME^%ZIS LKP+2
$$DATE^DGMTDEL1 LKP+7, LKM+9
$$PID^DGMTDEL1 LKP+7
DEL^DGMTDEL1 LKM+10
LOOP^DGMTDEL1 VET+5
VAR^DGMTDEL1 LKM+8
AFTER^DGMTEVT LKM+14
EN^DGMTEVT LKM+15
$$LST^DGMTU LKM+11
DIS^DGMTU LKP+8
^DIC LKP+2
IX^DIC LKM+2
^DIR VET+5, LKM+10
$$FMTE^XLFDT LKP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ACCESS TO THIS OPTION IS RESTRICTED!!",*7
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,J
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,J
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,J
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,J
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?5,$P(Y(0),U)," has no "_$S(DGMTYPT=1:"means",DGMTYPT=2:"copay",DGMTYPT=4:"LTC copay exemption",1:"")_" tests on file."
  • Line Location: LKP+3
Function Call: WRITE
  • Prompt: !,*7,"Patient died on: ",$$FMTE^XLFDT(DGMDOD,"1D")
  • Line Location: LKP+6
Function Call: WRITE
  • Prompt: @IOF,"Name: ",$P(DGNAM,U),?40,"DOB: ",$$DATE^DGMTDEL1($P(DG0,U,3)),?60,"PT ID: ",$$PID^DGMTDEL1(DFN),!!!
  • Line Location: LKP+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: LKP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LKM+2
Function Call: WRITE
  • Prompt: !,"Enter appropriate corresponding number."
  • Line Location: LKM+2
Function Call: WRITE
  • Prompt: !?5,*7,"This "_$S(DGMTYPT=1:"means",DGMTYPT=2:"copay")_" test is uneditable and cannot be deleted."
  • Line Location: LKM+5
Function Call: WRITE
  • Prompt: !,?5,*7,"This LTC Copay Exemption Test is uneditable and cannot be deleted."
  • Line Location: LKM+7
Function Call: WRITE
  • Prompt: !,$S(DGMTYPT=1:"Means",DGMTYPT=2:"Copay",DGMTYPT=4:"LTC copay exemption",1:"")_" test deleted."
  • Line Location: LKM+10
Routine Call
  • %ZIS
  • Line Location:
    • LKP+2
Routine Call
  • DIC
  • Line Location:
    • LKP+2
Routine Call
  • DIR
  • Line Location:
    • VET+5
    • LKM+10
Routine Call
  • DIC
  • Line Location:
    • LKM+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] 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] LKM+5, LKM+7
^DGMT(408.31 - [#408.31] LKP+3, LKM+5
^DIC(8 - [#8] VET+2
^DPT - [#2] LKP+5, VET+2, VET+3
^XUSEC("DG MTDELETE" EN+1

Label References

Name Line Occurrences
EXIT EN+1, LKP+2, LKP+6
LKM VET+4, LKM+2
LKP LKP+3, VET+5, LKM+3, LKM+4, LKM+6, LKM+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D LKM+2*, EXIT+1!
DA EXIT+1!
DFN LKP+4*, LKP+5, LKP+7, LKP+8, VET+2, VET+3, LKM+2, LKM+11, EXIT!
DG0 LKP+4*, LKP+7, EXIT!
DGCAT LKM+12, LKM+13, EXIT!
DGCT EXIT!
DGFLG LKP+1~, LKM+4, LKM+5*, LKM+6, LKM+7*
DGI EXIT!
DGMDOD LKP+1~, LKP+5*, LKP+6
DGMT LKM+11*, LKM+12, LKM+13, LKM+14, EXIT!
DGMT0 LKM+8*, EXIT!
DGMTA EXIT!, EXIT+1!
DGMTACT LKM+14*, EXIT!
DGMTATYP EXIT!
DGMTD LKM+9, LKM+11, EXIT!
DGMTI LKM+8*, LKM+14*, EXIT!
DGMTINF LKM+15*, EXIT!
DGMTP LKM+14*, EXIT+1!
DGMTSRC EXIT!
DGMTY EXIT!
DGMTYPT EN+4, EN+6, EN+8, LKP+3, VET+5, LKM+4, LKM+5, LKM+6, LKM+10, LKM+11
, EXIT!
DGN EXIT!
DGNAM LKP+4*, LKP+7, EXIT!
DGNVET VET+1*, VET+2*, VET+3*, VET+4, EXIT!
DGP LKM+14, EXIT!
DIC LKP+2*, LKP+3!, LKP+4!, LKM+2*!, LKM+8!, EXIT+1!
DIC("S" LKM+1*
DIC("W" LKM+1*
DIC(0 LKP+2*, LKM+2*
DIE EXIT+1!
DIK EXIT+1!
DIR VET+5!, LKM+10!, EXIT+1!
DIR("A" VET+5*, LKM+9*
DIR("B" VET+5*, LKM+9*
DIR(0 VET+5*, LKM+9*
DIRUT VET+5, LKM+10, EXIT+1!
DTOUT LKP+2, LKM+3, EXIT+1!
DUOUT LKP+2, LKM+3, EXIT+1!
DUZ EN+1
I EN+2*, EN+4*, EN+6*, EN+8*, EXIT+1!
IOF LKP+7
J EN+2*, EN+4*, EN+6*, EN+8*, EXIT+1!
U LKP+3, LKP+4, LKP+5, LKP+7, VET+2, LKM+5, LKM+7, LKM+11, LKM+12, LKM+13
VA EXIT+1!
VADAT EXIT+1!
VADATE EXIT+1!
X LKM+2*, EXIT+1!
Y LKP+2, LKP+3!, LKP+4!, VET+5, LKM+3, LKM+5, LKM+8!, LKM+10, EXIT+1!
Y(0 LKP+3, LKP+4, LKM+5, LKM+7, LKM+8

Marked Items

Name Field # of Occurrence
$T(CTTXT+I EN+6
$T(LTCTXT+I EN+8
$T(MTTXT+I EN+4
$T(TXT+I EN+2
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 |  Local Variables |  Marked Items |  All