Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls