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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls