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

Package: Registration

Routine: DGMTP


Information

DGMTP ;ALB/RMO,CAW,EG - Print Means Test 10-10F ; 03/07/2005

Source Information

Source file <DGMTP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to select a means test to print
DT
DEV ;Ask device
START ;Entry point to print a means test
; Input -- DFN Patient IEN
; DGMTDT Date of Test
; DGMTI Annual Means Test IEN
; DGOPT Registration Flag
; DGMTYPT Type of Test 1=MT 2=COPAY
; Output -- Print of 10-10F
  • ICR #1210
    • Status: Active
    • Usage: Private
    Q
    HD ;Print header
    FT ;Print footer

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: EN+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: DT+3
    Function Call: WRITE
    • Prompt: !!,*7,"THIS OUTPUT REQUIRES 132 COLUMN OUTPUT TO THE PRINTER."
    • Line Location: DEV+5
    Function Call: WRITE
    • Prompt: !,"DO NOT SELECT A SLAVE DEVICE FOR QUEUED OUTPUT.",!
    • Line Location: DEV+6
    Function Call: WRITE
    • Prompt: !,"Print request cancelled!"
    • Line Location: DEV+11
    Function Call: WRITE
    • Prompt: !,*7,"CANNOT QUEUE TO HOME DEVICE!",!
    • Line Location: DEV+13
    Function Call: WRITE
    • Prompt: !
    • Line Location: Q+2
    Function Call: WRITE
    • Prompt: @IOF,!,$$NAME^DGMTU1(DGVPRI),?116,$$SSN^DGMTU1(DGVPRI),!,DGLNE
    • Line Location: HD+1
    Function Call: WRITE
    • Prompt: !,DGLNE
    • Line Location: FT+2
    Function Call: WRITE
    • Prompt: !,"Date of Test: ",Y
    • Line Location: FT+2
    Function Call: WRITE
    • Prompt: ?31,"Completion Date/time: ",Y
    • Line Location: FT+3
    Function Call: WRITE
    • Prompt: ?75,"By: ",INI
    • Line Location: FT+9
    Function Call: WRITE
    • Prompt: ?98,"Printed: ",Y
    • Line Location: FT+11
    Function Call: WRITE
    • Prompt: !!!!,"VA FORM 10-10F",?120,"PAGE ",DGPGE
    • Line Location: FT+12

    FileMan Files Accessed Via FileMan Db Call

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