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

Package: PAID

Routine: PRSNCGR


Information

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

Source Information

Source file <PRSNCGR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
PAID 4 $$ASK^PRSLIB00  (CNTREP,FILEPP,UPDTPOC,UPDTPP)^PRSNCGR1  PPMM^PRSNRMM  L1^PRSNRUT1  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^DIC  GETS^DIQ  ^DIR  
Registration 1 FIRST^VAUTOMA  

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

Package Total Caller Graph
PAID 2 PRSN POC RELEASE  PRSNCGP  

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

External References

Name Field # of Occurrence
^%ZIS RELEASE+38, RELEASE+55
^%ZISC MMREP+11, DRIVER+23
^%ZTLOAD RELEASE+47, RELEASE+64
^DIC GETPP+17
GETS^DIQ MMREP+6, DRIVER+6, RESULTS+9
^DIR ASKMM+3, SUREQ+2
$$ASK^PRSLIB00 RELEASE+29, RESULTS+12
CNTREP^PRSNCGR1 RELEASE+25
FILEPP^PRSNCGR1 DRIVER+14
UPDTPOC^PRSNCGR1 DRIVER+16
UPDTPP^PRSNCGR1 DRIVER+20
PPMM^PRSNRMM MMREP+10
L1^PRSNRUT1 EXTRECS+22, EXTRECS+28
FIRST^VAUTOMA GETDIV+5

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
Routine Call
  • %ZIS
  • Line Location:
    • RELEASE+38
    • RELEASE+55
Routine Call
  • DIC
  • Line Location:
    • GETPP+17
Routine Call
  • DIR
  • Line Location:
    • ASKMM+3
    • SUREQ+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSN(451 - [#451] MMREP+9, DRIVER+10, EXTRECS+21, PPRELCHK+22, PPRELCHK+26
^PRST(456 - [#456] GETDIV+11, GETDIV+12
^PRST(458 - [#458] RELEASE+28, GETPP+11, RESULTS+2

Label References

Name Line Occurrences
$$ASKMM RELEASE+33
$$EXTIME SEGS+18, SEGS+27, SEGS+36, SEGS+43
$$GETPP RELEASE+20
$$MINDIF SUBMEAL+5
$$SUBMEAL SEGS+17, SEGS+26, SEGS+35, SEGS+42
$$SUREQ RELEASE+52
DRIVER RELEASE+67
EXTQ EXTIME+4
EXTRECS DRIVER+13
GETDIV RELEASE+11
MMREP RELEASE+50
PPRELCHK RELEASE+16
RESULTS DRIVER+21
SEGS EXTRECS+24, EXTRECS+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RELEASE+36~, RELEASE+37*, RELEASE+53~, RELEASE+54*
CI MMREP+1~, MMREP+5*, MMREP+6, MMREP+7, MMREP+9, DRIVER+1~, DRIVER+5*, DRIVER+6, DRIVER+7, DRIVER+8
, DRIVER+10, DRIVER+12, DRIVER+14, DRIVER+15, DRIVER+19, DRIVER+20, PPRELCHK+20*, PPRELCHK+22, PPRELCHK+23, PPRELCHK+26
, PPRELCHK+27
CNT MMREP+1~, DRIVER+1~, DRIVER+21, GETDIV+1~, GETDIV+7*, GETDIV+21*, GETDIV+22, RESULTS~, PPRELCHK+13~
CNT( DRIVER+8*, DRIVER+12*, DRIVER+15*, DRIVER+19, DRIVER+20, RESULTS+8, RESULTS+11
DEFPP GETPP+6~, GETPP+12*, GETPP+13
DIC GETPP+6~, GETPP+14*, GETDIV+1~, GETDIV+2*
DIC("A" GETPP+15*
DIC("B" GETPP+13*
DIC("S" GETPP+16*
DIC(0 GETPP+14*
DIR ASKMM+3~, SUREQ+2~
DIR("B" ASKMM+3*, SUREQ+2*
DIR(0 ASKMM+3*, SUREQ+2*
DIRUT ASKMM+3~, ASKMM+4, SUREQ+2~, SUREQ+3
DIVE RESULTS+1~
DIVI RESULTS+1~
DT GETPP+11
DTOUT GETPP+6~, GETPP+18
DUOUT GETPP+6~, GETPP+18
EXTIME EXTIME+3~, EXTIME+4*, EXTIME+5*, EXTIME+6*, EXTQ+2
F RESULTS+1~
F(4 RESULTS+10
FIELD MMREP+1~, PPRELCHK+13~
FIELD(4 MMREP+7, DRIVER+7
I RESULTS+1~, RESULTS+7~*, RESULTS+8*, RESULTS+9, RESULTS+10, RESULTS+11
IO MMREP+2, DRIVER+2
IO("Q" RELEASE+40, RELEASE+41!, RELEASE+57, RELEASE+58!
IOF RESULTS+2
IOP RELEASE+36~, RELEASE+53~
MEAL SUBMEAL~, SUBMEAL+6, SUBMEAL+7*
MEALN SUBMEAL+4~, SUBMEAL+6*, SUBMEAL+7, SUBMEAL+9, SUBMEAL+10
MIN SUBMEAL+4~, SUBMEAL+8*, SUBMEAL+9
MIN1 MINDIF+2~, MINDIF+3*, MINDIF+5
MIN2 MINDIF+2~, MINDIF+4*, MINDIF+5
MINDIF SUBMEAL+4~, SUBMEAL+5*, SUBMEAL+6, MINDIF+2~, MINDIF+5*, MINDIF+6
MMR RELEASE+9~, RELEASE+33*, RELEASE+35
MT EXTRECS+16~, SEGS+10*, SEGS+17, SEGS+26, SEGS+35, SEGS+42
OUT MMREP+1~, MMREP+3*, MMREP+4, MMREP+9, MMREP+10
PC MMREP+1~, DRIVER+1~, DRIVER+13!, DRIVER+14, EXTRECS~
PC( SEGS+13*, SEGS+15*, SEGS+18*, SEGS+19*, SEGS+20*, SEGS+24*, SEGS+27*, SEGS+28*, SEGS+29*, SEGS+31*
, SEGS+33*, SEGS+34*, SEGS+36*, SEGS+37*, SEGS+38*, SEGS+41*, SEGS+43*, SEGS+44*, SEGS+45*
PC(0 EXTRECS+32!
PG MMREP+1~, MMREP+3*, MMREP+10
POCD EXTRECS+16~, EXTRECS+19!, EXTRECS+22, EXTRECS+27!, EXTRECS+28
POCD( SEGS+2, SEGS+8, SEGS+9, SEGS+10, SEGS+13, SEGS+24, SEGS+31, SEGS+41
POP RELEASE+36~, RELEASE+39, RELEASE+53~, RELEASE+56
PPI RELEASE+9~, RELEASE+20*, RELEASE+25, RELEASE+27, RELEASE+28, MMREP+9, MMREP+10, DRIVER+10, DRIVER+13, DRIVER+14
, DRIVER+16, DRIVER+20, DRIVER+21, GETPP+6~, EXTRECS~, EXTRECS+21, EXTRECS+22, EXTRECS+28, RESULTS~, RESULTS+2
, PPRELCHK~, PPRELCHK+14, PPRELCHK+15, PPRELCHK+21*, PPRELCHK+22*, PPRELCHK+23, PPRELCHK+24, PPRELCHK+26, PPRELCHK+27
PPS RELEASE+9~, RELEASE+16, RELEASE+20, GETPP~, PPRELCHK~
PPS("D" PPRELCHK+23*, PPRELCHK+27*
PPS("P" RELEASE+27, GETPP+12, PPRELCHK+24*
PPTEMP GETPP+6~, GETPP+11*, GETPP+12
PRSD EXTRECS+16~, EXTRECS+23*, EXTRECS+26*, EXTRECS+28, SEGS+13, SEGS+15, SEGS+18, SEGS+19, SEGS+20, SEGS+24
, SEGS+27, SEGS+28, SEGS+29, SEGS+31, SEGS+33, SEGS+34, SEGS+36, SEGS+37, SEGS+38, SEGS+41
, SEGS+43, SEGS+44, SEGS+45
PRSIEN MMREP+8*, MMREP+9*, MMREP+10, DRIVER+1~, DRIVER+9*, DRIVER+10*, DRIVER+13, DRIVER+14, DRIVER+16, EXTRECS~
, EXTRECS+21, EXTRECS+22, EXTRECS+28, PPRELCHK+25*, PPRELCHK+26*
PRSINST RELEASE+9~, RELEASE+11, RELEASE+16, RELEASE+25, GETDIV~, GETDIV+6*, GETDIV+10, GETDIV+22*, PPRELCHK~
PRSINST( MMREP+4, MMREP+5, DRIVER+4, DRIVER+5, GETDIV+12*, GETDIV+20, PPRELCHK+19, PPRELCHK+20
REC MMREP+1~, MMREP+3*, MMREP+4*, MMREP+5, DRIVER+1~, DRIVER+3*, DRIVER+4*, DRIVER+5, PPRELCHK+13~, PPRELCHK+18*
, PPRELCHK+19*, PPRELCHK+20
SEG EXTRECS+16~, SEGS+1*, SEGS+2*, SEGS+8, SEGS+9, SEGS+10, SEGS+13, SEGS+24, SEGS+31, SEGS+41
SEGCNT MMREP+1~, DRIVER+1~, DRIVER+11*, DRIVER+13, DRIVER+15, EXTRECS~, SEGS+46*
SI EXTRECS+16~, EXTRECS+18*, SEGS+12*, SEGS+13, SEGS+15, SEGS+18, SEGS+19, SEGS+20, SEGS+23*, SEGS+24
, SEGS+27, SEGS+28, SEGS+29, SEGS+30*, SEGS+31, SEGS+33, SEGS+34, SEGS+36, SEGS+37, SEGS+38
, SEGS+40*, SEGS+41, SEGS+43, SEGS+44, SEGS+45, SEGS+46
SN MMREP+1~, MMREP+7*, DRIVER+1~, DRIVER+7*, DRIVER+14
STNAME RESULTS+1~, RESULTS+10*, RESULTS+11
STNUM RESULTS+1~, RESULTS+10*, RESULTS+11
STOP PPRELCHK+13~, PPRELCHK+15*, PPRELCHK+17*, PPRELCHK+22
T1 EXTRECS+16~, SEGS+8*, SEGS+11, SEGS+14
T1N EXTRECS+16~, SEGS+8*, SEGS+14*, SEGS+15, SEGS+17, SEGS+26, SEGS+32*, SEGS+34, SEGS+35, SEGS+42
T2 EXTRECS+16~, SEGS+9*, SEGS+16, SEGS+22, SEGS+32
T2N EXTRECS+16~, SEGS+9*, SEGS+16*, SEGS+17*, SEGS+18, SEGS+20, SEGS+25*, SEGS+26*, SEGS+27, SEGS+29
, SEGS+32*, SEGS+35*, SEGS+36, SEGS+38, SEGS+42*, SEGS+43, SEGS+45
TIME EXTIME~, EXTIME+4, EXTIME+5, EXTIME+6
TIME1 SUBMEAL~, SUBMEAL+5, MINDIF~, MINDIF+3
TIME2 SUBMEAL~, SUBMEAL+5, SUBMEAL+8, SUBMEAL+9, SUBMEAL+10, MINDIF~, MINDIF+4
TIME2N SUBMEAL+4~, SUBMEAL+9*, SUBMEAL+10*, SUBMEAL+11
U RELEASE+28, DRIVER+12, DRIVER+15, DRIVER+19, DRIVER+20, EXTRECS+21, SEGS+8, SEGS+9, SEGS+10, SEGS+15
, SEGS+18, SEGS+19, SEGS+20, SEGS+27, SEGS+28, SEGS+29, SEGS+33, SEGS+34, SEGS+36, SEGS+37
, SEGS+38, SEGS+43, SEGS+44, SEGS+45, RESULTS+2, RESULTS+11
VAUTNI GETDIV+1~, GETDIV+4*
VAUTSTR GETDIV+1~, GETDIV+3*
VAUTVB GETDIV+1~, GETDIV+4*
X RELEASE+29*, GETPP+6~, ASKMM+3~, SUREQ+2~, RESULTS+1~, RESULTS+12*
Y GETPP+6~, GETPP+18, GETPP+19, GETDIV+1~, GETDIV+6, GETDIV+7*, GETDIV+11*, GETDIV+12, GETDIV+19*, GETDIV+20*
, ASKMM+3~, ASKMM+4*, ASKMM+5, SUREQ+2~, SUREQ+3*, SUREQ+4
ZTCPU RELEASE+42~, RELEASE+59~
ZTDESC RELEASE+42~, RELEASE+43*, RELEASE+59~, RELEASE+60*
ZTDTH RELEASE+42~, RELEASE+59~
ZTIO RELEASE+42~, RELEASE+59~
ZTKIL RELEASE+42~, RELEASE+59~
ZTPRI RELEASE+42~, RELEASE+59~
>> ZTREQ RELEASE+48*, RELEASE+65*
ZTRTN RELEASE+42~, RELEASE+44*, RELEASE+59~, RELEASE+61*
ZTSAVE RELEASE+42~, RELEASE+59~
ZTSAVE("PPI" RELEASE+45*, RELEASE+62*
ZTSAVE("PRSINST(" RELEASE+46*, RELEASE+63*
ZTSK RELEASE+42~, RELEASE+48, RELEASE+59~, RELEASE+65
ZTSYNC RELEASE+42~, RELEASE+59~
ZTUCI RELEASE+42~, RELEASE+59~
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