Routine: PRSEEMP4

Information

PRSEEMP4 ;WIRMFO/JAH-STUDENT TRAINING REPORT BY SERVICE ;7/2/97

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
PAID	5	NHDR^PRSEEMP4 ^PRSEKILL CLOSE^PRSEUTL $$EN12^PRSEUTL2 ($$ASK,$$HUMDRUM)^PRSLIB00
Kernel	1	$$REPEAT^XLFSTR
VA FileMan	1	D^DIQ

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	PRSEEMP3 PRSEEMP4

Entry Points

Name	Comments	DBIA/ICR reference
SORT(PRDA)	;
HWLIST	;build list of classes that are hospital wide
HASHLIST	;Reverse array list 4 faster hashing in sort routine. ; i.e. change HWIDE(3)="DIVERSITY IN WP"... HWIDE("DIVERSITY IN WP")=3
SORT1(PRSE)	;Loop thru training data in AA x-ref & sort in2 ^TMP
OUTPUT(PRDA,POUT,JOBCODE,EMPNAME)	;
NHDR(JOBCODE,POUT)	;
EXIT

External References

Name	Field # of Occurrence
D^DIQ	OUTPUT+34, NHDR+18
NHDR^PRSEEMP4	OUTPUT+6, OUTPUT+10
^PRSEKILL	EXIT
CLOSE^PRSEUTL	EXIT
$$EN12^PRSEUTL2	SORT+23
$$ASK^PRSLIB00	NHDR+7
$$HUMDRUM^PRSLIB00	SORT+4
$$REPEAT^XLFSTR	OUTPUT+40, OUTPUT+52

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DATA FOR EMPLOYEE: ",EMPNAME Line Location: OUTPUT+7
Function Call: WRITE	Prompt: !,$S(PRSE132:NIC,1:$E(NIC,1,25)) Line Location: OUTPUT+29
Function Call: WRITE	Prompt: ?$S(PRSE132:93,1:47),"Length: " Line Location: OUTPUT+31
Function Call: WRITE	Prompt: $S($P(PRDATA,U)>0:$J($P(PRDATA,U),4,2),1:"") Line Location: OUTPUT+32
Function Call: WRITE	Prompt: ?$S(PRSE132:114,1:67),$P(Y,"@"),! Line Location: OUTPUT+34
Function Call: WRITE	Prompt: ?1,"CEUs: ",+$P(PRDATA,U,2),?$S(PRSE132:88,1:42),"Contact HRS: ",$J($P(PRDATA,U,3),4,2) Line Location: OUTPUT+35
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",$G(IOM)) Line Location: OUTPUT+40
Function Call: WRITE	Prompt: !,?1,"Total Classes: ",PCOUNT,?$S(PRSE132:78,1:35) Line Location: OUTPUT+43
Function Call: WRITE	Prompt: "Total Length/Hours:",$J(PHRS,7,2) Line Location: OUTPUT+44
Function Call: WRITE	Prompt: !,?4,"Total CEUs:",$J(PHRS("CEU"),6,2),?$S(PRSE132:77,1:34) Line Location: OUTPUT+49
Function Call: WRITE	Prompt: "Total Contact Hours:",$J(PHRS("CON"),7,2) Line Location: OUTPUT+50
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",$G(IOM)) Line Location: OUTPUT+52
Function Call: WRITE	Prompt: @IOF Line Location: NHDR+8
Function Call: WRITE	Prompt: $S(Z="L":"ALL BUT MANDATORY",Z="H":"ALL BUT HOSPITAL WIDE MANDATORY",Z="C":"C.E.",Z="M":"M.I.",Z="O":"OTHER",Z="W":"WARD",1:"COMPLETE") Line Location: NHDR+10
Function Call: WRITE	Prompt: " TRAINING REPORT FOR " Line Location: NHDR+11
Function Call: WRITE	Prompt: $S(TYP="C":"CY ",TYP="F":"FY ",1:" ") Line Location: NHDR+12
Function Call: WRITE	Prompt: $S(TYP="C"!(TYP="F"):$G(PYR),1:$G(YRST(1))_" - "_$G(YREND(1))) Line Location: NHDR+13
Function Call: WRITE	Prompt: ?PTAB,"PAGE: ",NPC Line Location: NHDR+14
Function Call: WRITE	Prompt: ! Line Location: NHDR+15
Function Call: WRITE	Prompt: "Service: ",$S(PRSE132:SERVICE,1:$E(SERVICE,1,16)) Line Location: NHDR+16
Function Call: WRITE	Prompt: " Cost Ctr./Org.: ",$E(CCORG,1,4),":",$E(CCORG,5,8) Line Location: NHDR+17
Function Call: WRITE	Prompt: ?(IOM-13),Y Line Location: NHDR+18
Function Call: WRITE	Prompt: !,"Name: ",$S(PRSE132:EMPNAME,1:$E(EMPNAME,1,20)) Line Location: NHDR+21
Function Call: WRITE	Prompt: " Title: " Line Location: NHDR+22
Function Call: WRITE	Prompt: $S(PRSETL="":"<Unknown>",1:$S(PRSE132:$E(PRSETL,1,40),1:$E(PRSETL,1,20))) Line Location: NHDR+25
Function Call: WRITE	Prompt: !,NI Line Location: NHDR+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRSE(452 - [#452]	SORT1+17, SORT1+18, SORT1+24, SORT1+29, SORT1+37, OUTPUT+30
^PRSE(452.1 - [#452.1]	HWLIST+18, SORT1+44, SORT1+47
^PRSE(452.3 - [#452.3]	HWLIST+12, HWLIST+13, HWLIST+16, HWLIST+17
^PRSP(454.1 - [#454.1]	HWLIST+14
^PRSPC - [#450]	SORT+21
^PRSPC("SSN"	SORT+16
^TMP("EORM"	SORT+9*, EXIT!
^TMP("JOBS"	SORT+25*, NHDR+24, EXIT!
^TMP($J	SORT+12, SORT+14, SORT+24, SORT1+38, SORT1+41, SORT1+47, SORT1+53, SORT1+54, OUTPUT+5, OUTPUT+13 , OUTPUT+16, OUTPUT+18, OUTPUT+19, OUTPUT+23, NHDR+32, EXIT!
^VA(200 - [#200]	SORT+7, SORT+13

Label References

Name	Line Occurrences
NHDR	OUTPUT+21
SORT1	SORT+29, SORT+31, SORT+33

Naked Globals

Name	Field # of Occurrence
^(0	SORT+21
^(6	OUTPUT+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CCORG	SORT+12, SORT+14, SORT+24, SORT1+38, SORT1+41, SORT1+47, SORT1+53, SORT1+54, OUTPUT+5, OUTPUT+13 , OUTPUT+16, OUTPUT+18, OUTPUT+19, OUTPUT+23, NHDR+17, NHDR+32
>> CEU	OUTPUT+48
>> CLOCK	SORT+4*
CLSMLT	HWLIST+2~, HWLIST+15, HWLIST+16, HWLIST+17
CLSPTR	HWLIST+2~, HWLIST+17*, HWLIST+18
COUNT	SORT1+13~, SORT1+50, SORT1+54
CRS	SORT1+13~, SORT1+16, SORT1+17, SORT1+18, SORT1+21, SORT1+24, SORT1+29, SORT1+38, SORT1+41, SORT1+44
CURR	SORT1+13~, SORT1+53*, SORT1+54
>> DA	OUTPUT+19*, OUTPUT+20, OUTPUT+23, OUTPUT+30
>> DA(2	SORT1+29*, SORT1+30, SORT1+37, SORT1+47
>> EMPIEN	SORT+12, SORT+14, SORT+24, SORT1+38, SORT1+41, SORT1+47, SORT1+53, SORT1+54, OUTPUT+5, OUTPUT+13 , OUTPUT+16, OUTPUT+18, OUTPUT+19, OUTPUT+23, NHDR+32
EMPNAME	SORT+9, OUTPUT~, OUTPUT+7, NHDR+21
>> HOLD	OUTPUT+13, OUTPUT+28, OUTPUT+33, OUTPUT+37, NHDR+33
HWIDE(	HWLIST+18, HASHLIST+4, HASHLIST+5, HASHLIST+6!, SORT1+21
IOF	NHDR+8
IOM	OUTPUT+40, OUTPUT+52, NHDR+9, NHDR+18
IOSL	OUTPUT+21
IOST	SORT+4, NHDR+7
JOBCODE	SORT+21*, SORT+23, SORT+24, SORT+25, OUTPUT~, OUTPUT+6, OUTPUT+10, OUTPUT+21, NHDR~, NHDR+24
>> MIEN	HWLIST+11, HWLIST+12, HWLIST+13, HWLIST+16, HWLIST+17
MIIEN	HWLIST+2~
>> N1	SORT+7, SORT+8, SORT+9, SORT+12, SORT1+47, OUTPUT+15, OUTPUT+16, OUTPUT+18, OUTPUT+19, OUTPUT+23
>> NCD	SORT1+26, SORT1+34, SORT1+47, OUTPUT+17, OUTPUT+18*, OUTPUT+19, OUTPUT+23, OUTPUT+34
>> NCD1	SORT1+24*, SORT1+26, SORT1+29
>> NI	NHDR+30*, NHDR+31
>> NIC	OUTPUT+12, OUTPUT+13, OUTPUT+29
>> NODE	HASHLIST+3, HASHLIST+4, HASHLIST+5, HASHLIST+6
>> NPC	NHDR+8*, NHDR+14
>> NSORT	SORT1+31, SORT1+40, OUTPUT+13*, OUTPUT+16, OUTPUT+18, OUTPUT+19, OUTPUT+23
>> NSW1	OUTPUT+21, NHDR+33*
>> PCOUNT	OUTPUT+22*, OUTPUT+43
>> PHRS	OUTPUT+24*, OUTPUT+44
>> PHRS("CEU"	OUTPUT+26*, OUTPUT+49
>> PHRS("CON"	OUTPUT+27*, OUTPUT+50
POUT	OUTPUT~, OUTPUT+2, OUTPUT+6, OUTPUT+10, OUTPUT+13, OUTPUT+16, OUTPUT+18, OUTPUT+21, OUTPUT+39, NHDR~ , NHDR+4, NHDR+7*
PRDA	SORT~, SORT+7, SORT+13, SORT1+17, SORT1+18, SORT1+24, SORT1+29, OUTPUT~
PRDA(1	SORT+16*, SORT+21
>> PRDATA	SORT1+37, SORT1+47, OUTPUT+23, OUTPUT+24, OUTPUT+25, OUTPUT+26, OUTPUT+27, OUTPUT+32, OUTPUT+35
PRHLOC	OUTPUT+2~
PRSE	SORT+29, SORT+31, SORT+33*, SORT1~, SORT1+17, SORT1+18, SORT1+24, SORT1+29
>> PRSE132	OUTPUT+29, OUTPUT+30, OUTPUT+31, OUTPUT+34, OUTPUT+35, OUTPUT+43, OUTPUT+49, NHDR+16, NHDR+21, NHDR+25 , NHDR+26, NHDR+30
>> PRSECLS	OUTPUT+8
>> PRSECLS(0	SORT1+44*, SORT1+47
>> PRSESEL	SORT+29, SORT+31, SORT+32, SORT+33, SORT1+21, NHDR+5
>> PRSETL	SORT+19, SORT+23, SORT+25, NHDR+24*, NHDR+25
>> PTAB	NHDR+9*, NHDR+14
>> PYR	NHDR+13
>> REPDT	NHDR+18
SERV	HWLIST+2~, HWLIST+13*, HWLIST+14
>> SERVICE	NHDR+16
>> SERVIEN	SORT+12, SORT+14, SORT+24, SORT1+38, SORT1+41, SORT1+47, SORT1+53, SORT1+54, OUTPUT+5, OUTPUT+13 , OUTPUT+16, OUTPUT+18, OUTPUT+19, OUTPUT+23, NHDR+32
>> SSN	SORT+13*, SORT+14, SORT+15, SORT+16
>> TYP	NHDR+12, NHDR+13
U	SORT+13, SORT+21, SORT1+47, OUTPUT+24, OUTPUT+25, OUTPUT+26, OUTPUT+27, OUTPUT+30, OUTPUT+32, OUTPUT+35
X	SORT1+36~, SORT1+38, SORT1+39, SORT1+40, SORT1+41, SORT1+47
>> Y	OUTPUT+34, NHDR+18
>> YREND	SORT1+34
>> YREND(1	NHDR+13
>> YRST	SORT1+34
>> YRST(1	NHDR+13
Z	NHDR+5~*, NHDR+10

Customize PDF page

Package: PAID

Routine: PRSEEMP4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: