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

Package: Registration

Routine: DGMTDEL1


Information

DGMTDEL1 ;ALB/CAW,LBD,PHH - Delete MT for a Patient (con't) ;12/6/94

Source Information

Source file <DGMTDEL1.m>

Entry Points

Name Comments DBIA/ICR reference
ID ;write identifiers
DEL ;delete
VAR ;set variables
LOOP ;loop through all means test for patient and delete
DATE(X) ;function to return date in external format
PID(X) ;function to return pid
DELLNK ;Deletion of Linked tests

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?21,$S(DGMTYPT=1:"MEANS",DGMTYPT=2:"COPAY",DGMTYPT=4:"LTC Copay Exemption",1:"")_" TEST DATE"
  • Line Location: ID+2
Function Call: WRITE
  • Prompt: ?40,"SOURCE: ",$S($L(DGMTSRC)>10:$E(DGMTSRC,1,10),1:DGMTSRC),?60,"PRIMARY TEST: ",$S($G(^DGMT(408.31,DGI,"PRIM"))=1:"YES",1:"NO")
  • Line Location: ID+5

FileMan Files Accessed Via FileMan Db Call

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