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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGMTOPYT

Package: Registration

Routine: DGMTOPYT


Information

DGMTOPYT ;ALB/CAW - Means Test with Previous Year Threshold ;8/14/92

Source Information

Source file <DGMTOPYT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 2 ($$FDATE,$$FTIME,$$RANGE,CLOSE)^DGMTUTL  PID^VADPT  
VA FileMan 2 NOW^%DTC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG MEANS TEST PREV THRESHOLD  DGMTM  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ENQ ;
QUE() ; -- que job
; return: did job que [ 1|yes 0|no ]
MAIN ;
HDR ; Header
PRNT ;Print patients
CHK ;Check to pause on screen
PAUSE ;

External References

Name Field # of Occurrence
NOW^%DTC HDR+2
^%ZIS EN+2
^%ZISC ENQ+1
^%ZTLOAD QUE+6
$$FDATE^DGMTUTL HDR+2, PRNT+3
$$FTIME^DGMTUTL HDR+2
$$RANGE^DGMTUTL EN+1
CLOSE^DGMTUTL MAIN+9
^DIR PAUSE+1
PID^VADPT MAIN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)["C-"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?(IOM-$L(DGC(I))/2),DGC(I)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?68,"Page ",DGPAGE,!,DGLINE,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?5,"Patient Name",?50," Patient ID ",?65,"Date of Test"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?5,"------------",?50,"------------",?65,"------------",!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"NO MEANS TEST WITH PREVIOUS YEARS THRESHOLD"
  • Line Location: PRNT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] MAIN+3, MAIN+4, MAIN+5
^DPT - [#2] MAIN+7, PRNT+3
^TMP("DGMTO" ENQ+2!, MAIN+7*, PRNT+1, PRNT+2

Label References

Name Line Occurrences
$$QUE EN+4
CHK PRNT+4
ENQ EN+1, EN+2, EN+3
HDR MAIN+2, CHK+1, CHK+2
MAIN EN+3
PAUSE CHK+1
PRNT MAIN+8

Naked Globals

Name Field # of Occurrence
^( PRNT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HDR+2
>> %ZIS EN+2*
DFN ENQ+2!, MAIN+6*
DGBEG ENQ+2!, MAIN+1, HDR+2
DGC ENQ+2!
DGC( HDR+3
DGC(1 HDR+1*
DGC(2 HDR+2*
DGC(3 HDR+2*
DGDATE ENQ+2!, MAIN+1*, MAIN+3*
DGDFN ENQ+2!, MAIN+5*, MAIN+6, MAIN+7
DGEND ENQ+2!, MAIN+3, HDR+2
DGIEN ENQ+2!, MAIN+1*, MAIN+3*, MAIN+4, MAIN+5
DGLINE ENQ+2!, MAIN+1*, HDR+4
DGP ENQ+2!, CHK+1*
DGPAGE ENQ+2!, MAIN+1*, HDR+4*
DGPAT ENQ+2!, PRNT+2*, PRNT+3
DGPT ENQ+2!, MAIN+1*, PRNT+2*
DGSTOP ENQ+2!, MAIN+1*, MAIN+3, PRNT+2, CHK+1*
DGTST ENQ+2!, MAIN+5*, MAIN+7
DIR PAUSE+1!
DIR(0 PAUSE+1*
>> I HDR+3*
IO PRNT+1
IO("Q" EN+3, QUE+3!
IOF HDR+3
IOM MAIN+1, HDR+3
IOSL CHK+1, CHK+2
IOST HDR+3, CHK+1, CHK+2
>> POP EN+2
U MAIN+5, MAIN+7, PRNT+3
VA ENQ+2!
VA("PID" MAIN+7
VAERR ENQ+2!
>> X QUE+5*
>> Y EN+4*, CHK+1
>> ZTDESC QUE+4*
>> ZTQUEUED ENQ+1
>> ZTRTN QUE+4*
>> ZTSAVE( QUE+5*
ZTSK QUE+3!, QUE+6, QUE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All