Routine: FHMTKO

Information

FHMTKO ; HISC/NCA/FAI - List Outpats Without Diet Patterns/Ind Pattern ;02/24/04 11:00

Package	Total	Call Graph
Dietetics	3	(DTP,EN2)^FH PATNAME^FHOMUTL CUR^FHORD7
Kernel	3	^%ZIS ^%ZISC KILL^XUSCLEAN
VA FileMan	1	NOW^%DTC

Name	Comments	DBIA/ICR reference
LIS
L1	; Process Listing Outpatients Without Diet Patterns & Inpatients ; With Individual Pattern
GET	; Get Previous Diet Order
CUR
HDR	; Print No Diet Pattern Heading
HDR1	; Print Previous Diet Pattern Heading
PAUSE	; Check to pause for reading
KIL

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The list requires a 132 column printer.",! Line Location: LIS+0
Function Call: WRITE	Prompt: ! Line Location: LIS+1
Function Call: WRITE	Prompt: ?52,"Current: ",Y,! Line Location: L1+30
Function Call: WRITE	Prompt: ?52,"Prev. Pattern: ",$P(ZZ,"^",1),! Line Location: L1+31
Function Call: WRITE	Prompt: !,FHDTP,?33,"I N P A T I E N T S W I T H N O D I E T P A T T E R N S",?123,"Page ",PG Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"Ward/Room",?34,"Patient",?66,"Current-Diet",! Line Location: HDR+3
Function Call: WRITE	Prompt: !,FHDTP,?27,"I N P A T I E N T S T H A T H A D I N D I V I D U A L P A T T E R N S",?123,"Page ",PG Line Location: HDR1+2
Function Call: WRITE	Prompt: !!,"Patient",?32,"Effective",?52,"Diet" Line Location: HDR1+3
Function Call: READ	Formatting: !! Prompt: "Press RETURN to continue. " Variable: X Timeout: DTIME Line Location: PAUSE+1
Function Call: WRITE	Prompt: !,"Enter a RETURN to Continue." Line Location: PAUSE+1
Routine Call	%ZIS Line Location: LIS+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(115.02	CUR+1
^DPT - [#2]	L1+10, L1+25, L1+29
^FH(111 - [#111]	CUR+2
^FH(111.1 - [#111.1]	L1+16
^FH(119.6 - [#119.6]	L1+4, L1+5, L1+11, L1+12
^FHPT - [#115]	L1+15, L1+18, GET+1, GET+4, GET+6, GET+8, GET+9
^FHPT("AW"	L1+8, L1+10
^TMP($J	L1+3!, L1+6, L1+7, L1+17, L1+21, L1+26, GET+1!, GET+2, GET+10, GET+11* , KIL!

Name	Field # of Occurrence
^(	L1+7, L1+21, L1+26, GET+1, GET+2

Name	Field # of Occurrence
>> %	L1+2, CUR+1*
%ZIS	LIS+1!*, LIS+3!
%ZIS("A"	LIS+1*
>> A1	CUR+2*
>> ADM	L1+10, L1+15, L1+17, L1+18, L1+21, L1+26*, GET+1, GET+4, GET+6, GET+8 , GET+9, GET+10
>> ANS	L1+3, L1+21, L1+24, L1+26, L1+28, HDR+1, HDR1+1, PAUSE+1
>> D3	CUR+2*
>> DFN	L1+9, L1+10, L1+22, L1+25, L1+29
>> DPAT	L1+16*, L1+17
DTIME	PAUSE+1
>> DTP	L1+2, L1+30, L1+31*
>> FHDFN	L1+8, L1+10, L1+15, L1+17, L1+18, L1+21, L1+26*, GET+1, GET+4, GET+6 , GET+8, GET+9, GET+10, GET+11
>> FHDTP	L1+2*, HDR+2, HDR1+2
>> FHDU	CUR+1*
>> FHLD	CUR*, CUR+1
>> FHLST	LIS+2*
>> FHOR	L1+14, L1+16, CUR*, CUR+2
>> FHORD	L1+15, L1+18
>> FHPGM	LIS+2*
IO	LIS+3
IO("Q"	LIS+2
IOF	HDR+1, HDR1+1
IOP	LIS+1!, LIS+3!
IOSL	L1+24, L1+28
IOST	HDR+1, HDR1+1, PAUSE+1
>> K0	GET+1, GET+2
>> K2	GET+1, GET+2, GET+3
>> NX	L1+7*, L1+17, GET+10, GET+11
>> O1	L1+14*, L1+17, GET+10
>> P0	L1+5*, L1+6
>> PG	L1+21, L1+26, HDR+1, HDR+2, HDR1+1, HDR1+2, PAUSE+1
>> POP	LIS+1
>> R0	L1+12, L1+13, L1+17, GET+10, GET+11
>> RE	L1+11*, L1+12
>> RI	L1+10*, L1+11
>> RM	L1+10, L1+17, L1+23, L1+25, L1+27*, L1+29, GET+10, GET+11
>> SK	GET+1*
>> TIM	L1+18*, GET+1, GET+10
>> W1	L1+4, L1+5, L1+6, L1+7, L1+8, L1+10, L1+11, L1+12
>> WRDN	L1+5, L1+6, L1+23, L1+25, L1+27*, L1+29
>> X	PAUSE+1*
>> X1	L1+7*
>> X5	GET+3*, GET+4, GET+6, GET+8, GET+9
>> X6	GET+4*, GET+5, CUR
>> X7	GET+2, GET+6, GET+7
>> X8	GET+8, GET+9, GET+11
>> X9	L1+21, L1+23, L1+26, L1+27
>> XX	L1+26*, L1+30
>> Y	L1+14, L1+21, L1+25, L1+26, L1+30, GET+11, CUR, CUR+1, CUR+2*
>> ZZ	L1+26*, L1+31