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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGMTP4

Package: Registration

Routine: DGMTP4


Information

DGMTP4 ;ALB/RMO,CAW,LD - Print Means Test 10-10F Cont. ;16 APR 1992 2:35 pm

Source Information

Source file <DGMTP4.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 4 $$SR^DGMTAUD1  FT^DGMTP  $$UL^DGMTSCU1  $$MTS^DGMTU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGMTP2  

Entry Points

Name Comments DBIA/ICR reference
Q
NOTE ;Print any special notes
EN ;Entry point to print signature block and special notes
; Set category, status and type of care variables from means test file.
; These are initially set in DGMTP with the call to SET^DGMTSCU2, but
; are calculated by the data available. For this portion of the
; printout they should be set to the means test file entry.
SIG ;Print signature block

External References

Name Field # of Occurrence
$$SR^DGMTAUD1 NOTE+2
FT^DGMTP NOTE+9
$$UL^DGMTSCU1 SIG+1, SIG+2, SIG+3, SIG+4, SIG+9
$$MTS^DGMTU EN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?30,"Completion of this form with signature of veteran is certification",!?30,"that the veteran has received a copy of the privacy act statement."
  • Line Location: SIG+1
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"THE ABOVE INFORMATION IS CORRECT",?63,"| Signature of Veteran or Designee",?109,"| Date",!?1,"TO THE BEST OF MY KNOWLEDGE.",?63,"|",?109,"|"
  • Line Location: SIG+2
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!,?37,"F. TO BE COMPLETED BY DISCRETIONARY VETERANS WHO",!,?41,"ARE REQUIRED TO MAKE COPAYMENTS"
  • Line Location: SIG+3
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"Eligibility Category",?30,"| Veterans in Category C must agree to pay VA a Deductible not to exceed the Medicare"
  • Line Location: SIG+4
Function Call: WRITE
  • Prompt: !?30,"| Deductible plus a per diem for Hospital and Nursing Home care. A per Visit",!
  • Line Location: SIG+5
Function Call: WRITE
  • Prompt: ?30,"| Deductible is required for Category C Veterans to receive Outpatient care."
  • Line Location: SIG+7
Function Call: WRITE
  • Prompt: !?30,"| The Billing Period and Rates are specified in 38 U.S.C."
  • Line Location: SIG+8
Function Call: WRITE
  • Prompt: $$UL^DGMTSCU1(DGUL,DGLNE1),!?1,"I AGREE TO PAY THE VA THE APPLICABLE",?63,"| Signature of Veteran or Designee",?109,"| Date"
  • Line Location: SIG+9
Function Call: WRITE
  • Prompt: !?1,"DEDUCTIBLE FOR MY MEDICAL CARE.",?63,"| ",$S(DGTYC'="D":"NOT APPLICABLE",'$P(DGMT0,"^",11):"HAS NOT AGREED",1:""),?109,"|"
  • Line Location: SIG+10
Function Call: WRITE
  • Prompt: !,DGLNE,!?1,"Special Note(s):"
  • Line Location: NOTE+1
Function Call: WRITE
  • Prompt: ?30,"This means test was administered by the ",$S(X<4:"IVM",1:$$SR^DGMTAUD1(DGMT0,DGMTI)_" Medical")," Center.",!
  • Line Location: NOTE+2
Function Call: WRITE
  • Prompt: ?30,"Patient's means test is Pending Adjudication.",!
  • Line Location: NOTE+3
Function Call: WRITE
  • Prompt: ?30,"Patient's means test is No Longer Required.",!
  • Line Location: NOTE+4
Function Call: WRITE
  • Prompt: ?30,"Patient has declined to provide income information.",!
  • Line Location: NOTE+5
Function Call: WRITE
  • Prompt: ?30,"Previous years thresholds were used to determine the patient's eligibility for care.",!?30,"The means test must be re-applied once the correct thresholds are available.",!
  • Line Location: NOTE+6
Function Call: WRITE
  • Prompt: ?30,"Copay Exemption Test Status is: "_$S($P(DGMT0,U,3)=7:"EXEMPT",$P(DGMT0,U,3)=8:"NON-EXEMPT",$P(DGMT0,U,3)=9:"INCOMPLETE",$P(DGMT0,U,3)=10:"NO LONGER APPLICABLE",$P(DGMT0,U,3)=11:"PENDING ADJUDICATION",1:"")
  • Line Location: NOTE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTE+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(408.32 - [#408.32] EN+6

Label References

Name Line Occurrences
NOTE EN+7
SIG EN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EN+6
DGCAT EN+5~, EN+6*, SIG+6
>> DGINT NOTE+7
>> DGLNE NOTE+1
>> DGLNE1 SIG+1, SIG+2, SIG+3, SIG+4, SIG+9
>> DGMT0 EN+6, SIG+10, NOTE+2, NOTE+5, NOTE+6, NOTE+7, NOTE+8
>> DGMTI NOTE+2
DGMTS EN+5~, EN+6*, NOTE+3, NOTE+4, NOTE+5
>> DGMTYPT SIG+6
>> DGPGE NOTE+9*
DGTYC EN+5~, EN+6*, SIG+10, NOTE+7
>> DGUL SIG+1, SIG+2, SIG+3, SIG+4, SIG+9
U NOTE+8
X EN+5~, NOTE+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All