Routine: SCMCHLR

Package	Total	Call Graph
Scheduling	3	$$HLEID^SCMCHL $$BUILD^SCMCHLB PTPD^SCMCHLB2
MailMan	2	$$READ^XMGAPI1 $$NET^XMRENT
Health Level Seven	1	INIT^HLFNC2
Registration	1	$$SITE^VASITE
VA Fileman	1	YN^DICN

Package

Total

Call Graph

Scheduling

$$HLEID^SCMCHL $$BUILD^SCMCHLB PTPD^SCMCHLB2

MailMan

$$READ^XMGAPI1 $$NET^XMRENT

INIT^HLFNC2

$$SITE^VASITE

YN^DICN

Name	Comments	DBIA/ICR reference
PARSE	;Parse out DFN and VARPTR from text of message
EN	;
ASK1
ASK()	;Ask if they want to re-tranmit selected msgs.
TOP	;
GETMSG2	;
GETMSG	;Prompt for reject message number.
RETRAN	;Re-transmit selected items.
GETMSG1
EXIT	;
ARRAY	;Build array of message text.

Name	Field # of Occurrence
YN^DICN	ASK1+1
INIT^HLFNC2	RETRAN+18
$$HLEID^SCMCHL	RETRAN+13
$$BUILD^SCMCHLB	RETRAN+26
PTPD^SCMCHLB2	RETRAN+24
$$SITE^VASITE	RETRAN+10
$$READ^XMGAPI1	ARRAY+6
$$NET^XMRENT	GETMSG1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?(IOM-$L(HD)\2),HD Line Location: GETMSG+11
Function Call: WRITE	Prompt: !,LINE Line Location: GETMSG+12
Function Call: WRITE	Prompt: !!,"Select an Austin HL7 rejection Mailman message." Line Location: GETMSG+13
Function Call: WRITE	Prompt: !!,"Enter MESSAGE NUMBER: " Line Location: GETMSG1+2
Function Call: READ	Timeout: 300 Variable: ANS Line Location: GETMSG1+3
Function Call: WRITE	Prompt: ANS Line Location: GETMSG1+6
Function Call: WRITE	Prompt: !,"Enter a valid Mailman message number or <RET> to Quit." Line Location: GETMSG1+9
Function Call: WRITE	Prompt: !,"Sorry, not a valid PCMM HL7 reject message number." Line Location: GETMSG2+1
Function Call: WRITE	Prompt: !,"Cannot identify patient. Aborting." Line Location: PARSE+9
Function Call: WRITE	Prompt: !,"Cannot identify event ID. Aborting." Line Location: PARSE+15
Function Call: WRITE	Prompt: !,"Cannot identify long ID. Aborting." Line Location: PARSE+20
Function Call: WRITE	Prompt: !!,"Patient: ",$P($G(^DPT(DFN,0)),U,1) Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"Are you sure you want to re-transmit" Line Location: ASK1+0
Function Call: WRITE	Prompt: " Enter YES or NO" Line Location: ASK1+2
Function Call: WRITE	Prompt: "Unable to initialize HL7 variables - protocol not found" Line Location: RETRAN+15
Function Call: WRITE	Prompt: $P(HL,"^",2) Line Location: RETRAN+19
Function Call: WRITE	Prompt: $P(RESULT,"^",2) Line Location: RETRAN+25
Function Call: WRITE	Prompt: !!,"Message re-transmitted...",! Line Location: RETRAN+32

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	GETMSG1+5, GETMSG1+19*
^DPT - [#2]	ASK+2
^SCPT(404.43 - [#404.43]	PARSE+21
^SCPT(404.49 - [#404.49]	PARSE+16
^TMP("REJECTS"	EXIT+1!, ARRAY+3!, ARRAY+7*, PARSE+6, PARSE+10

Name	Line Occurrences
$$ASK	TOP+5
ARRAY	TOP+3
ASK1	ASK1+2
EXIT	TOP+2, TOP+4
GETMSG	TOP+1
GETMSG1	GETMSG1+4, GETMSG1+8, GETMSG1+13, GETMSG1+15
GETMSG2	GETMSG1+13, GETMSG1+15
PARSE	TOP+4
RETRAN	TOP+6
TOP	TOP+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	GETMSG+7~, ASK+1~, ASK1+1*, ASK1+2, ASK1+3
%DT	GETMSG+7~
%Y	ASK+1~
ANS	GETMSG+7~, GETMSG1+3, GETMSG1+4, GETMSG1+5, GETMSG1+6, GETMSG1+7, GETMSG1+16, GETMSG1+19
CNT	ARRAY+1~, ARRAY+4, ARRAY+7, ARRAY+8
DATA	GETMSG+7~, GETMSG1+7*, GETMSG1+8, GETMSG1+12, GETMSG1+14
DFN	EN+1~, TOP+4, PARSE+7, PARSE+8, PARSE+14, PARSE+19*, ASK+2
DUZ	GETMSG1+5, GETMSG1+19
HD	GETMSG+7~, GETMSG+10*, GETMSG+11
HL	RETRAN+3~, RETRAN+18, RETRAN+19, RETRAN+26
HL(""	RETRAN+19
HLECH	RETRAN+3~
HLEID	RETRAN+3~, RETRAN+13*, RETRAN+14, RETRAN+18
HLFS	RETRAN+3~
HLQ	RETRAN+3~
ID	PARSE+4~, PARSE+11, PARSE+12, PARSE+13, PARSE+16
IDLONG	PARSE+4~, PARSE+16*, PARSE+17
IOF	GETMSG+11
IOM	GETMSG+9, GETMSG+11
LINE	GETMSG+7~, GETMSG+9*, GETMSG+12
LN	PARSE+4~, PARSE+6, PARSE+7, PARSE+10, PARSE+11
PT	RETRAN+2~
PTPI	PARSE+4~, PARSE+17, PARSE+18, PARSE+21, PARSE+22, RETRAN+2~, RETRAN+23, RETRAN+24
RESULT	RETRAN+2~, RETRAN+25, RETRAN+26*
SCDELETE	EN+1~, PARSE+21*, RETRAN+22
SCFAC	RETRAN+2~, RETRAN+10*
SCMSG	EN+1~, GETMSG1!
SCMSG("FROM"	GETMSG1+12*, GETMSG1+13
SCMSG("IEN"	TOP+2, GETMSG1+1, GETMSG1+16, ARRAY+5
SCMSG("SUBJ"	GETMSG1+14*, GETMSG1+15
U	PARSE+16, ASK+2
VARPTR	EN+1~, PARSE+22*, RETRAN+23, RETRAN+26
X	GETMSG+7~, ARRAY+1~, ARRAY+6*, ARRAY+7
XMER	ARRAY+1~, ARRAY+6
XMITARRY	RETRAN+2~, RETRAN+6*, RETRAN+7, RETRAN+26, RETRAN+31
XMPOS	ARRAY+1~
XMRG	ARRAY+1~
XMZ	ARRAY+1~, ARRAY+5*
Y	GETMSG+7~

Customize PDF page

Package: Scheduling

Routine: SCMCHLR

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: