Routine: NURSCPLC

Package	Total	Call Graph
Nursing Service	9	(EN1,EN5,EN9,PRD)^NURSAGSP ^NURSAPCH EN6^NURSAUTL (EN2,EN6)^NURSCUTL ^NURSKILL (EN6,EN7)^NURSUT0 (CLOSE,ENDPG,NODATA)^NURSUT1 $$CNTR^NURSUT2 $$EN12^NURSUT3
Kernel	1	$$REPEAT^XLFSTR
Registration	1	(1,DEM)^VADPT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Nursing Service	2	NURSCPLE NURSPP-LOCWRD

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; SORT OF PATIENT CENSUS
QUIT	; KILL LOCAL VARIABLES
NM
NN
HEADER	; PRINTING OF HEADING ROUTINE
NO
FNDCLAS
NP
START	;
EN2	; ENTRY FOR WARD PATIENT CENSUS
PRINT	;PRINT ROUTINE
NQ
PROD
PRINT1

External References

Name	Field # of Occurrence
$$GET1^DIQ	SORT+2
EN1^NURSAGSP	EN2+6
EN5^NURSAGSP	EN2+4
EN9^NURSAGSP	EN2+3
PRD^NURSAGSP	EN2+5
^NURSAPCH	PRINT1
EN6^NURSAUTL	START+2
EN2^NURSCUTL	FNDCLAS
EN6^NURSCUTL	FNDCLAS
^NURSKILL	QUIT+1
EN6^NURSUT0	EN2+7
EN7^NURSUT0	EN2+8
CLOSE^NURSUT1	QUIT+1
ENDPG^NURSUT1	HEADER+1, PRINT+3
NODATA^NURSUT1	PRINT+2, PRINT+6
$$CNTR^NURSUT2	HEADER+5, PROD
$$EN12^NURSUT3	SORT+1
1^VADPT	SORT+5
DEM^VADPT	PRINT1
$$REPEAT^XLFSTR	HEADER+8, PROD

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN2+6
Function Call: WRITE	Prompt: ! Line Location: EN2+7
Function Call: WRITE	Prompt: ! Line Location: EN2+8
Function Call: WRITE	Prompt: !,?$$CNTR^NURSUT2($G(NURFAC(2))),$S($G(NURFAC(2))=" BLANK":"NO FACILITY",1:$G(NURFAC(2))) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3),?28,NURSHD,?68,"PAGE: ",NURPAGE,! Line Location: HEADER+6
Function Call: WRITE	Prompt: !,"ROOM/BED",?17,"PATIENT NAME",?42,"SSN",?55,"ABSENCE",?64,"BED SEC",?73,"ACUITY" Line Location: HEADER+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80),! Line Location: HEADER+8
Function Call: WRITE	Prompt: !?$$CNTR^NURSUT2(NURPROG(4)),$S($E(NURPROG(4),1)=" ":$E(NURPROG(4),2,99),1:$G(NURPROG(4))) Line Location: PROD+0
Function Call: WRITE	Prompt: !,?$$CNTR^NURSUT2(NURPROG(4)),$$REPEAT^XLFSTR("-",$L(NURPROG(4))+1),! Line Location: PROD+0
Function Call: WRITE	Prompt: $C(7),!,"THERE IS NO DATA FOR THIS REPORT" Line Location: PRINT+1
Function Call: WRITE	Prompt: !! Line Location: NM+0
Function Call: WRITE	Prompt: !,$S(NBED'=" BLANK":NBED,1:""),?17,$S(N1'=" BLANK":$E(N1,1,19),1:""),?38,SSN,?56,$S($D(NURSX):NURSX,1:""),?66,NSEC,?75,NURCAT Line Location: PRINT1+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^NURSF(212.7 - [#212.7]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN2+1
^NURSA(214.6 - [#214.6]	FNDCLAS
^NURSF(211.4 - [#211.4]	SORT+2
^NURSF(213.3 - [#213.3]	PRINT1+1
^NURSF(214 - [#214]	START+2, START+3, PRINT1+1
^TMP($J	START+1!, SORT+8, SORT+9, SORT+10, HEADER+2, PRINT+1, PRINT+2, PRINT+3, PRINT+4, PRINT+5 , PRINT+9, NM, NN, NO, NP, NQ

Label References

Name	Line Occurrences
FNDCLAS	PRINT1+1
HEADER	PRINT+1, PRINT+2, PRINT+6, NN, PRINT1+2
NM	PRINT+9
NN	NM
NO	NN
NP	NO
NQ	NP
PRINT	START+4, START+5
PRINT1	NQ
QUIT	EN2+4, EN2+5, EN2+6, EN2+7, EN2+8
SORT	START+2, START+3

Naked Globals

Name	Field # of Occurrence
^(0	PRINT1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	START+2, START+3, SORT+10, NQ*, PRINT1+1
>> DIC(0	EN2+4*
DT	HEADER+6
IO	START+1
IOF	START+4, HEADER+4
IOSL	PRINT1+2
IOST	START+2, START+3, START+4, START+5, HEADER+1, HEADER+4
>> N1	SORT+6, SORT+10, NP, NQ, PRINT1+2
>> NBED	SORT+6, SORT+10, NO, NP, NQ, PRINT1+2
>> NCOPY	START+4
>> NL1	HEADER+2, PRINT+1, PRINT+2, PRINT+5, NN
>> NPWARD	START+2*
>> NSEC	PRINT1+1*, PRINT1+2
>> NURCAT	PRINT1+2, FNDCLAS*
>> NURFAC	SORT+3, PRINT+1, PRINT+6
>> NURFAC(1	SORT+3, PRINT+1, PRINT+6
>> NURFAC(2	SORT+1, SORT+3, SORT+8, SORT+9, HEADER+5, PRINT+1, PRINT+6, PRINT+9, NM, NN
>> NURHOSP	START+2, HEADER+5
>> NURI	START+4*
>> NURIEN	START+2, START+3, SORT+1, SORT+2
>> NURMDSW	EN2+2*, EN2+4, EN2+5, SORT+3, HEADER+5
>> NUROUT	EN2+4, EN2+5, EN2+6, EN2+7, START+1, HEADER+1, PRINT+9, NM, NN, NO , NP, NQ, PRINT1+2
>> NURPAGE	START+1, START+4, HEADER+4*, HEADER+6
>> NURPLCSR	EN2+5*
NURPLSCR	EN2+4*!, EN2+5!
>> NURPLSW	EN2+2*, EN2+5, SORT+4, PROD
>> NURPROG	SORT+4, PRINT+1, PRINT+2, PRINT+6
>> NURPROG(1	SORT+4, PRINT+1, PRINT+2, PRINT+6
>> NURPROG(4	SORT+2, SORT+4, SORT+8, SORT+9, PROD, PRINT+1, PRINT+2, PRINT+6, NM*, NN
>> NURQUEUE	EN2+2*, HEADER+1
>> NURQUIT	EN2+2*, EN2+7
>> NURSCLAS	FNDCLAS
>> NURSCLAS("CL"	FNDCLAS*
>> NURSHD	HEADER+2*, HEADER+6
>> NURSNLOC	PRINT+1, PRINT+2, PRINT+3
>> NURSNLOC(	START+3, PRINT+2, PRINT+5
>> NURSORT	SORT+7, SORT+9, NN*, NO, NP, NQ
>> NURSW1	START+1, START+4, HEADER+1, HEADER+3, PRINT+2, PRINT+3, PRINT+6, PRINT+9*, PRINT1+2
>> NURSWARD	START+2, START+3, SORT+8, SORT+9
>> NURSX	PRINT1+2
>> NURSZAP	EN2+2*
>> NURX	PRINT+4*
>> NURY	PRINT+4*
>> NURZ	PRINT+4*
>> POP	EN2+8
>> SSN	PRINT1*, PRINT1+2
U	SORT+2
>> VA("PID"	PRINT1
VADM	SORT+11!
VADM(1	SORT+6
VAIN	SORT+11!
VAIN(5	SORT+6
X	SORT+8~, SORT+9, SORT+10
>> ZTDESC	EN2+8*
>> ZTRTN	EN2+8*
>> ZTSK	EN2+8

Customize PDF page

Package: Nursing Service

Routine: NURSCPLC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: