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

Package: Nursing Service

Routine: NURAAU2


Information

NURAAU2 ;HIRMFO/RM/MD-BACKUP IF NURAAU0 NOT RUN...AMIS 1106a ;6/5/97

Source Information

Source file <NURAAU2.m>

Entry Points

Name Comments DBIA/ICR reference
HSKEEP ;EXPLAIN WHAT TO DO WITH THIS ROUTINE
HSKEEP1 ;SET ACUITY RUN SWITCH, AND RUN NURAAU0
START
KILLVAR ;KILL LOCAL VARIABLES
DOMRECNT ;
EN2 ; PRINT PATIENT NOT CLASSIFIED REPORT FROM OPTIONS NURAAM-UNC/NURAAM-MD-UNC
START2
KILL ;
EN3 ; ENTRY FROM OPTION NURAAM-UNCBAT QUEUED AMIS UNCLASSIFIED REPORT AND
; OPTION NURAAM-MD-UNCBAT QUEUED MIDNIGHT ACUITY UNCLASSIFIED REPORT
START1
SORT ;
PRINT ;
HEADER ;HEAD ROUTINE
HEADER1
REASON(NURPARM) ; REASON FOR PATIENT NOT BEING INCLUDED IN AMIS COUNT
ABSENCE(NURPARM) ; PATIENT ABSENCE CODES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",80)
  • Line Location: HSKEEP+3
Function Call: WRITE
  • Prompt: !,$C(7),"*****",?$X+70,"*****"
  • Line Location: HSKEEP+4
Function Call: WRITE
  • Prompt: !,"*****",?$X+19,"** WARNING -- SPECIAL RUNNING **",?$X+19,"*****"
  • Line Location: HSKEEP+5
Function Call: WRITE
  • Prompt: !,$C(7),"*****",?$X+70,"*****"
  • Line Location: HSKEEP+6
Function Call: WRITE
  • Prompt: !,"*****",?$X+11,"THE PURPOSE OF THIS OPTION IS TO UPDATE THE NURSING",?$X+8,"*****"
  • Line Location: HSKEEP+7
Function Call: WRITE
  • Prompt: !,"*****",?$X+11,"PACKAGE ACUITY-EMPLOYEE ACTIVATION/SEPARATION COUNTS ",?$X+6,"*****"
  • Line Location: HSKEEP+8
Function Call: WRITE
  • Prompt: !,"*****",?$X+11,"THIS ROUTINE SHOULD BE RUN IF TASKMAN IS INOPERABLE",?$X+8,"*****"
  • Line Location: HSKEEP+9
Function Call: WRITE
  • Prompt: !,$C(7),"*****",?$X+70,"*****"
  • Line Location: HSKEEP+10
Function Call: WRITE
  • Prompt: !,"*****",?$X+11,"CONTACT THE NURSING ADP COORDINATOR TO CONFIRM THAT THE",?$X+4,"*****"
  • Line Location: HSKEEP+11
Function Call: WRITE
  • Prompt: !,"*****",?$X+11,"ACUITY (AMIS 1106) UPDATE WILL BE RUN TONIGHT VIA",?$X+10,"*****"
  • Line Location: HSKEEP+12
Function Call: WRITE
  • Prompt: !,"*****",?$X+11,"TASKMAN.",?$X+51,"*****"
  • Line Location: HSKEEP+13
Function Call: WRITE
  • Prompt: !,$C(7),"*****",?$X+70,"*****"
  • Line Location: HSKEEP+14
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",80)
  • Line Location: HSKEEP+15
Function Call: WRITE
  • Prompt: @IOF,!!,"... BACKUP/NURSING ACUITY - EMPLOYEE SEP/ACT RUN"
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+7
Function Call: WRITE
  • Prompt: !!,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?1,$E(VADM(1),1,20)_" -"_$P($G(VADM(2)),"-",3)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?31,$$REASON^NURAAU2(Y)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?53,$$ABSENCE^NURAAU2(Z)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?53,$$ABSENCE^NURAAU2(Z)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?62,$E(Y,1,18)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?$$CNTR^NURSUT2(NURFAC),$S($G(NURFAC)=" BLANK":"NO FACILITY",1:$G(NURFAC))
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),?14,"UNCLASSIFIED "_$S(NURTYPE=0:"AMIS 1106 ",1:"MIDNIGHT ")_"PATIENTS FOR "_NURSDATE,?71,"PAGE: ",NURPAGE
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !!,?65,"LAST",!,"PATIENT NAME -SSN LAST FOUR",?33,"ERROR",?51,"ABSENCE",?62,"CLASSIFIED",!,$$REPEAT^XLFSTR("-",80)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !!,?10,"UNIT: ",NPWARD,!
  • Line Location: HEADER1+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^NURSA(213.5 - [#213.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call