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

Package: PAID

Routine: PRSPCORE


Information

PRSPCORE ;WOIFO/JAH - pt phys report on Core Hour Tours ;01/22/05

Source Information

Source file <PRSPCORE.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
PAID 3 NOL^PRSATE2  $$ASK^PRSLIB00  ($$INCLEMP,$$TLLIST)^PRSPCORE  

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
PAID 2 PRSP PS CORE HRS RPT  PRSPCORE  

Entry Points

Name Comments DBIA/ICR reference
COREHRS ; main driver for the core hours report
; Get Station Number
INTRO ;always show the option description to the user since this is
; standalone secondary option.
HDR(TSTAMP) ;
RET(TSTAMP) ;
TOURCHK ; check tour of duty file for tours with special time Phy/Dent core
WHICHPP() ;
INCLEMP() ;ASK USER IF THEY WANT TO INCLUDE EMPLOYEES WITH THE TOUR
EMPLIST(TS,TR,PPI,STIEN) ;LOOP THRU PP TO DISPLAY EMPS W/ PHY/DEN CORE TOURS
TLLIST(TIE,TSTAMP) ;LOOP THRU TOUR TO DISPLAY ASSOCIATED T&Ls
; INPUT : Tour Internal Entry number
; local vars:
; ATL - Associated T & L unit
; ATLCT - count the assoc tls

External References

Name Field # of Occurrence
DD^%DT COREHRS+3
NOW^%DTC COREHRS+3
^%ZIS COREHRS+18
^%ZISC TOURCHK+42
^%ZTLOAD COREHRS+25
^DIC INTRO+7
$$GET1^DIQ INTRO+10, TLLIST+7, TLLIST+18
^DIR INCLEMP+5
NOL^PRSATE2 WHICHPP+5
$$ASK^PRSLIB00 COREHRS+8, RET+4
$$INCLEMP^PRSPCORE COREHRS+9
$$TLLIST^PRSPCORE TOURCHK+37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !,PRSHLP(LN)
  • Line Location: INTRO+13
Function Call: WRITE
  • Prompt: !,PRSER(LN)
  • Line Location: INTRO+16
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?2,"Employee search in PP ",PPE," included."
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?(IOM-$L(TSTAMP)-1),TSTAMP
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(IOM-$L(L1))/2,L1
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !," TOUR #",?10,"TOUR NAME",?50,"SEGMENT"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"REPORT ABORTED!"
  • Line Location: TOURCHK+12
Function Call: WRITE
  • Prompt: !,"No Phy/Den Core Hours entry found in file 457.2"
  • Line Location: TOURCHK+13
Function Call: WRITE
  • Prompt: !!,$J(TOUR,7),?10,$P(ZNODE,U)
  • Line Location: TOURCHK+31
Function Call: WRITE
  • Prompt: !
  • Line Location: TOURCHK+33
Function Call: WRITE
  • Prompt: ?50,I/3,": ",$P(NODE1,U,I-2)," - ",$P(NODE1,U,I-1)
  • Line Location: TOURCHK+34
Function Call: WRITE
  • Prompt: !!,?5,"No Tours were found with Special Tour Indicator of Phy/Den Core Hrs"
  • Line Location: TOURCHK+41
Function Call: WRITE
  • Prompt: !,"No employee tour data available for the unopened pay period."
  • Line Location: WHICHPP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EMPLIST+4
Function Call: WRITE
  • Prompt: !,?12,$P(ZNODE,U),?45,"T&L: ",$P(ZNODE,U,8),?67,"nnn-nn-",$E($P(ZNODE,U,9),6,9)
  • Line Location: EMPLIST+16
Function Call: WRITE
  • Prompt: !,?12,"No employees with this core hours tour in pp ",PPE
  • Line Location: EMPLIST+18
Function Call: WRITE
  • Prompt: !,?12,"Associated T&Ls: "
  • Line Location: TLLIST+6
Function Call: WRITE
  • Prompt: "This tour is available to all T&L units."
  • Line Location: TLLIST+8
Function Call: WRITE
  • Prompt: ", ",!,?29
  • Line Location: TLLIST+13
Function Call: WRITE
  • Prompt: ", "
  • Line Location: TLLIST+15
Function Call: WRITE
  • Prompt: !!,?12,"Associated T&Ls: "
  • Line Location: TLLIST+16
Function Call: WRITE
  • Prompt: $$GET1^DIQ(455.5,ATL,.01,,,)
  • Line Location: TLLIST+18
Function Call: WRITE
  • Prompt: "No T&L units are associated with this tour."
  • Line Location: TLLIST+19
Routine Call
  • DIC
  • Line Location:
    • INTRO+7
Routine Call
  • DIR
  • Line Location:
    • INCLEMP+5
Routine Call
  • %ZIS
  • Line Location:
    • COREHRS+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] Classic Fileman Calls,  GET1^DIQ
^PRST(455.5 - [#455.5] GET1^DIQ
^PRST(457.1 - [#457.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSPC - [#450] EMPLIST+15
^PRST(457.1 - [#457.1] TOURCHK+16, TOURCHK+18, TOURCHK+19, TLLIST+11
^PRST(457.2 - [#457.2] TOURCHK+9
^PRST(458 - [#458] COREHRS+13, WHICHPP+2, WHICHPP+3, WHICHPP+8, EMPLIST+8, EMPLIST+11

Label References

Name Line Occurrences
$$EMPLIST TOURCHK+38
$$RET TOURCHK+36, EMPLIST+17, TLLIST+16
$$WHICHPP COREHRS+12
HDR RET+1, RET+5, TOURCHK+11, TOURCHK+15
INTRO COREHRS+7
TOURCHK COREHRS+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% COREHRS+2~, COREHRS+3
%ZIS COREHRS+2~, COREHRS+17*
ATL TLLIST+5~, TLLIST+10*, TLLIST+11*, TLLIST+18
ATLCT TLLIST+5~, TLLIST+10*, TLLIST+15, TLLIST+17*, TLLIST+19
CORECNT EMPLIST+2~, EMPLIST+5*, EMPLIST+14*, EMPLIST+18
DFN WHICHPP+1~, WHICHPP+5*
DIC INTRO+2~, INTRO+5*
DIC(0 INTRO+6*
DIR INCLEMP+1~
DIR("A" INCLEMP+4*
DIR("B" INCLEMP+3*
DIR(0 INCLEMP+2*
DIRUT INCLEMP+1~, INCLEMP+7
DT WHICHPP+2
FOUND EMPLIST+2~, EMPLIST+9*, EMPLIST+14*, EMPLIST+16
HASCORE TOURCHK+6~, TOURCHK+17*, TOURCHK+28*, TOURCHK+37, TOURCHK+38*
I HDR+1~, HDR+9*, TOURCHK+6~, TOURCHK+25*, TOURCHK+26, TOURCHK+34
INCLUDE COREHRS+2~, COREHRS+9*, COREHRS+10, COREHRS+12, COREHRS+15*, HDR+3, TOURCHK+38, INCLEMP+1~, INCLEMP+6*, INCLEMP+7*
, INCLEMP+8
IO TOURCHK+5
IO("Q" COREHRS+20, COREHRS+21!
IOF INTRO+3, HDR+2
IOM HDR+4, HDR+6, HDR+9, TLLIST+12
IOSL TOURCHK+36, EMPLIST+17, TLLIST+16
IOST RET+1
L1 HDR+1~, HDR+5*, HDR+6
LN INTRO+2~, INTRO+11*, INTRO+12*, INTRO+13, INTRO+14*, INTRO+15*, INTRO+16
NODE1 TOURCHK+6~, TOURCHK+19*, TOURCHK+26, TOURCHK+34
NODEX TOURCHK+6~, TOURCHK+14*
OPTIEN INTRO+2~, INTRO+9*, INTRO+10
OUT RET+3~, RET+4*, RET+5, RET+6, TOURCHK+6~, TOURCHK+14*, TOURCHK+16, TOURCHK+36*, TOURCHK+37*, TOURCHK+38*
, EMPLIST+2~, EMPLIST+3*, EMPLIST+5*, EMPLIST+8, EMPLIST+17*, EMPLIST+19, TLLIST+5~, TLLIST+10*, TLLIST+11, TLLIST+16*
, TLLIST+20
POP COREHRS+2~, COREHRS+19
PPE COREHRS+2~, COREHRS+13*, HDR+3, EMPLIST+18
PPI COREHRS+2~, COREHRS+11*, COREHRS+12*, COREHRS+13, COREHRS+15, TOURCHK+38, WHICHPP+1~, WHICHPP+2*, WHICHPP+3*, WHICHPP+4
, WHICHPP+6*, WHICHPP+7, WHICHPP+8*, WHICHPP+9, EMPLIST~, EMPLIST+8, EMPLIST+11
PRSD EMPLIST+2~, EMPLIST+9*, EMPLIST+10*, EMPLIST+11
PRSER INTRO+2~
PRSER( INTRO+15, INTRO+16
PRSHLP INTRO+2~
PRSHLP( INTRO+12, INTRO+13
PRSIEN EMPLIST+2~, EMPLIST+5*, EMPLIST+8*, EMPLIST+11, EMPLIST+15
SEGCNT TOURCHK+6~, TOURCHK+24*, TOURCHK+27*, TOURCHK+29
SRT WHICHPP+1~, WHICHPP+6
STCNT TOURCHK+6~, TOURCHK+14*, TOURCHK+30*, TOURCHK+41
STIEN TOURCHK+6~, TOURCHK+9*, TOURCHK+10, TOURCHK+27, EMPLIST~, EMPLIST+14
STPTR TOURCHK+6~, TOURCHK+26*, TOURCHK+27
TIE TLLIST~, TLLIST+7, TLLIST+11
TOUR TOURCHK+6~, TOURCHK+14*, TOURCHK+16*, TOURCHK+18, TOURCHK+19, TOURCHK+31, TOURCHK+37, TOURCHK+38
TR EMPLIST~
TR1 EMPLIST+2~, EMPLIST+12*, EMPLIST+14
TR2 EMPLIST+2~, EMPLIST+13*, EMPLIST+14
TRNODE EMPLIST+2~, EMPLIST+11*, EMPLIST+12, EMPLIST+13
TS EMPLIST~
TSTAMP COREHRS+2~, COREHRS+3*, HDR~, HDR+4, RET~, RET+1, RET+5, TOURCHK+11, TOURCHK+15, TOURCHK+36
TOURCHK+37, TOURCHK+38, EMPLIST+17, TLLIST~, TLLIST+16
U COREHRS+13, TOURCHK+26, TOURCHK+31, TOURCHK+34, WHICHPP+2, EMPLIST+12, EMPLIST+13, EMPLIST+16
X INTRO+2~, INTRO+4*, INTRO+10*
Y COREHRS+2~, COREHRS+3*, INTRO+2~, INTRO+8, INTRO+9, INCLEMP+1~, INCLEMP+6
ZNODE TOURCHK+6~, TOURCHK+18*, TOURCHK+31, EMPLIST+15*, EMPLIST+16
ZTDESC COREHRS+22~, COREHRS+23*
>> ZTQUEUED RET+1
>> ZTREQ TOURCHK+43*
ZTRTN COREHRS+22~, COREHRS+23*
ZTSAVE COREHRS+22~
ZTSAVE("INCLUDE" COREHRS+24*
ZTSAVE("PPE" COREHRS+24*
ZTSAVE("PPI" COREHRS+24*
ZTSAVE("TSTAMP" COREHRS+24*
>> ZTSK TOURCHK+43
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