Routine: GMRVED2

Information

GMRVED2 ;HIOFO/RM,YH,FT-VITAL SIGNS EDIT SHORT FORM ;11/15/04 10:30

Source Information

Source file <GMRVED2.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC UPDATE^DIE IX1^DIK
General Medical Record - Vitals	2	EN1^GMRVADM EN2^GMRVED3
Kernel	2	$$FMADD^XLFDT $$UP^XLFSTR
Registration	1	(DEM,INP,KVAR)^VADPT

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
General Medical Record - Vitals	6	GMRVDS1 GMRVED0 GMRVED1 GMRVED3 GMRVEE1 GMRVSR0

Entry Points

Name	Comments	DBIA/ICR reference
ADDQUAL(GMRVDATA)	; Add qualifiers to FILE 120.5 entry ; ADD QUALIFIER TO 120.505 SUBFILE ; Input: ; GMRVDATA=120.5 IEN^QUALIFIER (120.52) IEN
ADDNODE	; add data to the 120.5 file
V1	;
XREF(DA)	; Set cross-references for FILE 120.5 entry ; Execute SET logic only. Set's all cross-references for this entry. ; DA is the record number
XREF1(DA)	; Set cross-references for FILE 120.5 entry ; Execute SET logic only. Set's all cross-references for this entry. ; DA is the record number
V2	;
EN1	; SORT PATIENTS ON WARD
EN2	; BEGIN EDITING WARD VITALS
EN4	; ENTRY FROM GMRVED0 TO ADD THE PATIENT DATA TO THE 120.5 FILE
B2	; Lock the entry
CHKDT(GMVDT,GMVSAV)	;Check if there is an entry for that date & time
SETPRMT	; SET VITAL TYPE PATTERN MATCH
WSA1	; SET ^TMP($J, FOR SORT

External References

Name	Field # of Occurrence
NOW^%DTC	EN4+1
UPDATE^DIE	ADDNODE+14, B2+7
IX1^DIK	XREF+6, XREF1+9
EN1^GMRVADM	V1+3
EN2^GMRVED3	V1+3
DEM^VADPT	WSA1+1
INP^VADPT	WSA1+1
KVAR^VADPT	WSA1+1
$$FMADD^XLFDT	CHKDT+7
$$UP^XLFSTR	V1+3, V2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Begin entering patient vitals." Line Location: EN2+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: EN2+4
Function Call: WRITE	Prompt: !,"Enter return to continue" Line Location: EN2+4
Function Call: WRITE	Prompt: !!,$S(GMRNAM'=" BLANK":GMRNAM,1:DFN),?$X+10,$S(GMRRMBD'=" BLANK":GMRRMBD,1:"")," OK? YES// " Line Location: V1+1
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: V1+5
Function Call: WRITE	Prompt: !!,"Do you wish to stop looping through names? YES//" Line Location: V2+1
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: V2+4
Routine Call	DIE Line Location: ADDNODE+14 B2+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(120.5 - [#120.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT("CN"	WSA1+3
^GMR(120.5 - [#120.5]	XREF1+6, CHKDT+3, CHKDT+4, CHKDT+5, ADDQUAL+9, ADDQUAL+11, B2+2, B2+4, B2+8
^GMRD(120.51 - [#120.51]	ADDNODE+3
^GMRD(120.52 - [#120.52]	ADDQUAL+13
^TMP($J	EN1+1!, WSA1+2*, EN2+1, EN2+3

Label References

Name	Line Occurrences
$$CHKDT	ADDNODE+4
ADDNODE	EN4+5
ADDQUAL	ADDNODE+20, ADDNODE+29
B2	B2+4
V1	EN2+3, V1+5
V2	V1+3, V1+4, V2+4
WSA1	WSA1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN4+1
DA	ADDNODE+34, ADDNODE+35, XREF~, XREF+4, XREF1~, XREF1+4, XREF1+5, XREF1+7
DA(1	XREF1+7*
>> DFN	WSA1+2, WSA1+3, WSA1+4, EN2+3, V1+1, ADDNODE+6, CHKDT+4
DIC	XREF+3~, XREF1+3~
DIK	XREF+3~, XREF+5, XREF1+3~, XREF1+8
DTIME	EN2+4, V1+1, V2+1
DUZ	ADDNODE+10
>> G	SETPRMT+1*, SETPRMT+2, SETPRMT+4
>> GDATA	ADDNODE+18, ADDNODE+19, ADDNODE+20, ADDNODE+27, ADDNODE+28, ADDNODE+29
>> GDT	V1+3*
>> GLAST	ADDNODE+36*
>> GLAST(1	ADDNODE+36*
>> GMRDAT(	EN4+5, ADDNODE+11, ADDNODE+35
>> GMRDATE	EN4+1*, ADDNODE+8
>> GMRDT0	EN2+2*
>> GMREDB	WSA1+2, ADDNODE+35
>> GMRENTY	ADDNODE+36
>> GMRHELP	SETPRMT+2*
>> GMRHELP(1	SETPRMT+3*
>> GMRI	EN2+3*
>> GMRINF(	ADDNODE+16, ADDNODE+22, ADDNODE+24, ADDNODE+26, ADDNODE+27
>> GMRNAM	WSA1+1, WSA1+2, EN2+3, V1+1
>> GMRO2(	ADDNODE+12
>> GMROUT	EN2+1, EN2+3, V1+2, V1+3, V2+2, V2+3
>> GMRPRMT	SETPRMT+4*
>> GMRRMBD	WSA1+1, WSA1+2, EN2+3, V1+1
>> GMRROOM(	WSA1+2
>> GMRSITE(	ADDNODE+16, ADDNODE+17, ADDNODE+18, ADDNODE+35
>> GMRSTR(0	EN4+2, SETPRMT+1, SETPRMT+2, SETPRMT+3, SETPRMT+4
GMRTO	V1+3!
GMRVDA	XREF1+3~, XREF1+5*, XREF1+6, XREF1+7
GMRVDATA	ADDQUAL~, ADDQUAL+6, ADDQUAL+7
>> GMRVHLOC	ADDNODE+9
>> GMRVIDT	EN2+2, V1+3, ADDNODE+2, ADDNODE+4, ADDNODE+36
GMRVIEN	XREF1+3~, XREF1+5, XREF1+6, XREF1+7, ADDQUAL+5~, ADDQUAL+6*, ADDQUAL+9, ADDQUAL+11, B2+2, B2+4 , B2+6, B2+8
GMRVIEN(	ADDNODE+35*
>> GMRVIT	EN4+3, EN4+4, EN4+5, ADDNODE+3
>> GMRVIT(1	ADDNODE+3*, ADDNODE+4, ADDNODE+7
>> GMRVITY	EN4+2*, EN4+3, EN4+4, EN4+5, ADDNODE+11, ADDNODE+12, ADDNODE+16, ADDNODE+17, ADDNODE+18, ADDNODE+22 , ADDNODE+24, ADDNODE+26, ADDNODE+27, ADDNODE+35
GMRVQUAL	ADDQUAL+5~, ADDQUAL+7*, ADDQUAL+11, ADDQUAL+13, B2+6
>> GMRWARD(1	WSA1+3
>> GMRX	V1+1, V1+2, V1+3, V1+4, V2+1, V2+2, V2+3, EN4+2*, SETPRMT+1, SETPRMT+2 , SETPRMT+3, SETPRMT+4
GMVA	CHKDT+1~, CHKDT+2, CHKDT+3, CHKDT+4, CHKDT+5
GMVCNT	ADDQUAL+5~, ADDQUAL+14, B2+1, B2+3
GMVDT	CHKDT~, CHKDT+3, CHKDT+7*, CHKDT+10
GMVDTDUN	ADDNODE+1~, ADDNODE+2, ADDNODE+4, ADDNODE+5
GMVERR	ADDQUAL+5~
GMVFDA	ADDNODE+1~, ADDQUAL+5~
GMVFDA(	ADDNODE+5, ADDNODE+6, ADDNODE+7, ADDNODE+8, ADDNODE+9, ADDNODE+10, ADDNODE+11, ADDNODE+12, B2+6*
GMVIEN	ADDNODE+1~, ADDNODE+13*
GMVIEN(1	ADDNODE+20, ADDNODE+29, ADDNODE+34
GMVOKAY	ADDQUAL+5~
GMVSAV	CHKDT~, CHKDT+6
GMVTY	CHKDT+1~, CHKDT+5*, CHKDT+6
>> I	ADDNODE+23, ADDNODE+24, ADDNODE+26, ADDNODE+27
>> I(1	ADDNODE+25, ADDNODE+26, ADDNODE+27
U	ADDNODE+18, CHKDT+4
VA	WSA1+1!
>> VADM(1	WSA1+1
>> VAIN(5	WSA1+1
X	EN2+4*, XREF+3~, XREF1+3~
Y	XREF+3~, XREF1+3~

Customize PDF page

Package: General Medical Record - Vitals

Routine: GMRVED2

Call Graph Total: 8

Caller Graph Total: 6