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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: NURAED1

Package: Nursing Service

Routine: NURAED1


Information

NURAED1 ;HIRMFO/MD,RM-EDIT FOR POSITION ;8/19/97

Source Information

Source file <NURAED1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Nursing Service 8 (EN1,VALE0,VALENT,VALSEL)^NURAED2  (MORHELP,STST)^NURAED4  EN1^NURAED6  EN9^NURSAGSP  EN7^NURSAUTL  EN2^NURSUT0  EN1^NURSUT2  $$EN13^NURSUT3  
VA FileMan 2 YN^DICN  $$GET1^DIQ  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Nursing Service 4 NURAED-STF-LOC  NURAED0  NURAED2  NURASPL  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
SELECT
NOPOS
NOPOS1
QB
QC ; KILL VARIABLES
HEADER ;HEADER FOR ALL INPUTS
WRITE ; CALL TO DISPLAY THE POSITIONS FOR THIS STAFF MEMBER
; +NURSDBA=210 FILE ENTRY, NURSTDT=DATE FOR WHICH LISTING BEGINS
WRT1 ; POSITION DISPLAY
DISPLAY ; DATA DISPLAY
SETARY ; SET NURSASS ARRAY FROM NURAS ARRAY
CKASN ; SET NURAS ARRAY FOR POSITIONS ACTIVE AFTER NURSTDT
MSG

External References

Name Field # of Occurrence
^%ZIS HEADER+1
YN^DICN NOPOS1
$$GET1^DIQ DISPLAY+9
EN1^NURAED2 NOPOS1+4
VALE0^NURAED2 NOPOS1+5
VALENT^NURAED2 NOPOS1+6
VALSEL^NURAED2 NOPOS1+3
MORHELP^NURAED4 NOPOS1+3
STST^NURAED4 NURAED1+2
EN1^NURAED6 NOPOS1+7
EN9^NURSAGSP DISPLAY+1
EN7^NURSAUTL DISPLAY+5
EN2^NURSUT0 HEADER+1, WRT1+4
EN1^NURSUT2 WRT1+9
$$EN13^NURSUT3 DISPLAY+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THERE ARE NO ",$S(NURLS="P":"PAST ",NURLS="C":"CURRENT ",1:""),"EMPLOYEE ASSIGNMENTS "
  • Line Location: NOPOS+0
Function Call: WRITE
  • Prompt: "AFTER SELECTED DATE"
  • Condition for execution: NURLS="P"
  • Line Location: NOPOS+0
Function Call: READ
  • Variable: NURAES
  • Timeout: DTIME
  • Line Location: NOPOS1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NEW ASSIGNMENTS MUST BE ADDED FROM THE CURRENT DISPLAY SCREEN"
  • Line Location: NOPOS1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NOPOS1+3
Function Call: WRITE
  • Prompt: @IOF,!!,?25,"EMPLOYEE: ",$P(^VA(200,$P(^NURSF(210,+NURSDBA,0),U),0),U)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?$X+2,NPSPOS
  • Condition for execution: $D(NPSPOS)
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?25,"SSN: ",NSSN,!!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!?24,"STATUS: ",$S($P(^NURSF(210,+NURSDBA,0),U,2)="A":"ACTIVE",$P(^(0),U,2)="I":"INTERMITTENT",1:"INACTIVE")
  • Line Location: WRT1+3
Function Call: WRITE
  • Prompt: !?6,"PRIMARY SERVICE POSITION: ",$E($P(^NURSF(211.3,NPSPOS(0),0),U,2),1,24)
  • Line Location: WRT1+5
Function Call: WRITE
  • Prompt: !,"PRIMARY SVC. POS. PRODUCT LINE: ",NPSPOS(2)
  • Line Location: WRT1+6
Function Call: WRITE
  • Prompt: !?1,"PRIMARY LOCATION PRODUCT LINE: ",NPSPOS(4)
  • Line Location: WRT1+7
Function Call: WRITE
  • Prompt: !?14,"PRIMARY FACILITY: ",$G(NPSPOS(3))
  • Line Location: WRT1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT1+10
Function Call: WRITE
  • Prompt: !!,"LOCATION"_$S($G(NURPLSW):"/",1:""),?16,"POSITION"_$S($G(NURPLSW):"/",1:""),?33,"DUTY",?49,"START",?59,"VACANCY",?70,"FTEE"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: "PRODUCT LINE"
  • Condition for execution: NURPLSW
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: ?16,"PRODUCT LINE"
  • Condition for execution: NURPLSW
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: ?33,"TOUR",?49,"DATE",?59,"DATE",!
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: ?33,"TOUR",?49,"DATE",?59,"DATE",!
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,NURSANM,$S($P(NDATA,U,9):" (P)",1:"")
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: ?19,$S($D(^NURSF(211.3,+$P(NDATA,U,3),0)):$P(^(0),U),1:$P(NDATA,U,3))
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: ?33,$S($D(^NURSF(211.6,+$P(NDATA,U,10),0)):$E($P(^(0),U),1,15),1:$P(NDATA,U,10))
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: ?49,$E(+NDATA,4,5)_"/"_$E(+NDATA,6,7)_"/"_$E(+NDATA,2,3)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: ?59,$E(+$P(NDATA,U,6),4,5)_"/"_$E(+$P(NDATA,U,6),6,7)_"/"_$E(+$P(NDATA,U,6),2,3)
  • Condition for execution: +$P(NDATA,U,6)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: ?70,$J($P(NDATA,U,4),2,3)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,?2,$E($$EN13^NURSUT3(+$G(NURSASS(NURSANM))),1,17)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: ?21,$E($$GET1^DIQ(212.7,+Y,.01,"I"),1,17)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: $C(7),!!,"NEW ASSIGNMENTS MUST BE ADDED FROM THE CURRENT DISPLAY SCREEN."
  • Line Location: MSG+0
Routine Call
  • %ZIS
  • Line Location:
    • HEADER+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(212.7 - [#212.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] WRT1+8
^NURSF(210 - [#210] NURAED1+2, HEADER+1, HEADER+2, WRT1+3
^NURSF(211.3 - [#211.3] WRT1+5, DISPLAY+6, DISPLAY+9
^NURSF(211.6 - [#211.6] DISPLAY+7
^NURSF(211.8 - [#211.8] WRITE+3, WRT1+9, CKASN+3, CKASN+4
^VA(200 - [#200] HEADER+1, HEADER+2

Label References

Name Line Occurrences
CKASN WRITE+3
DISPLAY WRT1+1
NOPOS NOPOS1
QB NURAED1+2, NOPOS1+1, NOPOS1+3, NOPOS1+4
SELECT NOPOS1+2, NOPOS1+3, NOPOS1+4, NOPOS1+6, NOPOS1+7
SETARY WRITE+4
WRITE SELECT, NOPOS1
WRT1 NOPOS1+1

Naked Globals

Name Field # of Occurrence
^(0 NURAED1+2, HEADER+1, WRITE+3, WRT1+3, DISPLAY+6, DISPLAY+7, CKASN+3, CKASN+4
^(1 HEADER+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOPOS1*, QB!
DA QC+1!, WRT1+4*
DT CKASN+2
DTIME NOPOS1+1
I QC+1!, WRITE+4*, SETARY+1
IOF HEADER+2
ION HEADER+1
IOP HEADER+1*!
J QC+1!, WRITE+4*, SETARY+1
MSG NOPOS1+4, QB!
NCNT QC+1!, WRITE+2*, SETARY+1*
NDA QC+1!, WRITE+3*, WRITE+4*, SETARY+1, CKASN+3, CKASN+4
NDATA QC+1!, WRITE+3*, DISPLAY+1*, DISPLAY+4, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, CKASN+1, CKASN+2
, CKASN+3, CKASN+4
NID NURAED1+2*, QC+1!, WRITE+3, WRT1+9
NL1 QB!
NNM HEADER+1*, HEADER+3!
NOD QC+1!, WRITE+3*, WRITE+4*, SETARY+1, CKASN+3, CKASN+4
NOD1 QC+1!
NOD2 QC+1!
NPSPOS QC+1!, HEADER+2, HEADER+3!, WRT1+4!, WRT1+5
NPSPOS(0 WRT1+5
NPSPOS(2 WRT1+6
NPSPOS(3 WRT1+8
NPSPOS(4 WRT1+7
NPTR HEADER+3!
NPWARD QC+1!, DISPLAY+5*
NSSN HEADER+1*, HEADER+2, HEADER+3!
>> NUR("CNTR" NOPOS1+5*
>> NUR("DA" WRT1+9*
NUR1 QB!
NUR10 QB!
NUR2 QB!
NUR3 QB!
NURAES NOPOS*, NOPOS1+1*, NOPOS1+2, QB!
NURAS QB!, WRITE+2!, WRT1+11!
NURAS( WRITE+4, SETARY+1
NURAS(9999999 CKASN+3*, CKASN+4*
NURASS WRITE+2!
NURCAT QB!
NURFLAG QC+1!
NURLS NOPOS, NOPOS1*, NOPOS1+2, QC+1!, WRT1+9, CKASN+1, CKASN+2, CKASN+3
>> NURMDSW DISPLAY+1*
>> NUROUT NURAED1+2*, NOPOS1+1*, NOPOS1+3, NOPOS1+4, NOPOS1+6*, NOPOS1+7
>> NURPLSW WRT1+6, WRT1+7, DISPLAY+1*, DISPLAY+2, DISPLAY+3, DISPLAY+9
NURSANM NOPOS1+5*, QC+1!, WRT1+1*, DISPLAY+1, DISPLAY+4, DISPLAY+5, DISPLAY+9
NURSASS SELECT!, QC+1!
NURSASS( NOPOS1+5, WRT1+1, DISPLAY+1, DISPLAY+5, DISPLAY+9, SETARY+1*
NURSASS("" NOPOS, NOPOS1, NOPOS1+1, NOPOS1+7, WRT1+2
NURSBAD NOPOS1+3*, QB!
>> NURSDBA NURAED1+2, HEADER+1, HEADER+2, WRT1+3, WRT1+4, WRT1+9
NURSDFLT QC+1!
NURSNPOS QC+1!
NURSOPOS QC+1!
NURSPOS QC+1!
NURST QC+1!
NURSTDT QC+1!, CKASN+1, CKASN+2
NURSUL SELECT!, QB!
NURSW1 QC+1!, WRITE+2*, DISPLAY+2, DISPLAY+3*
NURSX QC+1!
NURTFTEE QC+1!, WRT1+9
NURY QB!
NWARD QB!
NX QB!
NZ QC+1!
U NURAED1+2, NOPOS1+1, HEADER+1, HEADER+2, WRT1+3, WRT1+5, WRT1+8, DISPLAY+1, DISPLAY+4, DISPLAY+5
, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, SETARY+1, CKASN+1, CKASN+2, CKASN+3, CKASN+4
X QB!, DISPLAY+9*
Y QB!, DISPLAY+9*
Z QB!, DISPLAY+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All