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

Package: Registration

Routine: DGNTR1


Information

DGNTR1 ;ALB/RPM - N/T RADIUM PENDING VERIFICATION REPORT ; 10/4/01 11:05am

Source Information

Source file <DGNTR1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Registration 4 $$GETREC^DGNTAPI  $$ASKSTAT^DGNTQ  ^VADPT  ($$NAME,$$SITE)^VASITE  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGNT PENDING VERIFICATION LIST  

Entry Points

Name Comments DBIA/ICR reference
BLDTMP(DGIEN,DGSORT,DGST) ;^TMP("DGNT",$J global builder
; Build TMP file based on sort selection
EN ;Entry point
HEAD(DGDT) ;Print/Display page header
QEN ;Start point for TaskMan queuing
START ;
LOOP(DGSORT) ;Locate all entries that are pending verification
PRINT(DGSORT) ;
DEVICE() ;Allow user selection of output device
; Input: none
EXIT ;
MAN ;Start point for manual report allows sort order and device selection

External References

Name Field # of Occurrence
^%ZIS DEVICE+10
HOME^%ZIS DEVICE+19, EXIT+5
^%ZISC EXIT+5
^%ZTLOAD DEVICE+17
$$S^%ZTLOAD HEAD+7
$$GETREC^DGNTAPI BLDTMP+17
$$ASKSTAT^DGNTQ MAN+2
^DIR PRINT+37, HEAD+8
^VADPT BLDTMP+21
$$NAME^VASITE PRINT+11
$$SITE^VASITE PRINT+9
$$FMTE^XLFDT PRINT+16, PRINT+28
$$NOW^XLFDT PRINT+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request "_ZTSK_" Queued!",1:"Request Cancelled!"),!
  • Line Location: DEVICE+18
Function Call: WRITE
  • Prompt: !!!?20,"**** No records to report. ****"
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,$P(DGLINE,U),?30,$P(DGLINE,U,2),?43,$P(DGLINE,U,3),?47,$P(DGLINE,U,4),?51,$P(DGLINE,U,5),?54,$$FMTE^XLFDT($P(DGLINE,U,6))
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !!?5,"Total Patients Pending "_$S(DGST=2:"Documentation",1:"Diagnosis")_" Verification: "_+$G(^TMP("DGNT",$J,"TOT"_DGST))
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !!?5,"Total Patients Pending Verification: "_$G(^TMP("DGNT",$J,"TOT"))
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,DGDT,?15,"N/T RADIUM TREATMENT PENDING VERIFICATION REPORT",?70,"Page: ",$G(DGPAGE)
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"STATION: "_$G(DGSTN)
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !!,"Patient Name",?30,"SSN",?42,"NT",?46,"Avi",?50,"Sub",?54,"Date/Time Entered"
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,"-----------------------",?30,"-----------",?42,"---",?46,"---",?50,"---",?54,"----------------------"
  • Line Location: HEAD+15
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+19
    • EXIT+5
Routine Call
  • DIR
  • Line Location:
    • PRINT+37
    • HEAD+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGNT(28.11 LOOP+7
^TMP("DGNT" LOOP+4!, BLDTMP+28*, BLDTMP+29*, BLDTMP+30*, PRINT+18, PRINT+22, PRINT+24, PRINT+27, PRINT+30, PRINT+36
, EXIT+2!

Label References

Name Line Occurrences
$$DEVICE MAN+4
BLDTMP LOOP+8
EXIT START+3
HEAD PRINT+17, PRINT+25, PRINT+31
LOOP START+1
MAN EN+1
PRINT START+2
START QEN+1, MAN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+7~, DEVICE+9*, EXIT+4!
DFN BLDTMP+8~, BLDTMP+18*, BLDTMP+19
DGAVI BLDTMP+9~, BLDTMP+25*, BLDTMP+28
DGDATE BLDTMP+9~, BLDTMP+27*, BLDTMP+28
DGDDT PRINT+7~, PRINT+16*, PRINT+17, PRINT+25, PRINT+31
DGDT HEAD~, HEAD+12
DGFIRST PRINT+4~
DGHNC BLDTMP+9~
DGIEN LOOP+2~, LOOP+5*, LOOP+7*, LOOP+8, BLDTMP~, BLDTMP+12, BLDTMP+17, BLDTMP+28, PRINT+3~, PRINT+23*
, PRINT+24*, PRINT+27
DGLINE PRINT+4~, PRINT+27*, PRINT+28
DGNAME BLDTMP+9~, BLDTMP+22*, BLDTMP+28
DGNT BLDTMP+8~
DGNT("AVI" BLDTMP+25
DGNT("DFN" BLDTMP+18
DGNT("EDT" BLDTMP+27
DGNT("NTR" BLDTMP+24
DGNT("PRIM" BLDTMP+20
DGNT("SUB" BLDTMP+26
DGNTR BLDTMP+9~, BLDTMP+24*, BLDTMP+28
DGPAGE PRINT+6~, PRINT+14*, PRINT+37, HEAD+8, HEAD+11*, HEAD+12
DGQUIT PRINT+6~, PRINT+13*, PRINT+22, PRINT+24, PRINT+26, PRINT+29, PRINT+34, PRINT+37*, HEAD+7*, HEAD+8*
, HEAD+9
DGSITE PRINT+5~, PRINT+9*, PRINT+10
DGSORT MAN+1~, MAN+2*, MAN+3, START+1, START+2, LOOP~, LOOP+8, BLDTMP~, BLDTMP+14*, BLDTMP+16
, PRINT~, PRINT+8*, PRINT+15
DGSSN BLDTMP+9~, BLDTMP+23*, BLDTMP+28
DGST BLDTMP~, BLDTMP+13, BLDTMP+28, BLDTMP+29, PRINT+2~, PRINT+21*, PRINT+22, PRINT+24, PRINT+27, PRINT+30
, PRINT+31
DGSTAT LOOP+3~, LOOP+6*, LOOP+7, LOOP+8
DGSTN PRINT+5~, PRINT+10*, PRINT+12*, HEAD+13
DGSTNUM PRINT+5~, PRINT+10*
DGSTTN PRINT+5~, PRINT+11*, PRINT+12
DGSUB BLDTMP+9~, BLDTMP+26*, BLDTMP+28
DGX DEVICE+7~, DEVICE+17*, BLDTMP+8~, BLDTMP+16*, BLDTMP+28, PRINT+3~, PRINT+15*, PRINT+20, PRINT+22, PRINT+24
, PRINT+27
DIR PRINT+37!, HEAD+8!
DIR(0 PRINT+37*, HEAD+8*
DT PRINT+11
IO PRINT+1
IO("Q" DEVICE+12
IOF HEAD+10
IOP DEVICE+7~
IOSL PRINT+25
IOST PRINT+37, HEAD+8
OK DEVICE+7~, DEVICE+8*, DEVICE+11*, DEVICE+12, DEVICE+20*, DEVICE+21
POP DEVICE+7~, DEVICE+11, EXIT+4!
U BLDTMP+23, BLDTMP+28, PRINT+10, PRINT+28
VADM BLDTMP+9~
VADM(1 BLDTMP+22
VADM(2 BLDTMP+23
X BLDTMP+10~
X1 BLDTMP+10~
X2 BLDTMP+10~
Y BLDTMP+10~, PRINT+37, HEAD+8
ZTDESC DEVICE+13~, DEVICE+16*
>> ZTQUEUED EN+1, PRINT+34, HEAD+7, EXIT+1, EXIT+3
>> ZTREQ EXIT+1*
ZTRTN DEVICE+13~, DEVICE+14*
ZTSAVE DEVICE+13~
ZTSAVE("DGSORT" DEVICE+15*
ZTSK DEVICE+13~, DEVICE+17, DEVICE+18
>> ZTSTOP HEAD+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All