Routine: TIUPRPN6

Information

TIUPRPN6 ;SLC/MJC-Print PNs-Most Current Admission ; 6/26/01

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIR
Text Integration Utility	2	DEVICE^TIUPRPN ($$FLAG,REPLACE,SETUP)^TIUPRPN3
Registration	1	IN5^VADPT

Package	Total	Caller Graph
Text Integration Utility	1	TIU PRINT PN ADMISSION

Name	Comments	DBIA/ICR reference
NOTESX	;
ADM	;prints PNs for LAST admission to either date of discharge or NOW
NOTES(TIUDFN)	;get the notes for the admission
HELP	;help for yes/no print all notes for admission question

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADM+7
Function Call: WRITE	Prompt: !!?5,$C(7),"There are no signed " Line Location: ADM+8
Function Call: WRITE	Prompt: "progress notes on file for this patient.",! Line Location: ADM+9
Function Call: WRITE	Prompt: !!?5,$C(7),"I don't have any record of an admission " Line Location: NOTES+3
Function Call: WRITE	Prompt: "for this patient.",!?5,"Select another patient." Line Location: NOTES+4
Function Call: WRITE	Prompt: !!,"Patient was admitted: ",$P(ADMDT,U,2) Line Location: NOTES+6
Function Call: WRITE	Prompt: !!,"Searching for the notes " Line Location: NOTES+24
Function Call: WRITE	Prompt: !!,"No SIGNED notes found in this date " Line Location: NOTES+34
Function Call: WRITE	Prompt: "range for this patient." Line Location: NOTES+35
Function Call: WRITE	Prompt: !!,">> "_CTR_" note"_$S(CTR>1:"s",1:"")_" found.",! Line Location: NOTES+36
Function Call: WRITE	Prompt: !!?5,"Answer YES and all the progress notes for this admission will " Line Location: HELP+1
Function Call: WRITE	Prompt: !?5,"be printed in CONTIGUOUS format." Line Location: HELP+2
Function Call: WRITE	Prompt: !!?5,"Answer NO and you will be asked to select a date range for " Line Location: HELP+3
Function Call: WRITE	Prompt: !?5,"this patient." Line Location: HELP+4
Routine Call	DIC Line Location: ADM+7
Routine Call	DIR Line Location: NOTES+14

Name	Line Occurrences (* Changed, ! Killed)
^TIU(8925 - [#8925]	ADM+8, NOTES+27, NOTES+28
^TMP("TIUPR"	NOTES+25!, NOTES+32*, NOTES+34
^TMP("TIUREPLACE"	NOTES+25!, NOTES+30, NOTES+31, NOTES+33, NOTESX+1!

Name	Line Occurrences
NOTES	ADM+12
NOTESX	NOTES+35

Name	Field # of Occurrence
%DT	NOTES+17!, NOTES+18, NOTES+21
%DT("A"	NOTES+18, NOTES+20
%DT(0	NOTES+18*
ADMDT	NOTES+1~, NOTES+5*, NOTES+6, NOTES+16
BEG	NOTES+1~, NOTES+16, NOTES+20, NOTES+22*, NOTES+26
CTR	NOTES+1~, NOTES+33*, NOTES+36
DATE	NOTES+1~, NOTES+26, NOTES+27, NOTES+28, NOTES+29, NOTES+31*, NOTES+32
DFN	NOTES+1~, NOTES+2*, NOTES+27, NOTES+28, NOTES+32
DIC	ADM+5~, ADM+7*
DIC(0	ADM+7*
DIR	NOTES+1~
DIR("?"	NOTES+14*
DIR("A"	NOTES+9, NOTES+12, NOTES+13*
DIR("B"	NOTES+13*
DIR(0	NOTES+13*
>> DIRUT	NOTES+15
>> DTOUT	NOTES+19, NOTES+21
END	NOTES+1~, NOTES+16, NOTES+22, NOTES+27
HOLD	NOTES+1~, NOTES+22*
IFN	NOTES+1~, NOTES+28, NOTES+29, NOTES+30, NOTES+31, NOTES+32
TIUDFN	ADM+5~, ADM+11*, ADM+12, NOTES~, NOTES+2, NOTES+32
TIUFLAG	ADM+10~, ADM+13*, ADM+15
TIUQT	ADM+5~, ADM+7!, ADM+12, NOTES+4, NOTES+15, NOTES+17, NOTES+19, NOTES+21, NOTES+35*
TIUSPG	ADM+10~, ADM+14*, ADM+15
U	NOTES+6, NOTES+8, NOTES+32
VAIP	NOTES+1~
VAIP("D"	NOTES+2*
VAIP(1	NOTES+3
VAIP(13	NOTES+5
VAIP(17	NOTES+7, NOTES+8, NOTES+16
Y	ADM+5~, ADM+7, ADM+8, ADM+11, NOTES+1~, NOTES+16, NOTES+19, NOTES+20, NOTES+21, NOTES+22