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

Package: Nursing Service

Routine: NURACUIT


Information

NURACUIT ;HIRMFO/MD-ROUTINE TO REPAIR FUTURE ACUITY DATA FROM ERRONEOUS BATCH RUN

Source Information

Source file <NURACUIT.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^%DT  ^DIK  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Remove future date entries from the unclassified report (#213.5) file.
; There should be no unclassified report file entries later than T-1.
EN2 ; Remove acuity data from future date entries in manhours file (#213.4).
EN3 ; Reset Date node in site parameter file to current date if date is
; in the future.
KILL ;

External References

Name Field # of Occurrence
^%DT EN1+4
^DIK EN1+5, EN2+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Done"
  • Line Location: NURACUIT+8
Function Call: WRITE
  • Prompt: !,"Removing future date entries from the NURS AMIS Daily Exception Report",!,"(#213.5) file"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !,"Removing acuity data from future date entries in the NURS AMIS 1106 Manhours",!,"file (#213.4)"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: !,"Resetting ^DIC(213.9,1,""DATE"") to today's date if it is a future date."
  • Line Location: EN3+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSA(213.4 - [#213.4] Classic Fileman Calls
^NURSA(213.5 - [#213.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(213.9 - [#213.9] EN3+4*
^NURSA(213.4 - [#213.4] EN2+4, EN2+5
^NURSA(213.5 - [#213.5] EN1+5

Label References

Name Line Occurrences
EN1 NURACUIT+7
EN2 NURACUIT+7
EN3 NURACUIT+7
KILL EN1+6, EN2+10, EN3+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA KILL+1!, EN1+5*, EN2+5*
DA(1 EN2+4*, EN2+5
DIK KILL+1!, EN1+5*, EN2+6*
DT EN2+3, EN3+4
NURSX KILL+1!, EN1+5*, EN2+3*, EN2+4*
RUNDATE KILL+1!, EN1+4*, EN1+5
X KILL+1!, EN1+4*
Y KILL+1!, EN1+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All