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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 DD^%DT  ^%DTC  $$GET1^DIQ  ^DIR  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
Registration 2 ^VADPT  ($$NAME,$$SITE)^VASITE  

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

Package Total Caller Graph
Registration 1 DG PH STATUS  

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 ;

External References

Name Field # of Occurrence
DD^%DT BLDTMP+25
^%DTC BLDTMP+24
^%ZIS DEVICE+10
HOME^%ZIS DEVICE+19, EXIT+5
^%ZISC EXIT+5
^%ZTLOAD DEVICE+17
$$S^%ZTLOAD HEAD+1
$$GET1^DIQ BLDTMP+26, GETSORT+18
^DIR ASKSORT+18, HEAD+2
^VADPT BLDTMP+18
$$NAME^VASITE PRINT+7
$$SITE^VASITE PRINT+5

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
Routine Call
  • DIR
  • Line Location:
    • ASKSORT+18
    • HEAD+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+10
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+19
    • EXIT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DG(43 - [#43] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HEAD+5
^DPT - [#2] BLDTMP+21, BLDTMP+23
^DPT("C" LOOP+7
^TMP("DGPH" LOOP+4!, BLDTMP+28*, BLDTMP+29*, BLDTMP+30*, BLDTMP+31*, PRINT+11, PRINT+15, PRINT+20, PRINT+25, PRINT+27
, PRINT+29, PRINT+32, PRINT+36, PRINT+37, PRINT+38, EXIT+2!

Label References

Name Line Occurrences
$$ASKSORT MAN+2
$$DEVICE MAN+4
$$GETSORT QEN+4, ASKSORT+14
BLDTMP LOOP+8
EXIT START+3
HEAD PRINT+12, PRINT+16, PRINT+28
LOOP START+1
MAN EN+1
PRINT START+2
START QEN+5, MAN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+7~, DEVICE+9*, EXIT+4!
DFN BLDTMP~, BLDTMP+15, BLDTMP+21, BLDTMP+23, BLDTMP+26, BLDTMP+28
DG1 DEVICE+17*, PRINT+2~, PRINT+14*, PRINT+15*, PRINT+18, PRINT+20, PRINT+25, PRINT+27, PRINT+29, PRINT+32
DG2 PRINT+2~, PRINT+19*, PRINT+20*, PRINT+22, PRINT+25, PRINT+27, PRINT+29
DG3 PRINT+2~, PRINT+24*, PRINT+25*, PRINT+27, PRINT+29
DG4 PRINT+2~, PRINT+26*, PRINT+27*, PRINT+29
DGDAYS BLDTMP+12~, BLDTMP+24*, BLDTMP+28
DGDFN LOOP+3~, LOOP+6*, LOOP+7*, LOOP+8
DGDIV BLDTMP+12~, BLDTMP+26*, BLDTMP+27*, BLDTMP+28, BLDTMP+31
DGDT BLDTMP+12~, BLDTMP+23*, BLDTMP+24, BLDTMP+25*, BLDTMP+28, HEAD+5*, HEAD+7
DGFIRST PRINT+2~
DGFLG GETSORT+14~, GETSORT+17*, GETSORT+18
DGFMT GETSORT~, GETSORT+15*, GETSORT+16*, GETSORT+17, GETSORT+19, GETSORT+20, GETSORT+21
DGLINE PRINT+2~, PRINT+29*, PRINT+30
DGNAME BLDTMP+12~, BLDTMP+19*, BLDTMP+28
DGNUM BLDTMP+12~, BLDTMP+21*, BLDTMP+22, BLDTMP+23
DGOR BLDTMP~, BLDTMP+16*, BLDTMP+28
DGORD QEN+1~, QEN+4*, MAN+1~, MAN+2*, MAN+3, LOOP+8
DGPAGE PRINT+4~, PRINT+10*, HEAD+2, HEAD+6*, HEAD+7
DGQUIT PRINT+4~, PRINT+9*, PRINT+15, PRINT+17, PRINT+20, PRINT+25, PRINT+27, PRINT+28, PRINT+31, PRINT+34
, HEAD+1*, HEAD+2*, HEAD+3
DGSITE PRINT+3~, PRINT+5*, PRINT+6
DGSORT ASKSORT+8~, ASKSORT+19*, ASKSORT+20*, ASKSORT+21, GETSORT+14~, GETSORT+18*, GETSORT+19*, GETSORT+20*, GETSORT+21*, GETSORT+22
DGSSN BLDTMP+12~, BLDTMP+20*, BLDTMP+28
DGST BLDTMP~, BLDTMP+14, BLDTMP+28, BLDTMP+30
DGSTAT LOOP+2~, LOOP+5*, LOOP+7, LOOP+8
DGSTN PRINT+3~, PRINT+6*, PRINT+8*, HEAD+8
DGSTNUM PRINT+3~, PRINT+6*
DGSTTN PRINT+3~, PRINT+7*, PRINT+8
DIR ASKSORT+8~, HEAD+2!
DIR("?" ASKSORT+15*
DIR("??" ASKSORT+16*
DIR("A" ASKSORT+10*, ASKSORT+11*, ASKSORT+12*, ASKSORT+13*
DIR("B" ASKSORT+14*
DIR(0 ASKSORT+9*, HEAD+2*
DIRUT ASKSORT+8~, ASKSORT+20
DT BLDTMP+24, PRINT+7, HEAD+5
DTOUT ASKSORT+8~, ASKSORT+20
IO PRINT+1
IO("Q" DEVICE+12
IOF HEAD+4
IOP DEVICE+7~
IOSL PRINT+28
IOST HEAD+2
OK DEVICE+7~, DEVICE+8*, DEVICE+11*, DEVICE+12, DEVICE+20*, DEVICE+21
POP DEVICE+7~, DEVICE+11, EXIT+4!
U BLDTMP+20, BLDTMP+23, PRINT+6, PRINT+30
VADM BLDTMP+12~
VADM(1 BLDTMP+19
VADM(2 BLDTMP+20
X BLDTMP+12~, BLDTMP+24
X1 BLDTMP+12~, BLDTMP+24*
X2 BLDTMP+12~, BLDTMP+24*
Y ASKSORT+19, BLDTMP+12~, BLDTMP+25*, HEAD+2, HEAD+5*
ZTDESC DEVICE+13~, DEVICE+15*
>> ZTQUEUED EN+1, PRINT+34, HEAD+1, EXIT+1, EXIT+3
>> ZTREQ EXIT+1*
ZTRTN DEVICE+13~, DEVICE+14*
ZTSAVE DEVICE+13~
ZTSAVE("DGORD" DEVICE+16*
ZTSK DEVICE+13~, DEVICE+17, DEVICE+18
>> ZTSTOP HEAD+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All