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

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to delete means test
LKP ;Patient lookup
VET ;determine if patient is a vet; set dgnvet flag (1=nonvet,0=vet)
LKM ;Means test lookup
EXIT
TXT ;informational text displayed to user
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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGMT(408.31 - [#408.31] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call