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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(212.7 - [#212.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call