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

Package: Registration

Routine: DGPHSTAT


Information

DGPHSTAT ;ALB/RPM - PURPLE HEART STATUS REPORT ; 02/01/01 8:00am

Source Information

Source file <DGPHSTAT.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
ASKSORT() ;Requests sort order from user when MAN entry point
; Input: none
DEVICE() ;Allow user selection of output device
; Input: none
START ;
LOOP ;Locate all PENDING and IN-PROCESS status Purple Heart requests
BLDTMP(DGST,DFN,DGOR) ;^TMP("DGPH",$J global builder
; Build TMP file based on sort selection
PRINT ;
HEAD ;
GETSORT(DGFMT) ;Retrieve the sort order from field 1202 of MAS PARAMETERS file
; Input: DGFMT - selects output format
; Valid values: "N" - numeric [default]
; "I" - internal FM
; "E" - external FM
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKSORT+17
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+13
Function Call: WRITE
  • Prompt: !,"Division: "_DG1
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !!,"DAYS",?13,"DATE"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,$S(DG2="1":"PENDING",1:"IN PROCESS"),?13,$S(DG2="1":"PENDING",1:"IN PROCESS"),?36,"PATIENT NAME",?67,"PATIENT SSN"
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,"----------",?13,"----------",?36,"------------",?67,"-----------"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !,$P($G(DGLINE),U),?13,$P($G(DGLINE),U,2),?36,$P($G(DGLINE),U,3),?67,$P($G(DGLINE),U,4)
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !!?5,"Requests from Division "_DG1_": "_^TMP("DGPH",$J,"DIV",DG1)
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !!?7,"Total Number of Pending: "_$S($G(^TMP("DGPH",$J,"STAT","1"))>0:^TMP("DGPH",$J,"STAT","1"),1:0)
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !?5,"Total Number of In Process Requests: "_$S($G(^TMP("DGPH",$J,"STAT","2"))>0:^TMP("DGPH",$J,"STAT","2"),1:0)
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !?5,"Total Number of Outstanding Requests: "_$G(^TMP("DGPH",$J,"TOT"))
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,"PURPLE HEART REQUEST STATUS REPORT",?48,DGDT,?70,"Page: ",$G(DGPAGE)
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,"STATION: "_$G(DGSTN)
  • Line Location: HEAD+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DG(43 - [#43] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call