Routine: MDSTATU

Information

MDSTATU ; HOIFO/NCA - Print List of Document Titles Needed ;10/21/04 13:44

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR
VA FileMan	3	NOW^%DTC $$FIND1^DIC UPDATE^DIE
Registration	1	(IN5,KVAR)^VADPT

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: 3

Package	Total	Caller Graph
Clinical Procedures	3	MDCVT MDCVT LIST OF TIU TITLES MDCVT1

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; Display List of TIU titles need to be created for Medicine procedures
D1	; Process Display
PAUSE	; Pause For Scroll
DTP	; Printable Date/Time
HDR	; Display Header and Scroll Pause
H1	; Print Header
SETDEF	; Set default CP Definitions in Conversion Parameter
GETMED(MDMNO,MDTYPE)	; Get the Medicine Procedure name
LOCATP(MDNNO)	; Locate the CP Definition procedure or Add the New Entry
LOCATN(MDNNO)	; Locate the Historical Document Title
HOSP(MDNNO)	; Locate the Hospital Location
MEDTIT	;; [Medicine Historical Document Titles]

External References

Name	Field # of Occurrence
NOW^%DTC	H1+2
^%ZIS	DISP+1
^%ZISC	DISP+2, DISP+3
^%ZTLOAD	DISP+2
$$FIND1^DIC	D1+15, SETDEF+4, LOCATN+5, HOSP+13
UPDATE^DIE	SETDEF+21, LOCATP+7
IN5^VADPT	HOSP+12
KVAR^VADPT	HOSP+12
$$UP^XLFSTR	D1+8, SETDEF+12, GETMED+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DISP+1
Function Call: WRITE	Prompt: !,"Request Queued" Line Location: DISP+2
Function Call: WRITE	Prompt: !!,"No Historical TIU titles need to be created." Line Location: D1+17
Function Call: WRITE	Prompt: ! Line Location: D1+18
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
Function Call: WRITE	Prompt: !,DTP,?20,"L I S T O F T I U T I T L E S N E E D E D",?73,"Page ",PG Line Location: H1+3
Function Call: WRITE	Prompt: ! Line Location: H1+4
Function Call: WRITE	Prompt: !,LN,! Line Location: H1+4
Function Call: WRITE	Prompt: !,"PROCEDURES",?35,"Titles Needed to be Created" Line Location: H1+5
Function Call: WRITE	Prompt: !,"----------",?35,"---------------------------",! Line Location: H1+6
Routine Call	DIC Line Location: D1+15 SETDEF+4 LOCATN+5 HOSP+13
Routine Call	DIE Line Location: SETDEF+21 LOCATP+7
Routine Call	%ZIS Line Location: DISP+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	HOSP+12, HOSP+13
^DPT - [#2]	HOSP+13
^MCAR(	HOSP+9, HOSP+11
^MCAR(694 - [#694]	GETMED+17
^MCAR(697.2 - [#697.2]	D1+7, D1+8, SETDEF+11, SETDEF+12, GETMED+8, GETMED+13, GETMED+15, GETMED+18
^MCAR(699 - [#699]	GETMED+7
^MCAR(699.5 - [#699.5]	GETMED+11, GETMED+12
^MDD(703.9 - [#703.9]	D1+3, SETDEF+6, SETDEF+22, SETDEF+23
^MDS(702.01 - [#702.01]	SETDEF+17, LOCATP+5

Label References

Name	Line Occurrences
$$GETMED	LOCATP+3, LOCATN+3
D1	DISP+3
DTP	H1+3
H1	D1+2
HDR	D1+9
PAUSE	PAUSE+1, HDR+1

Naked Globals

Name	Field # of Occurrence
^(	D1+3, SETDEF+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DTP+1, DTP+2!, H1+2
%ZIS	DISP+1!*, DISP+3!
%ZIS("A"	DISP+1*
ANS	D1+1~, D1+2, D1+3, D1+7, D1+9, PAUSE+1, HDR+1
CNT	D1+1~, D1+2, D1+8, D1+17
>> DFN	HOSP+11*, HOSP+13
DTIME	PAUSE+1
DTP	D1+1~, DTP+1, DTP+2, H1+3*
IO	DISP+3
IO("Q"	DISP+2
IOF	H1+1
IOP	DISP+1!, DISP+3!
IOSL	D1+2
IOST	D1+2, PAUSE+1, H1+1
LN	D1+1~, H1+4*
LP	D1+1~, D1+3*
MDDIEN	SETDEF+1~, SETDEF+19!, LOCATP+1~, LOCATN+1~
MDDIEN(1	SETDEF+22, LOCATP+8
MDERR	SETDEF+1~, SETDEF+19!, SETDEF+21, LOCATP+1~, LOCATP+7, LOCATN+1~, HOSP+1~
MDF	D1+1~, D1+3, D1+4, D1+5, D1+6, D1+10, D1+11, D1+12, SETDEF+1~, SETDEF+6 , SETDEF+7, SETDEF+13, SETDEF+18, SETDEF+23
MDFC	SETDEF+1~, SETDEF+7*, SETDEF+8, SETDEF+9, SETDEF+10, SETDEF+23
MDFDA	SETDEF+1~, LOCATP+1~, LOCATN+1~
MDFDA(	SETDEF+20, LOCATP+6
MDFIL	D1+1~, D1+2, D1+15, SETDEF+1~, SETDEF+4
MDI	GETMED+1~, GETMED+5, GETMED+7, GETMED+11, GETMED+12, GETMED+17, HOSP+1~, HOSP+4, HOSP+9, HOSP+11
MDK	D1+1~, D1+8, SETDEF+1~, SETDEF+11, SETDEF+12*
MDL	HOSP+1~, HOSP+2, HOSP+3, HOSP+4, HOSP+9, HOSP+10, HOSP+12, HOSP+13, HOSP+14
MDLL	GETMED+1~, GETMED+7, GETMED+8, GETMED+9, GETMED+13, GETMED+14, GETMED+15, GETMED+17, GETMED+18*, GETMED+19
MDLL1	GETMED+1~, GETMED+7*
MDLL6	GETMED+1~, GETMED+11*, GETMED+13
MDLL8	GETMED+1~, GETMED+12*, GETMED+15
MDLP	SETDEF+1~, SETDEF+6*, SETDEF+22, SETDEF+23
MDMF	GETMED+1~, GETMED+5, GETMED+6, GETMED+10, GETMED+16, HOSP+1~, HOSP+4, HOSP+8, HOSP+9, HOSP+11
MDMNO	GETMED~, GETMED+4, GETMED+5, LOCATP+2, LOCATP+3, LOCATN+2, LOCATN+3
MDN	D1+1~, D1+7, D1+8, SETDEF+1~, SETDEF+11, SETDEF+12
MDN1	D1+1~, D1+8*, D1+10, D1+11, D1+12
MDNA	GETMED+1~, GETMED+2, GETMED+3, GETMED+4, GETMED+5, GETMED+9, GETMED+14, GETMED+15, GETMED+19, GETMED+20 , GETMED+21
MDNAM	SETDEF+1~, SETDEF+11, SETDEF+12, SETDEF+13, SETDEF+14, SETDEF+15, SETDEF+16*, SETDEF+17, SETDEF+20
MDNM	LOCATP+1~, LOCATP+3, LOCATP+4, LOCATP+5, LOCATP+6, LOCATN+1~, LOCATN+3*, LOCATN+4
MDNNO	LOCATP~, LOCATP+2, LOCATN~, LOCATN+2, HOSP~, HOSP+3, HOSP+4
MDOPT	SETDEF+1~, SETDEF+2, SETDEF+3, SETDEF+5, HOSP+1~, HOSP+5, HOSP+6, HOSP+7
MDR	D1+1~, D1+6, D1+7, SETDEF+1~, SETDEF+7, SETDEF+11
MDS	SETDEF+1~, SETDEF+3, SETDEF+4, HOSP+1~, HOSP+6, HOSP+7, HOSP+8*, HOSP+9
MDT	LOCATN+1~, LOCATN+4*, LOCATN+5
MDTAR	SETDEF+1~!, HOSP+1~, HOSP+2!
MDTAR(	SETDEF+5, SETDEF+23, HOSP+7, HOSP+8
MDTIT	D1+1~, D1+5*
MDTYPE	GETMED~, GETMED+3, GETMED+14, GETMED+15
MDV	D1+1~, D1+13, D1+14, D1+15, D1+16, LOCATN+1~, LOCATN+5, HOSP+1~, HOSP+13
MDW	HOSP+1~, HOSP+12, HOSP+13
MDW1	HOSP+1~, HOSP+13*
MDX	D1+1~, H1+2, H1+3, SETDEF+1~, SETDEF+2, HOSP+1~, HOSP+5*
MDY	SETDEF+1~, SETDEF+4*, SETDEF+5
PG	D1+1~, D1+2, H1+1, H1+3
>> POP	DISP+1
S1	D1+1~, D1+2*, D1+9
TIT	D1+1~, D1+8*, D1+13, D1+16
U	D1+4, D1+5, D1+6, D1+8, D1+10, D1+11, D1+12, SETDEF+7, SETDEF+12, SETDEF+13 , SETDEF+18, SETDEF+22, SETDEF+23, GETMED+7, GETMED+9, GETMED+11, GETMED+12, GETMED+14, GETMED+15, GETMED+17 , GETMED+19, HOSP+11, HOSP+12, HOSP+13
>> VAIP("D"	HOSP+11*
>> VAIP(5	HOSP+12
X	D1+1~, PAUSE+1*
Y	LOCATP+1~, LOCATP+3, LOCATP+5, LOCATP+8, LOCATP+9, LOCATN+1~, LOCATN+3, LOCATN+5*, LOCATN+6
>> ZTDESC	DISP+2*
>> ZTDTH	DISP+2*
>> ZTIO	DISP+2*
>> ZTREQ	DISP+2*
>> ZTRTN	DISP+2*
>> ZTSAVE("ZTREQ"	DISP+2*

Marked Items

Name	Field # of Occurrence
$T(MEDTIT+MDX	SETDEF+2, HOSP+5

Customize PDF page

Package: Clinical Procedures