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 |  Local Variables  | All
Print Page as PDF
Routine: PRSNUT03

Package: PAID

Routine: PRSNUT03


Information

PRSNUT03 ;;WOIFO/JAH - Nurse Activity for VANOD Utilities;6/5/2009

Source Information

Source file <PRSNUT03.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 8 (,FIND)^DIC  MIX^DIC1  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
PAID 3 $$ASK^PRSLIB00  $$ISNURSE^PRSNUT01  ($$DIV,$$NLIEN,$$PRIMLOC)^PRSNUT03  
Nursing Service 1 EN2^NURSUT2  

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

Package Total Caller Graph
PAID 27 PRSN NURSES BY LOC/T&L  PRSNAA01  PRSNAC01  PRSNCGR1  PRSNCR1  PRSNDPC1  PRSNEC  PRSNEE  
PRSNRAS0  PRSNRDN0  PRSNREV0  PRSNRGD0  PRSNRGS0  PRSNRIA  PRSNRLND  PRSNRLOS  
PRSNRLS0  PRSNRMM1  PRSNRND0  PRSNROLD  PRSNROLS  PRSNRSM0  PRSNRUR  PRSNRUT0  
PRSNUT03  PRSNUT04  PRSNUT05  

Entry Points

Name Comments DBIA/ICR reference
PRIMLOC(IEN200) ; RETURN NURSES PRIMARY ASSIGMENT LOCATION
NLIEN(NLE) ;
; INPUT:
; NLE - nurse location external name (without NUR prefix)
; OUTPUT:
; function returns 211.4 IEN ^ .01 pointer ^ external
LOCNOD(LOC) ; given a location in 211.4 return the node necessary to find
; all the nurses in 211.8 with that primary location out of the
; "D" index on the primary assignment field.
PICKNURS(GROUP,VALUE) ; pick a nurse from a t&l or location
; INPUT:
; GROUP = T for T&L or N for Nurse Location
; VALUE = IEN (T&L 455.5 or Nurse Location 211.4)
; OUTPUT:
; function returns a Nurse file 450 (IEN^external Name)
DIV(GROUP,VALUE) ; Return the division of a location or a T&L unit
ENTRYPNT ;
ALNURLST(FLAG,SORT,SHOWNURS) ;List all Nurses in file 450
; INPUT:
; FLAG - set to true if you want to attempt to add the Nurse
; to file 200. this will also convert any numbers in
; the name from file 450 to letters
; SORT - (required) If "N" will sort by Nurse location, "T"
; report sorts by T&L unit.
; SHOWNURS - Set to true if you want to see the full info
; about a nurses role
GATHER ;
REPORT(STOP) ;
TOTAL(STOP) ;
ADDNRS ;
; edit PAID 450 Employee name replaceing digits 0..9 with A..J
HDR ;
BLDMAP(DIVMAP) ; BUILD A DIVISION MAP OF LOCATIONS
SELECT(DM) ; Allow selection of one or all from division

External References

Name Field # of Occurrence
^%ZIS ENTRYPNT+21
^%ZISC ALNURLST+19
^%ZTLOAD ENTRYPNT+33
^DIC PICKNURS+24, SELECT+5
FIND^DIC NLIEN+9
MIX^DIC1 PICKNURS+18
FILE^DICN ADDNRS+14
^DIE ADDNRS+7, ADDNRS+19
$$GET1^DIQ DIV+12, DIV+14, DIV+15, DIV+16
^DIR ENTRYPNT+9, ENTRYPNT+16
^DIWP REPORT+39
^DIWW REPORT+39
EN2^NURSUT2 PRIMLOC+20
$$ASK^PRSLIB00 REPORT+43, REPORT+44
$$ISNURSE^PRSNUT01 GATHER+5
$$DIV^PRSNUT03 REPORT+14, BLDMAP+4
$$NLIEN^PRSNUT03 PRIMLOC+21, REPORT+11
$$PRIMLOC^PRSNUT03 GATHER+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Request "_ZTSK_" Queued."
  • Line Location: ENTRYPNT+34
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: GATHER+11
Function Call: WRITE
  • Prompt: !?17,$S($G(SORT)="N":"NURSING LOCATION: ",1:"T&L UNIT: ")
  • Line Location: REPORT+9
Function Call: WRITE
  • Prompt: GROUP,!,?17,"STATION: ",$P(SD,U)," (",$P(SD,U,2),")"
  • Line Location: REPORT+15
Function Call: WRITE
  • Prompt: !?12,"--------------------------------------------"
  • Line Location: REPORT+16
Function Call: WRITE
  • Prompt: !,NAME,?23,SSN,?28,PRSIEN,?35,IEN200
  • Line Location: REPORT+28
Function Call: WRITE
  • Prompt: ?46,$S($G(SORT)="N":TL,1:NL)
  • Line Location: REPORT+29
Function Call: WRITE
  • Prompt: !,?5,$P(NURTYP,U,1),?25,$P(NURTYP,U,2),?50,$P(NURTYP,U,3),!
  • Line Location: REPORT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+41
Function Call: WRITE
  • Prompt: ?63,X
  • Line Location: REPORT+42
Function Call: WRITE
  • Prompt: !,"ALL DONE"
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: ": User Aborted"
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !,"VA Nurse Count: ",NCNT,!,"Nurses with DUZ: ",N2CNT
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: !,"NAME: ",NAME,!,"NEW: ",NEWNAME,!,"Y: ",Y,!,"Y(0): ",$G(Y(0))
  • Line Location: ADDNRS+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?68,"PAGE ",PAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !," NAME",?21,"SSN",?26,"IEN 450",?35,"IEN 200"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?46,$S($G(SORT)="N":"T&L",1:"PRIM LOC")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !," NURSE ROLE"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?64,"NURSE TYPE"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"======================================================================="
  • Line Location: HDR+10
Routine Call
  • %ZIS
  • Line Location:
    • ENTRYPNT+21
Routine Call
  • DIC
  • Line Location:
    • PICKNURS+24
    • SELECT+5
Routine Call
  • DIC
  • Line Location:
    • NLIEN+9
Routine Call
  • DIE
  • Line Location:
    • ADDNRS+7
    • ADDNRS+19
Routine Call
  • DIR
  • Line Location:
    • ENTRYPNT+9
    • ENTRYPNT+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^NURSF(211.4 - [#211.4] FIND^DIC
^DIC(4 - [#4] Classic Fileman Calls,  GET1^DIQ
^SC - [#44] GET1^DIQ
^PRSPC - [#450] Classic Fileman Calls
^PRST(455.5 - [#455.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^NURSF(210 - [#210] PRIMLOC+14
^NURSF(211.4 - [#211.4] LOCNOD+4, PICKNURS+20, DIV+11, BLDMAP+3
^NURSF(211.8 - [#211.8] LOCNOD+6
^PRSPC - [#450] GATHER+4, GATHER+7, GATHER+12, GATHER+13
^PRST(455.5 - [#455.5] PICKNURS+16, REPORT+13
^TMP($J ALNURLST+12!, GATHER+34*, GATHER+35*, REPORT+8, REPORT+18, REPORT+20, REPORT+21, REPORT+22
^UTILITY($J REPORT+38!
^VA(200 - [#200] GATHER+21

Label References

Name Line Occurrences
$$SELECT ENTRYPNT+3
ADDNRS GATHER+30
ALNURLST ENTRYPNT+36
BLDMAP ENTRYPNT+2
GATHER ALNURLST+15
HDR REPORT+7, REPORT+43
REPORT ALNURLST+17
TOTAL ALNURLST+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ENTRYPNT+19~, ENTRYPNT+20*
D PICKNURS+10~, PICKNURS+17*
D0 PRIMLOC+13~, PRIMLOC+14*, PRIMLOC+15
DA ADDNRS+6~, ADDNRS+7*, ADDNRS+19*
DAT REPORT+4~, REPORT+21*, REPORT+23, REPORT+24, REPORT+25, REPORT+26, REPORT+27
DD ADDNRS+13!
DIC PICKNURS+10~, PICKNURS+12*, ADDNRS+12~, ADDNRS+14*, SELECT+1~, SELECT+2*
DIC("A" PICKNURS+11*, SELECT+4*
DIC("S" PICKNURS+15*, PICKNURS+23*, SELECT+3*
DIC(0 PICKNURS+13*, ADDNRS+14*, SELECT+2*
DIE ADDNRS+6~, ADDNRS+7*, ADDNRS+19*
DIR ENTRYPNT+5~, ENTRYPNT+12~
DIR("A" ENTRYPNT+8*, ENTRYPNT+15*
DIR("B" ENTRYPNT+7*, ENTRYPNT+14*
DIR(0 ENTRYPNT+6*, ENTRYPNT+13*
DIRUT ENTRYPNT+5~, ENTRYPNT+10, ENTRYPNT+17
DIV DIV+9~, DIV+15*, DIV+17
DIVINFO BLDMAP+1~, BLDMAP+4*, BLDMAP+5, BLDMAP+6
DIVMAP ENTRYPNT+1~, ENTRYPNT+2, ENTRYPNT+3, BLDMAP~
DIVMAP("IN" BLDMAP+6*
DIVMAP("NL" GATHER+26, BLDMAP+5*
DIVS ENTRYPNT+1~, ENTRYPNT+3*, ENTRYPNT+4, GATHER+31
DIWF REPORT+37*, REPORT+39!
DIWL REPORT+36*, REPORT+39!
DM SELECT~
DO ADDNRS+13!
DR ADDNRS+6~, ADDNRS+7*, ADDNRS+19*
DTOUT SELECT+1~, SELECT+6
DUOUT SELECT+1~, SELECT+6
FLAG ALNURLST~, GATHER+11, GATHER+30, REPORT+44
GIEN REPORT+4~, REPORT+11*, REPORT+13*, REPORT+14
GROUP PICKNURS~, PICKNURS+7, PICKNURS+14, DIV~, DIV+8, DIV+10, REPORT+6*, REPORT+8*, REPORT+11, REPORT+13
, REPORT+15, REPORT+18, REPORT+20, REPORT+21, REPORT+22
IEN200 PRIMLOC~, PRIMLOC+11, PRIMLOC+14, GATHER+1~, GATHER+12*, GATHER+19, GATHER+21, GATHER+22, GATHER+34, REPORT+24*
, REPORT+28
IO ALNURLST+11
IO("Q" ENTRYPNT+23, ENTRYPNT+24!
IOF GATHER+11, HDR+1
IOP ENTRYPNT+19~
IOSL REPORT+43
LIEN BLDMAP+1~, BLDMAP+2*, BLDMAP+3*, BLDMAP+4, BLDMAP+5
LOC LOCNOD~, LOCNOD+4
LOCE PRIMLOC+19~, NLIEN+6~, NLIEN+12*, NLIEN+13
LOCI PRIMLOC+19~, NLIEN+6~, NLIEN+11*, NLIEN+13
LOCP NLIEN+6~, NLIEN+10*, NLIEN+13
N2CNT ALNURLST+13~, ALNURLST+14*, GATHER+20*, TOTAL+2
NAME GATHER+1~, GATHER+15*, GATHER+34, REPORT+23*, REPORT+28, ADDNRS+4, ADDNRS+5
NCNT ALNURLST+13~, ALNURLST+14*, GATHER+9*, TOTAL+2
NEWNAME ADDNRS+3~, ADDNRS+4*, ADDNRS+5, ADDNRS+14
NL GATHER+2~, GATHER+18*, GATHER+22*, GATHER+23, GATHER+25, GATHER+26, REPORT+4~, REPORT+25*, REPORT+29
NLDIV GATHER+2~, GATHER+18*, GATHER+26*, GATHER+28*, GATHER+31
NLE NLIEN~, NLIEN+7, NLIEN+9, GATHER+2~, GATHER+18*, GATHER+23*, GATHER+24*, GATHER+28*, GATHER+32, GATHER+33
, GATHER+34
NLP DIV+9~, DIV+11*, DIV+12
NTL REPORT+4~, REPORT+34*, REPORT+35
NURTYP GATHER+1~, GATHER+10*, GATHER+35, REPORT+22*, REPORT+31, REPORT+33
OUT GATHER+1~
P4 DIV+9~, DIV+12*, DIV+14*, DIV+15, DIV+16, DIV+17
PAGE REPORT+4~, REPORT+5*, HDR+2*, HDR+3
PL NLIEN+6~
PL("DILIST" NLIEN+10, NLIEN+11, NLIEN+12
POINT44 LOCNOD+3~, LOCNOD+4*, LOCNOD+5, LOCNOD+6
POP ENTRYPNT+19~, ENTRYPNT+22
PRSIEN GATHER+1~, GATHER+3*, GATHER+4*, GATHER+5, GATHER+7, GATHER+12, GATHER+13, GATHER+34, GATHER+35, REPORT+4~
, REPORT+19*, REPORT+20*, REPORT+21, REPORT+22, REPORT+28, ADDNRS+7
REFD PICKNURS+10~, PICKNURS+20*
S1 PICKNURS+10~
S2 PICKNURS+10~
S3 PICKNURS+10~, PICKNURS+21*
SD REPORT+4~, REPORT+14*, REPORT+15
SEPFLAG GATHER+2~, GATHER+7*, GATHER+8
SHOW ENTRYPNT+5~
SHOWNURS ENTRYPNT+18*, ENTRYPNT+36, ALNURLST~, REPORT+30, HDR+6
SORT ALNURLST~, ALNURLST+10, GATHER+32, GATHER+33, REPORT+9, REPORT+10, REPORT+14, REPORT+29, HDR+5
SRT ENTRYPNT+5~, ENTRYPNT+11*, ENTRYPNT+36
SRT1 GATHER+2~, GATHER+32*, GATHER+34, GATHER+35
SRT2 GATHER+2~, GATHER+33*, GATHER+34, GATHER+35, REPORT+17*, REPORT+18*, REPORT+20, REPORT+21, REPORT+22
SSN GATHER+1~, GATHER+14*, GATHER+34, REPORT+27*, REPORT+28
SSN200 GATHER+1~, GATHER+21*, GATHER+34
STANUM DIV+9~, DIV+16*, DIV+17
STOP ALNURLST+16~, ALNURLST+17, ALNURLST+18, REPORT~, REPORT+5*, REPORT+8, REPORT+18, REPORT+20, REPORT+43*, REPORT+44*
, TOTAL~, TOTAL+1
TL REPORT+4~, REPORT+26*, REPORT+29
TLE PICKNURS+10~, PICKNURS+16*, PICKNURS+17, GATHER+1~, GATHER+16*, GATHER+17*, GATHER+32, GATHER+33, GATHER+34
U NLIEN+13, PICKNURS+7, PICKNURS+16, DIV+8, DIV+17, ALNURLST+10, GATHER+7, GATHER+10, GATHER+12, GATHER+14
, GATHER+15, GATHER+16, GATHER+21, GATHER+23, GATHER+26, GATHER+34, REPORT+15, REPORT+23, REPORT+24, REPORT+25
, REPORT+26, REPORT+27, REPORT+31, REPORT+33, BLDMAP+6
VALUE PICKNURS~, PICKNURS+8, PICKNURS+16, PICKNURS+20, DIV~, DIV+11, DIV+14
X PRIMLOC+19~, PRIMLOC+21, PICKNURS+10~, ENTRYPNT+5~, ENTRYPNT+12~, GATHER+1~, GATHER+5*, GATHER+6, GATHER+10, REPORT+33*
, REPORT+34, REPORT+42, ADDNRS+12~, ADDNRS+14*, SELECT+1~
Y PICKNURS+10~, PICKNURS+25, ENTRYPNT+5~, ENTRYPNT+11, ENTRYPNT+12~, ENTRYPNT+18, ADDNRS+5, ADDNRS+12~, ADDNRS+18, ADDNRS+19
, SELECT+1~, SELECT+7
Y(0 ADDNRS+5
ZNODE GATHER+1~, GATHER+13*, GATHER+14, GATHER+15, GATHER+16
ZTCPU ENTRYPNT+25~
ZTDESC ENTRYPNT+25~, ENTRYPNT+26*
ZTDTH ENTRYPNT+25~
ZTIO ENTRYPNT+25~
ZTKIL ENTRYPNT+25~
ZTPRI ENTRYPNT+25~
>> ZTREQ ENTRYPNT+34*
ZTRTN ENTRYPNT+25~, ENTRYPNT+27*
ZTSAVE ENTRYPNT+25~
ZTSAVE("DIVMAP(" ENTRYPNT+31*
ZTSAVE("DIVS" ENTRYPNT+32*
ZTSAVE("FLAG" ENTRYPNT+30*
ZTSAVE("SHOWNURS" ENTRYPNT+28*
ZTSAVE("SRT" ENTRYPNT+29*
ZTSK ENTRYPNT+25~, ENTRYPNT+34
ZTSYNC ENTRYPNT+25~
ZTUCI ENTRYPNT+25~
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 |  Local Variables  | All