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

Package: PAID

Routine: PRSNUT03


Information

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

Source Information

Source file <PRSNUT03.m>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call