Routine: MDPS2

Information

MDPS2 ; HOIFO/NCA - CP/Medicine Report Generator (Cont.) ;5/18/04 09:41

Package	Total	Call Graph
Medicine	4	DTIME^MCARP $$STATUS^MCESEDT ($$DECODER,$$SUM)^MCESPRT $$GETDATA^MCORMN1
VA FileMan	3	NOW^%DTC $$FIND1^DIC $$GET1^DIQ
Clinical Procedures	1	GET^MDPFTP1
Health Summary	1	CKP^GMTSUP
Kernel	1	$$FMTE^XLFDT
Registration	1	(DEM,INP,KVAR)^VADPT
Toolkit	1	$$GET^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Clinical Procedures	5	MDPFTP1 MDPS1 MDPS3 MDPS4 MDPSU

Entry Points

Name	Comments	DBIA/ICR reference
GETDATA(MDGRS,MDDFN,MDPR,MDF,MDR,MDT,MDH)	; Return the text of the Medicine Report ; Input: MDGRS - Return Global Array (Required) ; MDDFN - Patient DFN (Required) ; MDPR - Procedure name in file #697.2 (Required) ; MDF - File number (Required) ; MDR - Record number (Required) ; MDT - The type of report (Full or Caption) (Required) ; MDH - Header is needed or not (Required)
SETNODE(NODE,VALUE)	;Set the node with the string
SUBF	; Get the Sub-file fields in the Medicine View File (#690.2)
FOOTER	; Display Medicine Footer
NAME
DATE
FREE
DECODE(TEMP,CODE,FILE,REC)	;Decode the Validation code 1
VERSION	; Find the version number of a procedure
CHECK	; Find the number of times the report was superseded
HEDSPAS(MDTX,MDSP1)	; surround text string X with space to length X1
SET	; Set GMTS variable
LIMIT(MDLIM)	; Get all Report maximum occurrence limit
HEAD	; Display Header
H1	; Display Header with Page increment
HOSP(DFN)	; Hospital for Header
DEMO(DFN)	; Demographics for Header
HDR	; Page Header
HSHDR	; Health Summary One Line Procedure Header

External References

Name	Field # of Occurrence
NOW^%DTC	H1+3
$$FIND1^DIC	HOSP+3
$$GET1^DIQ	NAME, DECODE+3, HOSP+4
CKP^GMTSUP	HDR+1, HDR+2, HDR+4, HSHDR+3, HSHDR+4, HSHDR+5, HSHDR+6
DTIME^MCARP	H1+3
$$STATUS^MCESEDT	H1+4
$$DECODER^MCESPRT	DECODE+7
$$SUM^MCESPRT	DECODE+6
$$GETDATA^MCORMN1	GETDATA+12
GET^MDPFTP1	GETDATA+15
DEM^VADPT	H1+5, DEMO+2
INP^VADPT	DEMO+7
KVAR^VADPT	DEMO+6, DEMO+7
$$FMTE^XLFDT	GETDATA+36, SUBF+11, H1+3
$$GET^XPAR	LIMIT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " CONSULT DATE/TIME",! Line Location: HDR+1
Function Call: WRITE	Prompt: " NUMBER COMPLETED PROCEDURES PERFORMED PROCEDURE CODE",! Line Location: HDR+3
Function Call: WRITE	Prompt: " ------- ------------------------------ ---------------- -----------------",! Line Location: HDR+5
Function Call: WRITE	Prompt: !,MDLINE Line Location: HSHDR+3
Function Call: WRITE	Prompt: !,$S(+$P(MDX1,U,13):$J($P(MDX1,U,13),9),1:""),?12,$E($P(MDX1,U,1),1,30),?44,$P(MDX1,U,6),?64,$P(MDX1,U,7) Line Location: HSHDR+4
Function Call: WRITE	Prompt: !,MDLINE Line Location: HSHDR+5
Function Call: WRITE	Prompt: ! Line Location: HSHDR+6
Routine Call	DIC Line Location: HOSP+3

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	HOSP+5
^DPT - [#2]	HOSP+2
^MCAR(	GETDATA+40, FOOTER+5, FOOTER+6, DECODE+6, CHECK+1, H1+4
^MCAR(690.2 - [#690.2]	GETDATA+16, GETDATA+17, GETDATA+18, GETDATA+22, SUBF+1, SUBF+4
^MCAR(697.2 - [#697.2]	GETDATA+14
^TMP("MCORMN"	GETDATA+20, GETDATA+45!

Label References

Name	Line Occurrences
$$DECODE	FOOTER+11
$$DEMO	H1+9
$$HEDSPAS	H1+8
$$HOSP	H1+6
CHECK	VERSION+1
DATE	FOOTER+9
FOOTER	GETDATA+46
FREE	FOOTER+9
HEAD	GETDATA+20
LIMIT	SET+2
NAME	FOOTER+9
SETNODE	GETDATA+29, GETDATA+30, GETDATA+31, GETDATA+37, GETDATA+41, GETDATA+42, GETDATA+43, SUBF+9, SUBF+10, SUBF+11 , SUBF+12, FOOTER+16, FOOTER+17, FOOTER+18, FOOTER+19, FOOTER+21, FOOTER+22, FOOTER+23, FOOTER+24, FOOTER+28 , FOOTER+29, H1+7, H1+8, H1+9, H1+10
SUBF	GETDATA+26
VERSION	FOOTER+14

Naked Globals

Name	Field # of Occurrence
^(	GETDATA+22, GETDATA+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	H1+3
CODE	FOOTER+2~, FOOTER+3~, FOOTER+10, FOOTER+11, FOOTER+12, FOOTER+20, FOOTER+22, DECODE~, DECODE+3, DECODE+4 , DECODE+5, H1+2~, H1+4*
CR	DECODE+1~, DECODE+4*, DECODE+7
CREATION	FOOTER+3~, FOOTER+27
DA	FOOTER+2~
DFN	H1+6, H1+9, HOSP~, HOSP+2, DEMO~
DIC	FOOTER+2~
DIQ	FOOTER+2~
DR	FOOTER+2~
DTEMP	FOOTER+4~, CHECK+1*, CHECK+2
DUZ	DECODE+2, LIMIT+2
EDATE	FOOTER+3~, FOOTER+10
EES	FOOTER+3~
ENAME	FOOTER+3~
ERROR	FOOTER+2~
FFF	H1+10~*
FILE	DECODE~
FNAME	FOOTER+4~, FOOTER+9*, NAME, DATE, FREE
FT	FOOTER+4~, FOOTER+9*
FTYPE	FOOTER+4~, FOOTER+8*, FOOTER+9
>> GMTS1	SET+3
>> GMTS2	SET+3
>> GMTSNDM	SET+1
>> GMTSQIT	HDR+1, HDR+2, HDR+4, HSHDR+3, HSHDR+4, HSHDR+5, HSHDR+6
HOSP	HOSP+1~, HOSP+2, HOSP+3, HOSP+4, HOSP+5, HOSP+6
I	HEDSPAS+1~, HEDSPAS+3*
LIM	LIMIT+1~, LIMIT+2*, LIMIT+3
MCFILE1	FOOTER+30!
>> MCSTAT	FOOTER+24, H1+4*, H1+8
MDCT	GETDATA+10~, SUBF+2*, SUBF+7, SUBF+10, SUBF+11, SUBF+12
MDDAT	GETDATA+10~, GETDATA+24, SUBF+5, SUBF+8, SUBF+11
MDDFN	GETDATA~, GETDATA+9
MDDOB	H1+2~, DEMO+1~, DEMO+4*, DEMO+5
MDDRDR	GETDATA+10~, GETDATA+20, GETDATA+22, GETDATA+23, GETDATA+24, GETDATA+28, GETDATA+30, GETDATA+34
MDDS0	GETDATA+10~, GETDATA+14, GETDATA+16, GETDATA+18, GETDATA+19, GETDATA+22, SUBF+1, SUBF+4
MDDS1	GETDATA+10~, GETDATA+14, GETDATA+16, GETDATA+17, GETDATA+18
MDERR	GETDATA+10~, GETDATA+12*, GETDATA+13
MDF	GETDATA~, GETDATA+12, GETDATA+15, GETDATA+24, GETDATA+28, GETDATA+30, GETDATA+34, GETDATA+40, FOOTER+5, FOOTER+6 , FOOTER+11, DECODE+6, CHECK+1, H1+4
MDFLD	GETDATA+10~, GETDATA+20, GETDATA+22
MDFLD1	GETDATA+10~, SUBF+2*, SUBF+3, SUBF+4, SUBF+5, SUBF+7, SUBF+10, SUBF+11, SUBF+12
MDFTYP	GETDATA+10~, GETDATA+24*, GETDATA+26, GETDATA+27, GETDATA+33, GETDATA+36, SUBF+1, SUBF+2, SUBF+5, SUBF+7 , SUBF+10, SUBF+11, SUBF+12
MDGPRO	GETDATA+10~, GETDATA+14*, GETDATA+16
MDGRS	GETDATA~, GETDATA+9, GETDATA+13, GETDATA+15, GETDATA+19, GETDATA+29, GETDATA+30, GETDATA+31, GETDATA+37, GETDATA+41 , GETDATA+42, GETDATA+43, SUBF+9, SUBF+10, SUBF+11, SUBF+12, FOOTER+16, FOOTER+17, FOOTER+18, FOOTER+19 , FOOTER+21, FOOTER+22, FOOTER+23, FOOTER+24, FOOTER+28, FOOTER+29, H1+7, H1+8, H1+9, H1+10
MDH	GETDATA~, GETDATA+15, FOOTER+1, H1+1
MDL1	GETDATA+10~
MDLAB	GETDATA+10~, GETDATA+24, GETDATA+25, GETDATA+29, GETDATA+37, SUBF+5, SUBF+6, SUBF+9, SUBF+11, SUBF+12
MDLIM	SET+1, SET+2, LIMIT~, LIMIT+3
MDLIM1	SET+1~
MDLINE	HSHDR+1~, HSHDR+2*, HSHDR+3, HSHDR+5
MDLNE	GETDATA+10~, GETDATA+15, GETDATA+20, SETNODE+1*
MDLP	GETDATA+10~, GETDATA+30*
MDMCT	GETDATA+10~, SUBF+2, SUBF+3, SUBF+9
MDMFLD	GETDATA+10~, SUBF+1*, SUBF+4
MDN	GETDATA+10~, GETDATA+11*
MDNOD	GETDATA+10~, GETDATA+20*, GETDATA+24, GETDATA+27, GETDATA+28, GETDATA+30, GETDATA+34, SUBF+2, SUBF+5, SUBF+7 , SUBF+10, SUBF+11, SUBF+12
MDNXT	GETDATA+10~, GETDATA+28*
MDPG	HEAD+1~, H1+3, H1+6
MDPNAM	GETDATA+10~, GETDATA+14*, GETDATA+15, H1+8
MDPR	GETDATA~, GETDATA+12, GETDATA+14, GETDATA+15
MDR	GETDATA~, GETDATA+12, GETDATA+15, GETDATA+28, GETDATA+30, GETDATA+34, GETDATA+40, FOOTER+5, FOOTER+6, FOOTER+11 , H1+4
MDRB	H1+2~, DEMO+7*, DEMO+8
MDSP1	HEDSPAS~, HEDSPAS+2, HEDSPAS+3
MDSUBF	GETDATA+10~
MDT	GETDATA~, GETDATA+11, GETDATA+12, GETDATA+28, GETDATA+35, SUBF+7
MDTIME	H1+2~, H1+3*, H1+7
MDTM	H1+2~, H1+4*
>> MDTS1	SET+3*
>> MDTS2	SET+3*
MDTX	GETDATA+10~, GETDATA+36, SUBF+11, HEDSPAS~, HEDSPAS+2
MDTXT	GETDATA+10~, GETDATA+34, GETDATA+35, GETDATA+36, GETDATA+37
MDVAL	GETDATA+10~, GETDATA+30, GETDATA+37, SUBF+10, SUBF+11, SUBF+12*
MDWARD	H1+2~, DEMO+1~, DEMO+7*, DEMO+8
>> MDX1	HSHDR+4
MFD	FOOTER+3~, FOOTER+10, H1+4*
MFDNAME	FOOTER+3~
NA	FOOTER+3~
NAME	FOOTER+3~, FOOTER+8*, FOOTER+9
NODE	SETNODE~, SETNODE+1
NUM	FOOTER+3~, FOOTER+13, FOOTER+15, VERSION+1, VERSION+2*
PART	FOOTER+2~
PDUZ	FOOTER+2~, DECODE+1~, DECODE+5*, DECODE+7
PERSON	FOOTER+4~, FOOTER+11*, FOOTER+25
PRE	DECODE+1~, DECODE+2*, DECODE+3
RDATE	FOOTER+2~, FOOTER+10
REC	DECODE~, DECODE+6, DECODE+7
RELDATE	FOOTER+3~
ROV	FOOTER+3~, FOOTER+12*, FOOTER+29
SCD	FOOTER+2~, FOOTER+10*, FOOTER+25
SCRAMBLE	FOOTER+2~
SDUZ	FOOTER+2~
SS	FOOTER+15, FOOTER+16, FOOTER+17, FOOTER+19, FOOTER+20, FOOTER+21, FOOTER+22, FOOTER+23, FOOTER+25, FOOTER+26 , FOOTER+27, FOOTER+28!, H1+6, H1+7, H1+8, H1+9*
SS1	DEMO+1~, DEMO+3, DEMO+5, DEMO+8
STR	DECODE+1~, DECODE+6*
SUP1	FOOTER+3~
SUP2	FOOTER+3~, FOOTER+12, FOOTER+13, FOOTER+14
SUPD	FOOTER+3~
SUPNUM	FOOTER+3~, FOOTER+12*, FOOTER+13, FOOTER+15, VERSION+1
TDATE	FOOTER+2~
TEMP	FOOTER+2~, FOOTER+6*, FOOTER+9, FOOTER+11, DECODE~, DECODE+2, DECODE+4, DECODE+5
TP	FOOTER+2~
TRUE	FOOTER+2~
>> TSUP2	FOOTER+12, VERSION+1, CHECK+1, CHECK+2
TT	FOOTER+4~, FOOTER+9*
>> TY	HEDSPAS+2, HEDSPAS+3, HEDSPAS+4
U	GETDATA+14, GETDATA+18, GETDATA+24, GETDATA+27, GETDATA+40, SUBF+5, SUBF+8, SUBF+11, FOOTER+9, DECODE+2 , DECODE+4, DECODE+5, CHECK+2, H1+4, HOSP+2, HOSP+5, DEMO+3, DEMO+4, DEMO+7, HSHDR+4
>> VADM(1	DEMO+3
>> VADM(2	DEMO+3
>> VADM(3	DEMO+4
>> VADM(4	DEMO+4
>> VAIN(4	DEMO+7
>> VAIN(5	DEMO+7
VALUE	SETNODE~, SETNODE+1
VDATE	FOOTER+3~, FOOTER+10
VERDATE	FOOTER+3~
VERSION	FOOTER+3~, FOOTER+15*, FOOTER+27
VES	FOOTER+3~
VNAME	FOOTER+3~, FOOTER+12
X	FOOTER+4~, H1+2~, H1+3*
X1	FOOTER+4~
X2	FOOTER+4~
Y	GETDATA+10~, FOOTER+9, NAME, DATE, FREE
Y1	HEDSPAS+1~, HEDSPAS+2*

Customize PDF page

Package: Clinical Procedures