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

Package: Nursing Service

Routine: NURSEPIN


Information

NURSEPIN ;HIRMFO/MD-INDIVIDUAL INSERVICE RECORD PRINT ;1/5/89 16:10

Source Information

Source file <NURSEPIN.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Nursing Service 7 EN3^NURSAGP1  (DATSEL,INS)^NURSAGP2  EN1^NURSAUTL  ^NURSKILL  (EN2,EN7)^NURSUT0  (CLOSE,ENDPG)^NURSUT1  EN10^NURSUT3  
Kernel 1 $$REPEAT^XLFSTR  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Nursing Service 1 NURSE-PR-MIND  

Entry Points

Name Comments DBIA/ICR reference
A
SORT ;
START ;
HEADER
QUIT
EN1 ;

External References

Name Field # of Occurrence
^%DT START+1
EN3^NURSAGP1 EN1+8
DATSEL^NURSAGP2 EN1+5
INS^NURSAGP2 EN1+4
EN1^NURSAUTL EN1+6
^NURSKILL QUIT
EN2^NURSUT0 START+1
EN7^NURSUT0 A
CLOSE^NURSUT1 QUIT
ENDPG^NURSUT1 HEADER
EN10^NURSUT3 EN1+6
$$REPEAT^XLFSTR HEADER+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"THERE IS NO DATA FOR THIS PERSON!"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,$S(NURS132:N1,1:$E(N1,1,25)),?$S(NURS132:55,1:27),$E($P(DATA,U,4),1,20)
  • Line Location: START+7
Function Call: WRITE
  • Prompt: ?$S(NURS132:85,1:50),$E(NDATE,4,5)_"/"_$E(NDATE,6,7)_"/"_$E(NDATE,2,3)
  • Line Location: START+7
Function Call: WRITE
  • Prompt: ?$S(NURS132:93,1:59),"-"_$E(+Y,4,5)_"/"_$E(+Y,6,7)_"/"_$E(+Y,2,3)
  • Condition for execution: Y
  • Line Location: START+8
Function Call: WRITE
  • Prompt: ?$S(NURS132:107,1:73),$J($P(DATA,U,2),2,2)
  • Line Location: START+8
Function Call: WRITE
  • Prompt: $S(NURS132:$P(DATA,U,8),1:$E($P(DATA,U,8),1,25))
  • Line Location: START+9
Function Call: WRITE
  • Prompt: ?$S(NURS132:55,1:27),$P(^(0),U),!
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !," CEUs: ",$J(+$P(DATA,U,5),2,2)_" Contact Hrs: ",$J(+$P(DATA,U,6),2,2)
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: "Total CEUs = "_$J(TLCEU,0,2)_" Total Contact Hrs = "_$J(TLCONT,0,2)_" "
  • Condition for execution: NURSEL="C"!(NURSEL="A")
  • Line Location: START+13
Function Call: WRITE
  • Prompt: "Total Class Hrs = "_$J(TLEN,0,2)
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !,"INDIVIDUAL "_$S(NURSEL="M":"M.I.",NURSEL="C":"C.E",NURSEL="W":"UNIT",NURSEL="O":"OTHER",1:"COMPLETE")_" TRAINING REPORT FOR "_$S(TYP="C":"CY ",TYP="F":"FY ",1:" ")
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: $S(TYP="C"!(TYP="F"):$G(Y(0)),1:$G(YRST(1))_" - "_$G(YREND(1)))
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: ?$S(NURS132:101,1:62),$E(NTODAY,4,5)_"/"_$E(NTODAY,6,7)_"/"_$E(NTODAY,2,3),?$S(NURS132:121,1:71),"PAGE: ",NURPAGE,!," "
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"CLASS",?$S(NURS132:55,1:27),"CLASS LOCATION",?$S(NURS132:85,1:50),"DATE(S)",?$S(NURS132:107,1:73),"CLASS HOURS"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"PRESENTER",?$S(NURS132:55,1:27),"SVC REASON"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",$S(NURS132:132,1:80)),!,"Employee Name: "_NAM_" "_NSTATUS,!
  • Line Location: HEADER+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] EN1+2
^NURSF(210 - [#210] START+1
^PRSE(452 SORT+3, SORT+5, SORT+6, SORT+10
^PRSE(452.1 SORT+8
^PRSE(452.6 START+10
^PRSE(452.7 EN1+1
^TMP("NURE" START+2!, START+3, START+4, START+6, START+10, QUIT!, SORT+9*, SORT+10*
^VA(200 - [#200] SORT+1, SORT+2

Label References

Name Line Occurrences
A EN1+6
HEADER START+3, START+5
QUIT EN1+4, EN1+5, EN1+6, EN1+8, A, START+3
SORT START+2

Naked Globals

Name Field # of Occurrence
^(0 START+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CLS SORT+3*, SORT+5
>> DA START+1*
>> DA(1 SORT+8*
>> DA(2 SORT+5*, SORT+6, SORT+9, SORT+10
>> DAT SORT+5*
>> DATA START+6*, START+7, START+8, START+9, START+11, SORT+6*, SORT+7, SORT+8, SORT+9
>> DATA(1 SORT+6*, SORT+8
>> DIC("S" EN1+7*
DUZ EN1+6
IO START+2
IOF HEADER+1
IOM START+2
IOSL START+5
IOST HEADER, HEADER+1, SORT+1
>> LEN SORT+8*
>> N1 START+4*, START+6, START+7
>> N2 EN1+6*, EN1+8*, START+1, SORT+1, SORT+2, SORT+3, SORT+5
>> NAM HEADER+7, SORT+2*, SORT+8
>> NDATE START+4*, START+6, START+7
NN START+1!*, START+2!
>> NPSPOS(1 START+1
>> NS2 START+4*, START+6, START+10
NSTATUS START+1*, QUIT+1!, HEADER+7
>> NSW2 START+2*, START+7*, HEADER+1*
NTODAY START+1*, QUIT+1!, HEADER+4
>> NUROUT EN1+3*, EN1+4, EN1+5, EN1+6, EN1+8, START+2*, START+3*, START+4, START+5, START+13
, HEADER
>> NURPAGE START+2*, HEADER+1*, HEADER+4
>> NURQUEUE EN1+3*, HEADER
>> NURS132 START+2*, START+7, START+8, START+9, START+10, HEADER+4, HEADER+5, HEADER+6, HEADER+7
>> NURSE SORT+3*, SORT+4, SORT+5
>> NURSEL START+13, HEADER+2, SORT+4
>> NURSW1 START+2*, START+5, HEADER, HEADER+1*
>> NURSZAP EN1+6
>> PDA START+10*, SORT+10*
>> POP A
>> TLCEU START+2*, START+11*, START+13
>> TLCONT START+2*, START+11*, START+13
>> TLEN START+2*, START+11*, START+13
>> TYP HEADER+2, HEADER+3
U EN1+8, START+7, START+8, START+9, START+10, START+11, SORT+1, SORT+2, SORT+6, SORT+7
, SORT+8, SORT+9
>> X EN1+1*, EN1+2*, START+1*, START+10*, SORT+8*, SORT+9
>> Y EN1+8, START+1, START+8*
>> Y(0 HEADER+3
>> YREND SORT+7
>> YREND(1 HEADER+3
>> YRST SORT+7
>> YRST(1 HEADER+3
>> ZTRTN A*
>> ZTSK A
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All