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

Package: PAID

Routine: PRSNCGR


Information

PRSNCGR ;WOIFO-JAH - Release POC Records for VANOD Extraction;10/16/09

Source Information

Source file <PRSNCGR.m>

Entry Points

Name Comments DBIA/ICR reference
RELEASE ; Routine provides functionality to release records for
; VANOD extraction. I.e., search for POC records who's pay period
; status is approved and move those records to the extraction
; file. Records in the POC file may cross midnight, but we will
; split those records at midnight and report the activity on the
; day on which it occured.
MMREP ;
DRIVER ;
GETPP(PPS) ;prompt for and return pay period
; Use the following criteria:
; 1) pp must exist in 451
; 2) Default value is most recently ended pay period
; 3) selection of a pay period that has not ended is not allowed
; 4) Screen out pay periods with no approved data
GETDIV(PRSINST) ;
ASKMM() ;
SUREQ() ;
EXTRECS(PC,SEGCNT,PPI,PRSIEN) ; get all POC activity for nurses pay period
SEGS ;
SUBMEAL(TIME1,TIME2,MEAL) ;
MINDIF(TIME1,TIME2) ;
EXTIME(TIME) ;
EXTQ ;
RESULTS(CNT,PPI) ; Print results of the Release
PPRELCHK(PPS,PRSINST,PPI) ; BUILD ARRAY OF PAY PERIODS WITH APPROVED DATA
; BY DIVISION

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no records in pay period ",$P($G(^PRST(458,PPI,0)),U)," approved for release."
  • Line Location: RELEASE+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: RELEASE+29
Function Call: WRITE
  • Prompt: !,"Request "_ZTSK_" Queued."
  • Line Location: RELEASE+48
Function Call: WRITE
  • Prompt: !,"Request "_ZTSK_" Queued."
  • Line Location: RELEASE+65
Function Call: WRITE
  • Prompt: !!," Would you like to view the mismatch report"
  • Line Location: ASKMM+1
Function Call: WRITE
  • Prompt: !," for records to be released?"
  • Line Location: ASKMM+2
Function Call: WRITE
  • Prompt: !!," Are you sure you want to Release POC records?"
  • Line Location: SUREQ+1
Function Call: WRITE
  • Prompt: @IOF,!!,?14,"POC RECORDS RELEASED RESULTS FOR PAY PERIOD ",$P($G(^PRST(458,PPI,0)),U)
  • 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

FileMan Files Accessed Via FileMan Db Call

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