Routine: NURACHDC

Package	Total	Call Graph
VA Fileman	6	^%DT ^DIC YN^DICN ^DIE ^DIK D^DIQ
Nursing Service	3	$$LOCDEF^NURACHDC ^NURAKILL ($$DUPCLAS,EN5)^NURSCUTL

Package	Total	Caller Graph
Nursing Service	3	NURACHDC NURAPC-HEM NURAPC-RECRM

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	; KILL LOCAL VARIABLES
EDIT
LOCK
CHK
PATCK
CONTPRO	; UPDATE ACUITY TOTALS
EN1	;ADD HEMODIALYSIS PATIENT TO AMIS COUNT
EN2	;ADD RECOVERY ROOM PATIENT TO AMIS COUNT
LOCDEF()	; find first active Nurs Location file (211.4) entry which has a ; Recovery Room bedsection
DELETE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($P(HRSW,"^",2)="H":"The Nurse who performed the hemodialysis is from which unit: ",$P(HRSW,"^",2)="R":"Recovery Room Location: ",1:"") Line Location: CONTPRO+1
Function Call: WRITE	Prompt: !!,PATNAM," HAS BEEN ADDED TO THE "_$S($P(HRSW,"^",2)="H":"HEMODIALYSIS",$P(HRSW,"^",2)="R":"RECOVERY ROOM")_" COUNT." Line Location: CHK+8
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDIT+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter a date/time on "_$P(NDATA(1),"@") Line Location: EDIT+2
Function Call: WRITE	Prompt: !!,?5,"ANSWER YES OR NO" Line Location: DELETE+0
Routine Call	DIE Line Location: EDIT+3
Routine Call	DIC Line Location: CONTPRO+7

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	Classic Fileman Calls
^NURSA(214.6 - [#214.6]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN1+1, EN2+1
^NURSA(214.6 - [#214.6]	PATCK+4, LOCK, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7*, EDIT , EDIT+4
^NURSF(211.4 - [#211.4]	LOCDEF+3, LOCDEF+4, LOCDEF+6
^NURSF(213.3 - [#213.3]	EN1+2, EN2+2
^SC - [#44]	LOCDEF+6
^TMP($J	QUIT+1!

Name	Field # of Occurrence
^(0	EDIT+4*

Name	Field # of Occurrence
%	DELETE!, DELETE+1
>> %DT	PATCK+3, EDIT+2
>> DA	PATCK+4, LOCK, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, EDIT , EDIT+4, DELETE+1*
>> DA(1	PATCK+4, DELETE+1
>> DFN	PATCK+1, PATCK+4, CHK, CHK+1
DIC	CONTPRO+7*!
DIC("S"	CONTPRO+7*
DIC(0	PATCK, CONTPRO+7
>> DIE	EDIT+3*
>> DIK	DELETE+1*
>> DR	EDIT+3*
DTIME	CONTPRO+3, EDIT
DUZ	CHK+1, EDIT+4
>> HRSW	EN1+2, EN2+2, PATCK+3, CONTPRO+1, CONTPRO+2, CHK+1, CHK+8, LOCDEF+4
>> HRSW(0	PATCK+3*, PATCK+4
>> NACT	EN1+2, EN2+2
>> NASK	PATCK*
>> NDATA	EDIT*, EDIT+2, EDIT+4
>> NDATA(1	EDIT*, EDIT+2, DELETE
>> NDATEX	PATCK+3, CHK, CHK+1
>> NDATEX(0	PATCK+3*, PATCK+4
>> NDATEX(2	EDIT+3*
NURBED	LOCDEF+2~, LOCDEF+4*
NURDEFLT	CONTPRO+2*, CONTPRO+5, CONTPRO+6!
NURFOUND	LOCDEF+2~, LOCDEF+3, LOCDEF+4, LOCDEF+6
NURLOC	LOCDEF+2~, LOCDEF+3, LOCDEF+4, LOCDEF+6
>> NUROUT	EN1+2, EN2+2, PATCK+4, PATCK+5, PATCK+6, CONTPRO+4, EDIT, EDIT+5, DELETE+2
>> PATNAM	PATCK+2*, CHK+8
U	PATCK+3, PATCK+4, EDIT, EDIT+2, LOCDEF+4, LOCDEF+6
>> WARD	CONTPRO+3, CONTPRO+4, CONTPRO+5, CONTPRO+7, CONTPRO+8*, CHK+1, CHK+6
>> X	PATCK+3, CONTPRO+7, CHK+1, CHK+2, CHK+3, CHK+4, CHK+5, CHK+6, EDIT, EDIT+1 , EDIT+2*
>> Y	PATCK+2, PATCK+3, CONTPRO+7, CONTPRO+8, EDIT*, EDIT+2, EDIT+3