Routine: NURAAU2

Information

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

Source Information

Source file <NURAAU2.m>

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
Nursing Service	9	(EN1,FINALLY)^NURAAU0 ($$ABSENCE,$$REASON)^NURAAU2 (EN8,EN9)^NURSAGSP ^NURSAPCH EN6^NURSAUTL EN7^NURSUT0 ENDPG^NURSUT1 $$CNTR^NURSUT2 $$EN12^NURSUT3
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$REPEAT^XLFSTR
VA Fileman	3	^%DT ^DIC D^DIQ
Registration	1	OERR^VADPT

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Nursing Service	8	NURAAM-ACUMAN NURAAM-MD-UNC NURAAM-MD-UNCBAT NURAAM-UNC NURAAM-UNCBAT NURAAU1 NURAAU2 NURAMB1

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	EN2+1, EN3+2
^%ZIS	HSKEEP+2
^%ZISC	KILL+2
^%ZTLOAD	EN3+6
^DIC	EN2+2, EN3+3
D^DIQ	EN2+3, EN3+4, PRINT+7, PRINT+9
EN1^NURAAU0	START
FINALLY^NURAAU0	DOMRECNT+6
$$ABSENCE^NURAAU2	PRINT+7
$$REASON^NURAAU2	PRINT+7
EN8^NURSAGSP	EN2+3
EN9^NURSAGSP	EN2+3, EN3+4
^NURSAPCH	DOMRECNT+1
EN6^NURSAUTL	SORT+3
EN7^NURSUT0	EN2+4, EN3+7
ENDPG^NURSUT1	HEADER+1
$$CNTR^NURSUT2	HEADER+3
$$EN12^NURSUT3	SORT+2
OERR^VADPT	PRINT+6
$$REPEAT^XLFSTR	HSKEEP+3, HSKEEP+15, HEADER+5

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
Routine Call	DIC Line Location: EN2+2 EN3+3
Routine Call	%ZIS Line Location: HSKEEP+2

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	HSKEEP+1
^NURSA(213.5 - [#213.5]	SORT+1, SORT+2, PRINT+7, PRINT+9
^NURSF(211.4 - [#211.4]	DOMRECNT+6
^TMP($J	START2!, KILL+1!, START1!, SORT+5*, PRINT+2, PRINT+3, PRINT+4

Name	Line Occurrences
HEADER	PRINT+2, PRINT+3, PRINT+5
HEADER1	PRINT+3, PRINT+5
HSKEEP1	HSKEEP1+3
KILL	EN2+1, EN2+2, EN2+3, EN2+4, EN3+2, EN3+3, EN3+7, START1+2
KILLVAR	HSKEEP1+2
PRINT	START2, START1
SORT	START2, START1

Name	Field # of Occurrence
^(0	PRINT+7, PRINT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN2+1!, KILL+1!, EN3+2
%DT("A"	EN2+1*
%DT("B"	EN2+1*
%DT(0	EN2+1*
BEDSECT	DOMRECNT+2, DOMRECNT+3, KILL+1!
CLASS	DOMRECNT+2*, DOMRECNT+5, KILL+1!
D	KILLVAR+1!
D1	KILL+1!, SORT+1, SORT+2, SORT+5, PRINT+4, PRINT+7, PRINT+9
DA	EN2+3, KILL+1!, EN3+4, SORT+1, SORT+2, SORT+5, PRINT+4*, PRINT+7, PRINT+9
DATENODE	KILLVAR+1!, KILL+1!
DFN	KILL+1!, SORT+2, SORT+5, PRINT+3, PRINT+4
DI	KILLVAR+1!
DIC	EN2+2!, KILL+1!, EN3+3!
DIC("S"	EN2+2, EN3+3
DIC(0	EN2+2, EN2+3, EN3+3*
DO	KILLVAR+1!
DQ	KILLVAR+1!
DT	EN2+1, HEADER+4
DTIME	HSKEEP1+1
>> I	DOMRECNT+4*
IO	START, PRINT+1
IOF	START, HEADER+3
ION	HSKEEP+2
IOP	HSKEEP+2*!
IOSL	PRINT+5
IOST	SORT+5, HEADER+1
LASTRUN	KILLVAR+1!
NBEDSECT	DOMRECNT+2, KILL+1!
>> NCLASS(	DOMRECNT+4, DOMRECNT+5
>> NCWARD	DOMRECNT+2, DOMRECNT+3, DOMRECNT+4, DOMRECNT+6
NDAT	KILLVAR+1!
NDATA	KILL+1!, SORT+2*
NDATE	KILLVAR+1!
NPWARD	KILL+1!, SORT+2, SORT+3, SORT+5, PRINT+3, PRINT+4, HEADER1
NURABSNC	KILL+1!, ABSENCE+1*, ABSENCE+2
NURASTER	KILLVAR+1!
NUREASON	KILL+1!, REASON+1, REASON+2, REASON+3
NURFAC	KILL+1!, EN3+4, SORT+4, PRINT+2, PRINT+3*, PRINT+4, HEADER+3
NURFAC(1	SORT+4
NURFAC(2	SORT+2*, SORT+4, SORT+5
NURI	KILLVAR+1!
NURMDSW	EN2+3, KILL+1!, EN3+4, SORT+4, HEADER+3
>> NUROUT	EN2+3, EN3+4, PRINT+3, PRINT+4, PRINT+5, HEADER+1
NURPAGE	EN2+3, KILL+1!, EN3+4, HEADER+2*, HEADER+4
NURPARM	KILL+1!, REASON~, REASON+2, ABSENCE~, ABSENCE+1
NURPLSW	KILL+1!, EN3+4*
NURQUEUE	KILLVAR+1!, KILL+1!
NURSDATE	EN2+3, KILL+1!, EN3+4, HEADER+4
NURSI	KILLVAR+1!
NURSJ	HSKEEP+3, HSKEEP+4, HSKEEP+14, HSKEEP+15, KILLVAR+1!
>> NURSW1	EN2+3, EN3+4, HEADER+1, HEADER+6*
>> NURSX	DOMRECNT+1
NURSZAP	KILL+1!
NURSZDA	KILL+1!
NURSZSP	KILL+1!
NURTYPE	EN2+1, KILL+1!, EN3+5, HEADER+4
>> NWARD	DOMRECNT+4
NX	KILLVAR+1!
>> POP	EN2+4, EN3+7
U	HSKEEP1+2, DOMRECNT+6, EN2+3, EN3+4, SORT+2, PRINT+7, PRINT+9
VA	KILL+1!
VADM	KILL+1!
VADM(1	PRINT+6
VADM(2	PRINT+6
VAERR	KILL+1!
VAIN	KILL+1!
>> WARD	DOMRECNT+2
X	HSKEEP+1, HSKEEP1+1, HSKEEP1+2, HSKEEP1+3, KILLVAR+1!, EN2+2, EN3+2, EN3+3, PRINT+9
XXX	KILL+1!
Y	EN2+1, EN2+2, EN2+3, KILL+1!, EN3+2, EN3+3, EN3+4, PRINT+7*, PRINT+9
YSTRDAY	KILLVAR+1!
>> Z	PRINT+7, PRINT+9
ZSTAVE	KILL+1!
>> ZTDESC	EN3+5*
>> ZTQUEUED	EN3+6
ZTRTN	EN2+4, KILL+1!, EN3+5
ZTSAVE	KILL+1!
ZTSAVE("DA"	EN3+6*
ZTSAVE("N*"	EN3+6*
>> ZTSK	EN2+4, EN3+7

Customize PDF page

Package: Nursing Service

Routine: NURAAU2

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: