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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRSEEMP4

Package: PAID

Routine: PRSEEMP4


Information

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

Source Information

Source file <PRSEEMP4.m>

Call Graph

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:

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 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All