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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call