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

Package: PAID

Routine: PRSNCGP


Information

PRSNCGP ;WOIFO-JAH - Release POC Record corrections for VANOD;11/03/09

Source Information

Source file <PRSNCGP.m>

Entry Points

Name Comments DBIA/ICR reference
CRELEASE ; Routine provides functionality to release corrected records for
; VANOD extraction. These are daily records with a CORRECTION STATUS
; of Approved for a Day
DRIVER ;
MMREP ;
TRIMPC(PC,CDS,PRSIEN) ;Trim days from pay per array that are not either
; a corrected day or a day impacted by the correction
; i.e., we must resend days that have time from a corrected day
; that cross midnight into them.
SPILLOVR(SEGS,I) ; return true if a segment on this day crosses midnight
PCCOUNT(ARRAY2D) ; COUNT records in 2D array with integer subscripts
RESULTS(CNT) ; Print results of the Release
PRECHK(INSTCC,PRSINST) ; Count up corrections by division
CNTREP(INSTCC) ;
UPDTPOCD(PPI,PRSIEN,PRSD,PRSV,STATUS) ; update DAILY RECORD status for POC records
; INPUT :
; PPI,PRSIEN,PRSD : Standard
; PRSV : (optional) if STATUS is (A)pproved PRSV must be defined
; to the version number of the POC record
; STATUS: (optional) : set to (A)pproved
; (R)eleased
; (E)ntered
; Null (remove status)
UPDTPOC(PC,PPI,PRSIEN,STATUS) ; update POC daily record status

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Request "_ZTSK_" Queued."
  • Line Location: CRELEASE+37
Function Call: WRITE
  • Prompt: !,"Request "_ZTSK_" Queued."
  • Line Location: CRELEASE+54
Function Call: WRITE
  • Prompt: @IOF,!!,?14,"POC CORRECTED RECORDS RELEASED RESULTS"
  • Line Location: RESULTS+2
Function Call: WRITE
  • Prompt: !,?14,"======================================"
  • Line Location: RESULTS+3
Function Call: WRITE
  • Prompt: !!,?30,"TOTAL",?42,"TOTAL"
  • Line Location: RESULTS+4
Function Call: WRITE
  • Prompt: !,?4,"DIVISION",?30,"NURSES",?42,"RECORDS"
  • Line Location: RESULTS+5
Function Call: WRITE
  • Prompt: !,?4,"========",?30,"======",?42,"======="
  • Line Location: RESULTS+6
Function Call: WRITE
  • Prompt: !,?4,STNAME," (",STNUM,")",?30,$P(CNT(I),U),?44,$P(CNT(I),U,2)
  • Line Location: RESULTS+11
Function Call: WRITE
  • Prompt: !!!
  • Line Location: RESULTS+12
Function Call: WRITE
  • Prompt: @IOF,!!!,?20,"CORRECTION TOTALS BY DIVISION"
  • Line Location: CNTREP+2
Function Call: WRITE
  • Prompt: !,?20,"============================="
  • Line Location: CNTREP+3
Function Call: WRITE
  • Prompt: !!,"DIVISION",?30,"# OF DAILY"
  • Line Location: CNTREP+5
Function Call: WRITE
  • Prompt: !,?30,"DAILY CORRECTIONS"
  • Line Location: CNTREP+6
Function Call: WRITE
  • Prompt: !,?4,STNAME," (",STNUM,")"
  • Line Location: CNTREP+11
Function Call: WRITE
  • Prompt: ?30,$J(INSTCC(I),10,0)
  • Line Location: CNTREP+12
Function Call: WRITE
  • Prompt: !!," No approved corrections are ready for release."
  • Line Location: CNTREP+14
Function Call: WRITE
  • Prompt: !!!
  • Line Location: CNTREP+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call