Routine: PRSNCGR

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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~

Customize PDF page

Package: PAID