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

External References

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

Label References

Local Variables

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Local Variables | All