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

Package: PAID

Routine: PRSNUT02


Information

PRSNUT02 ;WOIFO/JAH - Nurse Activity for VANOD Utilities;6/19/2009

Source Information

Source file <PRSNUT02.m>

Entry Points

Name Comments DBIA/ICR reference
ACCESS(GRPS,ACCTYPE,PRSDT,MANY) ;return the user selected Group
DIVACC(PRSDT,NDIVI) ; Return Nurse Access parameter for a division
TLACC(TG,DM,DG,TND,DNP,INDEX,IEN200,PRSDT) ;get T&Ls user has access to.
; The T&L's division must also have access parameter set to T&L unit.
; Also return T&L's with no division or T&L's with a division (but the
; division parameter isn't set) for warning messages but don't add
; these to selection list.
;
; OUTPUT:
; TG: temporary array of groups user has access to
; DM: Division Map-array of divisions
; DG: Division group array
; TND: T&L with no divisions array
; DNP: divisions with no parameter array
NLACC(TG,DM,DG,NND,DNP,INDEX,IEN200,PRSDT) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"WARNING:",!?5,"========="
  • Line Location: ACCESS+63
Function Call: WRITE
  • Prompt: !?5,"You have access to the following T&L unit(s), but no division"
  • Line Location: ACCESS+64
Function Call: WRITE
  • Prompt: !?5," has been entered for the T&L(s):"
  • Line Location: ACCESS+65
Function Call: WRITE
  • Prompt: !?8,TLE
  • Line Location: ACCESS+68
Function Call: WRITE
  • Prompt: !!,"WARNING: ",!,"========"
  • Line Location: ACCESS+80
Function Call: WRITE
  • Prompt: !?5,"You have access to location(s) or T&L units in the following"
  • Line Location: ACCESS+81
Function Call: WRITE
  • Prompt: !?5,"division(s), but the division parameter has not been set by"
  • Line Location: ACCESS+82
Function Call: WRITE
  • Prompt: !?5,"the package coordinator:",!
  • Line Location: ACCESS+83
Function Call: WRITE
  • Prompt: !?7,NDIVI,?17,FIELDS(4,NDIVI_",",.01,"E"),?34,FIELDS(4,NDIVI_",",99,"E")
  • Line Location: ACCESS+87
Function Call: WRITE
  • Prompt: !?5,"You have access to location(s) or T&L units in more than one division"
  • Line Location: ACCESS+101

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSF(211.4 - [#211.4] Classic Fileman Calls,  GETS^DIQ
^DIC(4 - [#4] Classic Fileman Calls,  GETS^DIQ
^SC - [#44] GET1^DIQ
^PRST(455.5 - [#455.5] Classic Fileman Calls,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call