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

Package: PAID

Routine: PRSNCGP


Information

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

Source Information

Source file <PRSNCGP.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
PAID 4 $$ASK^PRSLIB00  ($$ASKMM,$$SUREQ,EXTRECS,GETDIV)^PRSNCGR  FILEPP^PRSNCGR1  PPMM^PRSNRMM  
VA FileMan 4 NOW^%DTC  MSG^DIALOG  UPDATE^DIE  GETS^DIQ  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

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

Package Total Caller Graph
PAID 4 PRSN POC CORRECT RELEASE  PRSNAC01  PRSNCR1  PRSNDPC1  

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

External References

Name Field # of Occurrence
NOW^%DTC UPDTPOCD+20
^%ZIS CRELEASE+28, CRELEASE+44
^%ZISC DRIVER+69, MMREP+15
^%ZTLOAD CRELEASE+36, CRELEASE+53
MSG^DIALOG UPDTPOCD+14, UPDTPOCD+22, UPDTPOC+6
UPDATE^DIE UPDTPOCD+14, UPDTPOCD+22, UPDTPOC+6
GETS^DIQ DRIVER+6, MMREP+6, RESULTS+9, CNTREP+9
$$ASK^PRSLIB00 CRELEASE+19, RESULTS+12, CNTREP+15
$$ASKMM^PRSNCGR CRELEASE+23
$$SUREQ^PRSNCGR CRELEASE+41
EXTRECS^PRSNCGR DRIVER+26, DRIVER+61
GETDIV^PRSNCGR CRELEASE+8
FILEPP^PRSNCGR1 DRIVER+38, DRIVER+64
PPMM^PRSNRMM MMREP+13

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
Routine Call
  • DIALOG
  • Line Location:
    • UPDTPOCD+14
    • UPDTPOCD+22
    • UPDTPOC+6
Routine Call
  • DIE
  • Line Location:
    • UPDTPOCD+14
    • UPDTPOCD+22
    • UPDTPOC+6
Routine Call
  • %ZIS
  • Line Location:
    • CRELEASE+28
    • CRELEASE+44

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSN(451 - [#451] DRIVER+14, DRIVER+21, DRIVER+57, DRIVER+58, DRIVER+59, MMREP+10, MMREP+12, PRECHK+21, PRECHK+23

Label References

Name Line Occurrences
$$PCCOUNT DRIVER+42, DRIVER+65
$$SPILLOVR TRIMPC+12
CNTREP CRELEASE+16
DRIVER CRELEASE+56
MMREP CRELEASE+39
PRECHK CRELEASE+12
RESULTS DRIVER+67
TRIMPC DRIVER+30
UPDTPOC DRIVER+46, DRIVER+66

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UPDTPOCD+17~, UPDTPOCD+21
%ZIS CRELEASE+26~, CRELEASE+27*, CRELEASE+42~, CRELEASE+43*
ARRAY2D PCCOUNT~
ARRAY2D( PCCOUNT+3, PCCOUNT+4
CDS DRIVER+19!, DRIVER+30, TRIMPC~
CDS( DRIVER+22*, TRIMPC+12, TRIMPC+16
CI DRIVER+1~, DRIVER+5*, DRIVER+6, DRIVER+7, DRIVER+8, DRIVER+14, DRIVER+15, DRIVER+21, DRIVER+38, DRIVER+42
, DRIVER+59, DRIVER+64, DRIVER+65, MMREP+1~, MMREP+5*, MMREP+6, MMREP+7, MMREP+10, MMREP+12
CNT DRIVER+1~, DRIVER+67, MMREP+1~, PCCOUNT+1~, PCCOUNT+2*, PCCOUNT+5*, PCCOUNT+6, RESULTS~, PRECHK+12~
CNT( DRIVER+8*, DRIVER+15*, DRIVER+42*, DRIVER+65*, RESULTS+8, RESULTS+11
CORSPIL TRIMPC+5~, TRIMPC+8*, TRIMPC+12*, TRIMPC+16
DIVE RESULTS+1~
DIVI RESULTS+1~
DUZ UPDTPOCD+19
F RESULTS+1~
F(4 RESULTS+10, CNTREP+10
FDA UPDTPOC+1~
FDA( UPDTPOC+5*
FIELD DRIVER+1~, MMREP+1~, PRECHK+12~
FIELD(4 DRIVER+7, MMREP+7
I DRIVER+20*, DRIVER+21*, DRIVER+22, DRIVER+63~*, SPILLOVR~, SPILLOVR+3, SPILLOVR+4, PCCOUNT+1~, PCCOUNT+2*, PCCOUNT+3*
, PCCOUNT+4, RESULTS+1~, RESULTS+7~*, RESULTS+8*, RESULTS+9, RESULTS+10, RESULTS+11, PRECHK+14*, PRECHK+15*, PRECHK+16
, PRECHK+18*, PRECHK+19*, PRECHK+21, PRECHK+23, PRECHK+25, CNTREP+1~, CNTREP+7*, CNTREP+8*, CNTREP+9, CNTREP+10
, CNTREP+12, UPDTPOC+2*, UPDTPOC+3*, UPDTPOC+4
IENS UPDTPOCD+10~, UPDTPOCD+11*, UPDTPOCD+13, UPDTPOCD+17!, UPDTPOCD+18*, UPDTPOCD+19, UPDTPOCD+21, UPDTPOC+1~, UPDTPOC+4*, UPDTPOC+5
INSTCC CRELEASE+6~, CRELEASE+12, CRELEASE+16, CRELEASE+17, PRECHK~, PRECHK+14*, PRECHK+24*, CNTREP~, CNTREP+13
INSTCC( PRECHK+16*, PRECHK+19, PRECHK+25*, CNTREP+8, CNTREP+12
IO DRIVER+2, MMREP+2
IO("Q" CRELEASE+30, CRELEASE+31!, CRELEASE+46, CRELEASE+47!
IOF RESULTS+2, CNTREP+2
IOP CRELEASE+26~, CRELEASE+42~
J SPILLOVR+1~, SPILLOVR+2*, SPILLOVR+3*, SPILLOVR+4, PCCOUNT+1~, PCCOUNT+4*
MMR CRELEASE+6~, CRELEASE+23*, CRELEASE+25
>> NXTPPCOR DRIVER+59*, DRIVER+60
>> NXTPPDAT DRIVER+58*, DRIVER+60
>> NXTPPSTA DRIVER+57*, DRIVER+60
OUT MMREP+1~, MMREP+3*, MMREP+4, MMREP+10, MMREP+12, MMREP+13
PC DRIVER+1~, DRIVER+26!, DRIVER+30, DRIVER+38, DRIVER+42, DRIVER+46, DRIVER+61!, DRIVER+64, DRIVER+65, DRIVER+66
, MMREP+1~, TRIMPC~, UPDTPOC~
PC( DRIVER+63!, TRIMPC+7, TRIMPC+12, TRIMPC+16!, UPDTPOC+3
PC(15 DRIVER+34!
>> PCNX DRIVER+34*, DRIVER+60
PG MMREP+1~, MMREP+3*, MMREP+13
POP CRELEASE+26~, CRELEASE+29, CRELEASE+42~, CRELEASE+45
PPI CRELEASE+6~, DRIVER+13*, DRIVER+14*, DRIVER+21, DRIVER+26, DRIVER+38, DRIVER+46, DRIVER+57, DRIVER+58, DRIVER+59
, DRIVER+61, DRIVER+64, DRIVER+66, MMREP+1~, MMREP+9*, MMREP+10*, MMREP+12, MMREP+13, PRECHK+20*, PRECHK+21*
, PRECHK+23, UPDTPOCD~, UPDTPOCD+11, UPDTPOCD+18, UPDTPOC~, UPDTPOC+4
PPS CRELEASE+6~
PRSD TRIMPC+5~, TRIMPC+6*, TRIMPC+7*, TRIMPC+12, TRIMPC+16, UPDTPOCD~, UPDTPOCD+11, UPDTPOCD+18
PRSFDA UPDTPOCD+10~, UPDTPOCD+17!
PRSFDA( UPDTPOCD+13*, UPDTPOCD+19*, UPDTPOCD+21*
PRSIEN DRIVER+14*, DRIVER+21, DRIVER+26, DRIVER+30, DRIVER+38, DRIVER+46, DRIVER+57, DRIVER+58, DRIVER+59, DRIVER+61
, DRIVER+64, DRIVER+66, MMREP+8*, MMREP+11*, MMREP+12*, MMREP+13, TRIMPC~, PRECHK+22*, PRECHK+23*, UPDTPOCD~
, UPDTPOCD+11, UPDTPOCD+18, UPDTPOC~, UPDTPOC+4
PRSINST CRELEASE+6~, CRELEASE+8, CRELEASE+12, PRECHK~
PRSINST( DRIVER+4, DRIVER+5, MMREP+4, MMREP+5, PRECHK+15, PRECHK+16
PRSV UPDTPOCD~, UPDTPOCD+15, UPDTPOCD+18
REC DRIVER+1~, DRIVER+3*, DRIVER+4*, DRIVER+5, MMREP+1~, MMREP+3*, MMREP+4*, MMREP+5, PRECHK+12~
>> RECCNT DRIVER+13*, DRIVER+26
SEGCNT DRIVER+1~, DRIVER+13*, DRIVER+61, MMREP+1~
SEGS SPILLOVR~
SEGS( SPILLOVR+3, SPILLOVR+4
SN DRIVER+1~, DRIVER+7*, DRIVER+38, DRIVER+64, MMREP+1~, MMREP+7*
SPILL SPILLOVR+1~, SPILLOVR+2*, SPILLOVR+3, SPILLOVR+4*, SPILLOVR+5
STATUS UPDTPOCD~, UPDTPOCD+12*, UPDTPOCD+13, UPDTPOCD+15, UPDTPOC~, UPDTPOC+5
STNAME RESULTS+1~, RESULTS+10*, RESULTS+11, CNTREP+1~, CNTREP+10*, CNTREP+11
STNUM RESULTS+1~, RESULTS+10*, RESULTS+11, CNTREP+1~, CNTREP+10*, CNTREP+11
STOP PRECHK+12~
U DRIVER+15, DRIVER+42, DRIVER+57, DRIVER+65, SPILLOVR+4, RESULTS+11
X CRELEASE+19*, RESULTS+1~, RESULTS+12*, CNTREP+1~, CNTREP+15*
ZTCPU CRELEASE+32~, CRELEASE+48~
ZTDESC CRELEASE+32~, CRELEASE+33*, CRELEASE+48~, CRELEASE+49~, CRELEASE+50*
ZTDTH CRELEASE+32~, CRELEASE+48~
ZTIO CRELEASE+32~, CRELEASE+48~
ZTKIL CRELEASE+32~, CRELEASE+48~
ZTPRI CRELEASE+32~, CRELEASE+48~
>> ZTREQ CRELEASE+37*, CRELEASE+54*
ZTRTN CRELEASE+32~, CRELEASE+34*, CRELEASE+48~, CRELEASE+49~, CRELEASE+51*
ZTSAVE CRELEASE+32~, CRELEASE+48~, CRELEASE+49~
ZTSAVE("PRSINST(" CRELEASE+35*, CRELEASE+52*
ZTSK CRELEASE+32~, CRELEASE+37, CRELEASE+48~, CRELEASE+54
ZTSYNC CRELEASE+32~, CRELEASE+48~
ZTUCI CRELEASE+32~, CRELEASE+48~
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