Routine: ANSUPT

Package	Total	Call Graph
Nursing Acuity	1	(DIC,DIR,PAUSE)^ANSDIC

Package	Total	Caller Graph
Nursing Acuity	4	ANSEA ANSEAD ANSEAV ANSQ

Entry Points

Name	Comments	DBIA/ICR reference
ANSCADT
INPATAR	;SET UP INPATIENT ARRAY
PARRAY	;SET PRINT ARRAY VARIALBES
CURASS	;FIND DATE AND SHIFT OF MOST RECENT ASSESSMENT
LIST	;PRINT LIST OF INPATIENTS
LIST1
A1
INPAT	;PRINT INPATIENT ARRAY HEADING
MSG	;EP;
ARRAY	;SET UP VARIABLES AND TEMPORARY INPAT GLOBAL

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,?10,"No current inpatients....." Line Location: INPATAR+3
Function Call: WRITE	Prompt: !!,?5,"You may choose one of the following inpatients:" Line Location: INPAT+1
Function Call: WRITE	Prompt: !,"================================================================================" Line Location: INPAT+2
Function Call: WRITE	Prompt: !,"LAST ASSESS",!,"DATE",?7,"SHFT",?17,"NAME",?50,"UNIT",?67,"ROOM",?77,"BED" Line Location: INPAT+3
Function Call: WRITE	Prompt: !,"----- ----",?13,"-----------------------------------",?50,"---------------",?67,"--------",?77,"---" Line Location: INPAT+4
Function Call: WRITE	Prompt: !,"NONE" Line Location: LIST+1
Function Call: WRITE	Prompt: !,$E(ANSCADT,4,5)_"-"_$E(ANSCADT,6,7),?9,$P(ANSCADT,".",2) Line Location: LIST+2
Function Call: WRITE	Prompt: ?13,$E(ANSINPT,1,35),?50,ANSUNIT,?67,ANSROOM,?77,ANSBED Line Location: LIST+3
Function Call: WRITE	Prompt: ! Line Location: MSG+2

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ANSD(59.1 - [#9009059.1]	ARRAY+8, ARRAY+9, ARRAY+10
^ANSR - [#9009052]	ARRAY+7, ARRAY+8, ARRAY+9, ARRAY+10, CURASS+2, CURASS+3, ANSCADT
^ANSR("PT"	INPATAR+2, INPATAR+5, ARRAY+5
^DPT - [#2]	ARRAY+3, ARRAY+4
^TMP("ANSPA"	INPATAR+1!, ARRAY+12*, INPAT+6, PARRAY+2, PARRAY+3, PARRAY+4, PARRAY+5, MSG+6!

Name	Field # of Occurrence
^("DX"	ARRAY+7

Name	Field # of Occurrence
ANSBED	ARRAY+1, ARRAY+10, ARRAY+12, INPAT+5, PARRAY+1, PARRAY+4*, PARRAY+5, LIST+3, MSG+6!
>> ANSCA	CURASS+1, CURASS+3
>> ANSCADT	ARRAY+12, INPAT+5, PARRAY+1, PARRAY+5, LIST+1, LIST+2, CURASS+1, CURASS+2, ANSCADT
>> ANSCOUNT	A1, MSG+1*
ANSDFN	A1+1!, A1+4*
ANSINPT	ARRAY+1, ARRAY+4, ARRAY+12, INPAT+5, INPAT+6, PARRAY+2, PARRAY+3, PARRAY+4, PARRAY+5, LIST+3 , LIST1, MSG+6!
ANSPBED	ARRAY+2*, MSG+6!
ANSPROOM	ARRAY+2, ARRAY+9, ARRAY+10, MSG+6!
ANSPUNIT	ARRAY+2, ARRAY+8, ARRAY+9, ARRAY+10, MSG+6!
ANSROOM	ARRAY+1, ARRAY+9, ARRAY+12, INPAT+5, PARRAY+1, PARRAY+3*, PARRAY+4, PARRAY+5, LIST+3, MSG+6!
ANSUNIT	ARRAY+1, ARRAY+8, ARRAY+12, INPAT+5, PARRAY+1, PARRAY+2*, PARRAY+3, PARRAY+4, PARRAY+5, LIST+3 , MSG+6!
ANSX	INPATAR+2, INPATAR+3, INPATAR+4, INPATAR+5*, ARRAY+3, ARRAY+4, ARRAY+5, MSG+6!
>> ANSY	ARRAY+5*, ARRAY+6, ARRAY+7, ARRAY+8, ARRAY+9, ARRAY+10, CURASS+2, CURASS+3, ANSCADT
ANSZ	INPAT+5, PARRAY+6, LIST+4, LIST1+2*, MSG+6!
>> AST	CURASS+1, CURASS+3, ANSCADT
>> AST1	CURASS+1*
>> DIC	A1+2*
>> DIC("A"	A1+2*
>> DIC(0	A1+2*
>> DIR("A"	MSG+1*
>> DIR("B"	MSG+1*
>> DIR(0	MSG+1*
>> DTOUT	MSG+4
DUOUT	INPATAR+1!, INPATAR+5, INPATAR+6, INPATAR+7!, INPAT+6, PARRAY+7, MSG+4
>> I	ANSCADT*
U	ARRAY+4, ARRAY+8, ARRAY+9, ARRAY+10
>> Y	A1+4, MSG+4