Routine: GMRYINTK

Information

GMRYINTK ;HIRMFO/YH-PATIENT INTAKE ;11/6/96

Package	Total	Call Graph
VA Fileman	3	YN^DICN ^DIE ^DIK
General Medical Record - IO	2	WAIT^GMRYUT0 EN3^GMRYUT2

Package	Total	Caller Graph
General Medical Record - IO	1	GMRYUT3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Are you sure you want to delete this record" Line Location: INTAKE+1
Function Call: WRITE	Prompt: !!,"Enter N(o) if you do not want to delete this record or '^' to quit.",! Condition for execution: %=0 Line Location: INTAKE+1
Function Call: WRITE	Prompt: ! Line Location: INTAKE+2
Function Call: WRITE	Prompt: !,"Enter "_GLABEL_" dated "_Y Line Location: INTAKE+2
Function Call: WRITE	Prompt: !,"Enter "_GLABEL_" dated "_Y Line Location: INTAKE+2
Function Call: WRITE	Prompt: !!,?5,"Total "_GLABEL_" intake for this time: ",$P(^GMR(126,DA(1),GNANS,DA,0),"^",5)_" mls" Line Location: INTAKE+10
Function Call: WRITE	Prompt: !!,GLABEL_" Entered on "_$P(Y,":",1,2)," has been deleted!!!",! Line Location: KILLRC+0
Function Call: WRITE	Prompt: ?5,$P(^(0),"^"),?20,$P(^(0),"^",2),?25,"mls",! Condition for execution: $D(^GMRD(126.8,+GTM,0)) Line Location: ITEM+0
Function Call: WRITE	Prompt: ! Line Location: ITEM+0
Function Call: READ	Timeout: DTIME Variable: GTM(2) Line Location: ITEM+1
Routine Call	DIE Line Location: INTAKE+6

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	INTAKE+2, KILLRC
^GMR(126 - [#126]	INTAKE+6, INTAKE+7, INTAKE+9, INTAKE+10
^GMRD(126.8 - [#126.8]	ITEM

Name	Field # of Occurrence
^(0	ITEM

Name	Field # of Occurrence
%	INTAKE+1*!
>> DA	INTAKE+6, INTAKE+7, INTAKE+8*, INTAKE+9, INTAKE+10
>> DA(1	INTAKE+5, INTAKE+6, INTAKE+7, INTAKE+8, INTAKE+9, INTAKE+10, KILLRC
>> DA(2	INTAKE+7*, INTAKE+8
>> DFN	INTAKE+6
DIE	INTAKE+5*!, INTAKE+6!
DIK	KILLRC*!
DR	INTAKE+3, INTAKE+4, INTAKE+5!, INTAKE+6!
DR(2	INTAKE+3*
DTIME	ITEM+1
>> GEDIT	INTAKE+5*
>> GLABEL	INTAKE+2, INTAKE+10, KILLRC
>> GMRDEL	INTAKE+1
>> GMROUT	INTAKE+1, INTAKE+5, INTAKE+6, ITEM, ITEM+1, ITEM+2
>> GMRYITM	INTAKE+2, INTAKE+3
>> GMRYTYP	INTAKE+5*
>> GNANS	INTAKE+6, INTAKE+9, INTAKE+10, KILLRC
>> GNI	INTAKE+2, INTAKE+3
GTM	ITEM*, ITEM+2!
GTM(1	ITEM*
GTM(2	ITEM+1*
>> GTP	INTAKE+5, ITEM
>> GX	INTAKE+1, INTAKE+2, KILLRC
>> GX(1	INTAKE+1*
>> Y	INTAKE+2, KILLRC