Routine: PRCN109

Entry Points

Name	Comments	DBIA/ICR reference
V	;;1.0;PRCN;9;Sep 13, 1996
POST	;
EQP	; ; Equipment Committee
CNCROFF	; ; Concurrence Officials
KEYCHK	; ; Find user with security key
CMROFC	; ; CMR Officials
EXIT	;
RPT	; ; Generate report from ^TMP("PRCN109") ; 1. count from ^TMP
MAIL	; ; Send report to mail group member and patch installer
MAILGRP	;
FORMAT	;
SETP(PC)	; ; set value into ^TMP, STA -- station number, I -- DUZ ; If termination date is smaller than today's date

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	MAIL+2
^%ZOSF("UCI"	MAIL+2
^ENG(6914 - [#6914]	CMROFC+2
^ENG(6914.1 - [#6914.1]	CMROFC+4, CMROFC+8, CMROFC+10
^PRCN(413.2 - [#413.2]	EQP+2
^PRCN(413.3 - [#413.3]	CNCROFF+2
^TMP("PRCN109"	POST+5!, EXIT+1!, RPT+3, RPT+5, RPT+9, RPT+10, RPT+20, RPT+34, SETP+4
^VA(200 - [#200]	KEYCHK+2, MAIL+7, SETP+3
^XUSEC("PRCNCMR"	CMROFC+8, CMROFC+10
^XUSEC("PRCNEN"	KEYCHK+6
^XUSEC("PRCNWHSE"	KEYCHK+4

Name	Line Occurrences
RPT	CMROFC+12
SETP	EQP+2, CNCROFF+2, KEYCHK+4, KEYCHK+6, CMROFC+8, CMROFC+10

Name	Field # of Occurrence
^(	RPT+5, RPT+20, RPT+34, SETP+4*
^(0	SETP+3

Name	Field # of Occurrence
DIFROM	POST+3~
DT	POST+4*, SETP+3
DUZ	MAIL+7
FDT	POST+2~, RPT+4!, RPT+7, RPT+10, RPT+12!
FDT(	RPT+6, RPT+9, RPT+18, RPT+19, RPT+21, RPT+22, RPT+23, RPT+24, RPT+27, RPT+29* , RPT+33, RPT+36, RPT+37*
FDT(1	RPT+12*
FDT(2	RPT+13*
FDT(3	RPT+14*
FDT(4	RPT+15*
FDT(5	RPT+16*
I	POST+2~, EQP+2, CNCROFF+2, KEYCHK+2, KEYCHK+4, KEYCHK+6, CMROFC+8, CMROFC+10, RPT+4, RPT+5* , RPT+20, RPT+27, RPT+29, RPT+35, MAIL+5*, SETP+3, SETP+4
J	POST+2~, CMROFC+2, CMROFC+4, CMROFC+8, CMROFC+10, RPT+5, RPT+6, RPT+18, RPT+21, RPT+26* , RPT+27, RPT+28, RPT+29, RPT+34, RPT+35, RPT+36, MAIL+2, MAIL+3, MAIL+5
K	POST+2~, RPT+6, RPT+8, RPT+9, RPT+25, RPT+27, RPT+35, RPT+36
LC	POST+2~, RPT+19, RPT+21, RPT+22, RPT+23, RPT+24, RPT+27, RPT+28, RPT+29, RPT+33 , RPT+36, RPT+37
PC	SETP~, SETP+4
PSTA	POST+2~, POST+6*, EQP+2, CMROFC+5
STA	POST+2~, EQP+2, CMROFC+4, CMROFC+5, CMROFC+6, RPT+3, RPT+5, RPT+9, RPT+10, RPT+20* , RPT+23, RPT+34, RPT+36, MAIL+8, MAIL+9*, MAIL+10, SETP+4
U	POST+4*
XMSUB	POST+2~, MAIL+10*
XMTEXT	POST+2~, MAIL+11*
XMY	POST+2~
XMY(	MAIL+5, MAIL+7
>> Y	MAIL+3*, MAIL+5

Name	Field # of Occurrence
$T(FORMAT+K	RPT+26
$T(MAILGRP+I	MAIL+5