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

Package: Registration

Routine: DGMTE


Information

DGMTE ;ALB/RMO,CAW,LD,SCG,BDB - Edit an Existing Means Test ;03 APR 2002 2:00 pm

Source Information

Source file <DGMTE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to edit an existing means test
DT
Q
PAUSE
VIEWPRT ; Select 1 to view an uneditable means test or 2 to print a 10-10EZ/EZR
VIEWPRTQ ;
EDIT() ; want to edit even though MT is hardship?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Patient died on: ",$$FMTE^XLFDT(DGMDOD,"1D")
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"Please use the Add a New Means Test Option.",!,"User may not edit a Means Test that is more than 1 year old."
  • Line Location: DT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+8
Function Call: WRITE
  • Prompt: !?3,*7,$S(DGMTYPT=1:"Means",1:"Copay")_" test is NO LONGER "_$S(DGMTYPT=1:"REQUIRED",1:"APPLICABLE")_", it cannot be edited."
  • Line Location: DT+19
Function Call: WRITE
  • Prompt: !,DIR("?",I)
  • Line Location: EDIT+13

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