Routine: BLRDOCRM

Information

BLRDOCRM ; IHS/MSC/MKK - Patient Reminder Document ; 13-Oct-2017 14:04 ; MKK

Source Information

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ($$DT,$$FMTE)^XLFDT $$UP^XLFSTR
IHS Changes To Lab	2	($$COLHEAD,ADDTMENU,EEP,HEADERDT,HEADERPG,MENUDRVR,PRESSKEY)^BLRGMENU $$PLURAL^BLRUTIL7
VA Fileman	2	$$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
PLURAL(CNT)	; EP - If CNT'=1, return S else return ""
ALLORDS	; EP
JUSTNEW	; EP - Generic RPMS EXCLUSIVE NEW
BADSTUFF(STR,TAB)	; EP - BADSTUFF error message
PEP	; EP
EEP	; Ersatz EP
SETBLRVS(TWO)	; EP - Set the BLRVERN variable(s)
PLURALI(CNT)	; EP - If CNT'=1, return IES else return Y
FUTURE	; EP
BADSTUFQ(STR,TAB)	; EP - BADSTUFF error message. Ends with Q "Q"uit
FUTUREI(HDR1)	; EP - Initialization
PATLINE	; EP - Line of Data
EP	; EP
PATDATAB	; EP - Breakout Data

External References

Name	Field # of Occurrence
^%ZIS	FUTUREI+11
^%ZISC	FUTURE+17, ALLORDS+12
$$COLHEAD^BLRGMENU	FUTUREI+16
ADDTMENU^BLRGMENU	PEP+5, PEP+6
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	FUTURE+14, FUTUREI+2
HEADERPG^BLRGMENU	PATLINE+1, PATLINE+10
MENUDRVR^BLRGMENU	PEP+8
PRESSKEY^BLRGMENU	FUTURE+18, ALLORDS+13, BADSTUFF+3
$$PLURAL^BLRUTIL7	FUTURE+11
$$GET1^DIQ	FUTUREI+8, FUTUREI+9, FUTUREI+27, PATLINE+16, PATLINE+17, PATDATAB+3, PATDATAB+4, PATDATAB+5, PATDATAB+6
^DIR	FUTUREI+5
^XBFMK	FUTUREI+3
$$DT^XLFDT	FUTUREI+28
$$FMTE^XLFDT	PATDATAB+7
$$UP^XLFSTR	PATDATAB+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?9,ORDCNT," Order",$$PLURAL^BLRUTIL7(ORDCNT),"." Line Location: FUTURE+11
Function Call: WRITE	Prompt: ?9,"No Future/Current Orders for Patient found." Line Location: FUTURE+15
Function Call: WRITE	Prompt: ORDNUM Line Location: PATLINE+5
Function Call: WRITE	Prompt: ?9,ESTCPRNT Line Location: PATLINE+6
Function Call: WRITE	Prompt: ORDNUM Line Location: PATLINE+12
Function Call: WRITE	Prompt: ?9,ESTCPRNT Line Location: PATLINE+13
Function Call: WRITE	Prompt: ?30,$E(F60DESC,1,22) Line Location: PATLINE+19
Function Call: WRITE	Prompt: ?54,$E(URGENCY,1,7) Line Location: PATLINE+20
Function Call: WRITE	Prompt: ?63,$E(PROVIDER,1,17) Line Location: PATLINE+21
Function Call: WRITE	Prompt: ! Line Location: PATLINE+22
Function Call: WRITE	Prompt: !!,?9,ORDCNT," Order",$$PLURAL(ORDCNT),"." Line Location: ALLORDS+11
Function Call: WRITE	Prompt: !!,?TAB,STR," Routine Ends." Line Location: BADSTUFF+2
Routine Call	DIR Line Location: FUTUREI+5
Routine Call	%ZIS Line Location: FUTUREI+11

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
69.01	GET1^DIQ
69.03	GET1^DIQ
9000001.41	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LRO(69 - [#69]	FUTURE+7, FUTURE+9, PATLINE+8, ALLORDS+7, ALLORDS+9

Name	Line Occurrences
$$BADSTUFQ	FUTUREI+6, FUTUREI+12
$$FUTUREI	FUTURE+5, ALLORDS+5
$$PLURAL	ALLORDS+11
BADSTUFF	BADSTUFQ+1
PATDATAB	PATLINE+3
PATLINE	FUTURE+9, ALLORDS+9
SETBLRVS	PEP+3, FUTURE+3, ALLORDS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLRVERN	SETBLRVS+1!, SETBLRVS+3*
BLRVERN2	SETBLRVS+1!, SETBLRVS+4*
CNT	PLURAL~, PLURAL+1, PLURALI~, PLURALI+1
>> DFN	FUTUREI+8*, FUTUREI+9, FUTUREI+27
>> DILOCKTM	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> DIR(0	FUTUREI+4*
>> DIRUT	FUTUREI+6
>> DISYS	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
DT	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
DTIME	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
DUZ	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
DUZ(2	FUTUREI+9
>> ESTCOLDT	PATDATAB+6*, PATDATAB+7
>> ESTCPRNT	PATLINE+6, PATLINE+13, PATDATAB+7, PATDATAB+8
>> F60DESC	PATLINE+16*, PATLINE+19
HDR1	FUTUREI~, FUTUREI+1
>> HDRONE	FUTUREI+25*, PATLINE+1, PATLINE+10
>> HEADER(	FUTURE+13!
>> HEADER(1	FUTUREI+1*
>> HEADER(2	FUTUREI+9*
>> HEADER(3	FUTUREI+15*
>> HEADER(4	FUTUREI+16*
>> HEADER(5	FUTUREI+17, FUTUREI+18, FUTUREI+19, FUTUREI+20, FUTUREI+21*
>> I	FUTURE+13*
IO	PEP+1, FUTURE+1, FUTUREI+14, ALLORDS+1, JUSTNEW+1
>> IOBS	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
IOF	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
IOM	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
ION	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> IOS	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
IOSL	PEP+1, FUTURE+1, FUTUREI+24, ALLORDS+1, JUSTNEW+1
IOST	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> IOT	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> IOXY	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> LINES	FUTUREI+24, PATLINE+1, PATLINE+9, PATLINE+23
>> LRDFN	FUTURE+7, FUTURE+9, FUTUREI+27*, ALLORDS+7, ALLORDS+9
>> LRODT	FUTURE+7, FUTURE+9, FUTUREI+28, PATLINE+8, PATDATAB+2, ALLORDS+7*, ALLORDS+9
>> LROT	PATLINE+7, PATLINE+8, PATLINE+15
>> LROTIEN	PATLINE+15*, PATLINE+16, PATLINE+17
>> LRSP	FUTURE+8, FUTURE+9, PATLINE+8, PATDATAB+2, ALLORDS+8, ALLORDS+9
>> MAXLINES	FUTUREI+24*, PATLINE+1, PATLINE+9
>> ORDCNT	FUTURE+11, FUTUREI+23, PATDATAB+1, ALLORDS+11
>> ORDERDT	PATDATAB+4*
>> ORDIEN	PATLINE+15, PATDATAB+2*, PATDATAB+3, PATDATAB+4, PATDATAB+5, PATDATAB+6
>> ORDNUM	PATLINE+5, PATLINE+12, PATDATAB+3*
>> PATNAME	FUTUREI+8*, FUTUREI+9
>> PG	FUTUREI+25*, PATLINE+1, PATLINE+10
>> POP	FUTUREI+12
>> PROVIDER	PATLINE+21, PATDATAB+5*
>> QFLG	FUTURE+7, FUTURE+9, FUTUREI+25*, PATLINE+1, PATLINE+8, PATLINE+9, PATLINE+10, PATLINE+11, ALLORDS+7, ALLORDS+9
STR	BADSTUFF~, BADSTUFF+2, BADSTUFQ~, BADSTUFQ+1
TAB	BADSTUFF~, BADSTUFF+1*, BADSTUFF+2, BADSTUFF+3, BADSTUFQ~, BADSTUFQ+1
>> TODAY	FUTURE+7, FUTUREI+28*
TWO	SETBLRVS~, SETBLRVS+4
U	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> URGENCY	PATLINE+17*, PATLINE+20
>> XPARSYS	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> XQXFLG	PEP+1, FUTURE+1, ALLORDS+1, JUSTNEW+1
>> Y	FUTUREI+8

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRDOCRM

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items