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

Package: PAID

Routine: PRSNRMM


Information

PRSNRMM ;WOIFO-JAH - POC Record and Timecard Mismatches;07/31/09

Source Information

Source file <PRSNRMM.m>

Entry Points

Name Comments DBIA/ICR reference
PPMM(PRSIEN,PPI,PG,STOP) ; report mismatches for a pay period
DISPMM(MM,STOP,HDR,PRSIEN,PPI,PRSD) ; Display a single day of mismatches between
; a timecard and a POC record
; INPUT:
; MM-(array by reference) call DAILYMM to get an array of
; mismatches to pass to this display routine
; PPI-(required) pay period IEN
; PRSD-(required) day number in pay period referenced in PPI
; HDR-(optional) set to true if you want a header included
HDR(STOP,HDR,PRSIEN,PPI,PG) ;
DAILYMM(MM,PRSIEN,PPI,PRSD) ;
; INPUT:
; PRSIEN: 450/451 IEN
; PPI: 451/458 Pay Period IEN
; PRSD: day 1-14 of pay period
; OUTPUT:
; MM - mismatch array index 1..n for each mismatch
; MM(0) = number of mismatches and zero for none
; MM(0+n) = TC Seg start^TC Seg Stop^TT^POC seg start^POC seg stop^TT
BLDPOC(ND,PRSIEN,PPI,PRSD,ACTIVITY) ; Build string and array from POC day
; initialize ND
; INPUT:
; PRSIEN: 450 IEN
; PPI: 458/451 IEN
; PRSD: Pay period day number 1-14
; ACTIVITY: flag set to true if you want to have only portions
; of the array with activity to be returned.
; ND: activity string and array
BLDTC(TD,PRSIEN,PPI,PRSD,ACTIVITY) ; Build string and array from Time Card day
; initialize TD
; INPUT: standard PRSIEN, PPI, PRSD
; ACTIVITY-(optional) flag set to true if return array
; should only contain nodes with activity
; OUTPUT:
; TD (string) with 192 characters representing each 15 minutes of
; the day
; if ACTIVITY parameter true then TD string will be set as follows:
; TD = timecard posting status ^ tour of duty IEN
PLACEX(T1,T2,TOUR) ;
TIMEDIF(TIME1,TIME2) ;
CNVTTPOC(TT) ; convert an ETA type of time to POC time
CONVERT(TT) ; Convert a type of time code to a comparison code
; COMPARISON
; ETA POC STRINGS
; CODE ETA DX CODE POC DX CODE
; ==== =============== ===== =========== =====
; AA Auth Abs AA Auth Abs A
; CP Cont of Pay AA Auth Abs A
; AD Adoption AD Adoption D
; AL Annual Leave AL Annual Leave L
; CB Fam Care Bereav CB Fam Care Bereav B
; CU Comp/Cred Used CU Comp/Cred Used U
; DL Donor Leave DL Donor Leave d
; RL Restored AL RL Restored AL R
; RS Recess RS Recess r
; HX Holiday Excused HX Holiday Excused h
; ML Military Leave ML Military Leave M
; SL Sick Leave SL Sick Leave S
; WP Leave w/o Pay WP Leave w/o Pay W
; NL Non-Pay AL NL Non-Pay AL n
; NP Non-Pay NP Non-Pay N
; Tour Time (posted) WI Work in tour W
; TR Train (in tour) TR Work in Tour W
; TV Travel (in tour) TV Work in Tour W
; OT Overtime WO Work out of tour w
; CT Comp/Cred Earn WO Work out of tour w
; RG Reg Sched WO Work out of tour w
; HW Hol Work (in tour) HW H
; UN Unavailable Not reported Ignored
; ON On-Call Not reported Ignored
; SB Standby Not reported Ignored
TIMEPOS(MT,SORE) ; Convert MILTIME to positional int. where 1 represents
; the period from Mid-12:15, 2 - 12:15-12:30, and so on, with 96
; representing the period from 11:45pm to mid.
POSTIM(I,BORE) ; convert the positional integer time to military time
; INPUT: BORE-0=START, 1=END, flag specifies if this is a
; start time or end time
ETIM(MIL) ; Convert a military time to a standard time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P($G(^PRST(458,PPI,2)),U,PRSD)
  • Line Location: PPMM+9
Function Call: WRITE
  • Prompt: !,$J(T1,7),DASH,$J(T2,7),?19,TT,?24,TTE,?40,$J(P1,7),DASH,$J(P2,7),?60,PT,?64,PTE
  • Line Location: DISPMM+30
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?((IOM-$L(TITLE))\2),TITLE
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,?((IOM-$L(TITLE2))\2),TITLE2
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?(IOM-$L(PGE)-2),PGE
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,?3,"Nurse: ",$P($G(^PRSPC(PRSIEN,0)),U)
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: ?(IOM-$L(RUNDATE)-3),RUNDATE
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!,?9,"ETA TIMECARD",?46,"POINT OF CARE RECORD"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,?2,"=================================",?40,"==================================="
  • Line Location: HDR+19
Info |  Source |  Entry Points |  Interaction Calls