Routine: SCRPW18

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?8,"Clinic: ",SDCLN Line Location: TPRT+0
Function Call: WRITE	Prompt: !!,$E(SDPTNA,1,24),?26,SDSN Line Location: PP2+1
Function Call: WRITE	Prompt: ?39,$P(Y,":",1,2),?58,SDTY,?81,$E(SDCI,1,25),?107,$E(SDCO,1,25),!,?26,"Status: ",$P($G(^SD(409.63,+$P(SDOE0,U,12),0)),U) Line Location: PP2+1
Function Call: WRITE	Prompt: ?27,$$DEF(SDX,104) Line Location: PP2+3
Function Call: WRITE	Prompt: Condition for execution: SDPAGE'=1!($E(IOST)="C") $$XY^SCRPW50(IOF,1,0) W:$X $$XY^SCRPW50("",0,0) W SDLINE S SDI=0 F S SDI=$O(SDT(SDI)) Q:'SDI Line Location: HDR+5
Function Call: WRITE	Prompt: !?(132-$L(SDT(SDI))\2),SDT(SDI) Line Location: HDR+5
Function Call: WRITE	Prompt: !,SDLINE,!,"For date range: ",SDBDAY," to ",SDEDAY,!,"Date printed: ",SDPNOW,?(126-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Patient:",?26,"SSN:",?39,"Date/time:",?58,"Type:",?81,"Check-in user:",?107,"Check-out user:",!,SDLINE Line Location: HDR+7
Function Call: WRITE	Prompt: !!?35,$S(SDIV:"DIVISION",1:"TOTAL")," 'ACTION REQUIRED' ENCOUNTERS IDENTIFIED: ",SDFCT(SDIV) Line Location: STAT+2
Function Call: WRITE	Prompt: !!?(132-$L(SDX)\2),SDX,! Line Location: ST1+0
Function Call: WRITE	Prompt: !!?35,"Clinic:" Line Location: ST1+1
Function Call: WRITE	Prompt: !?35,SDCLN,?89,$J(^TMP("SCRPW",$J,SDIV,1,SDCG,SDCLN),6) Line Location: ST1+2
Function Call: WRITE	Prompt: !!?(132-$L(SDX)\2),SDX,!?35,$E(SDLINE,1,60),! Line Location: ST1+3
Function Call: WRITE	Prompt: !?35,"Reason:" Line Location: REASON+0
Function Call: WRITE	Prompt: !?35,$$DEF(SDI,52),?89,$J(^TMP("SCRPW",$J,SDIV,2,SDCG,SDI),6) Line Location: REASON+1
Function Call: WRITE	Prompt: ! Line Location: REASON+2
Routine Call	DIR Line Location: HDR+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	ETAE
^DD("DD"	PP2+1, HD1
^DPT - [#2]	ETDIS, ETAP
^ORD(101 - [#101]	CHEK+19
^SC - [#44]	ETAP+2, ETAP+3, ETAP+4
^SD(409.63 - [#409.63]	PP2+1
^SD(409.76 - [#409.76]	VER+8, DEF+3, DEF+5
^TMP("SCRPW"	DET+1, TPRT, PPRT, PP1, PP1+1, PP2, PP2+2, PP2+3, STAT+1, ST1+2 , ST1+3, REASON+1
^TMP("SCRPWVER"	VER+7!, VER+8!
^VA(200 - [#200]	ETDIS, ETAP+3, ETAP+4, ETAP+5, ETAE

Label References

Name	Line Occurrences
$$DEF	PP2+3, REASON+1
@(	VER+7
ETAE	ETCO
ETAP	ETCO
ETCO	PP1+1
ETDIS	ETCO
HDR	DET+1, TPRT, PP2+1, STAT+1, STAT+2, ST1, ST1+1, ST1+2, ST1+3, REASON , REASON+1
PP1	PPRT
PP2	PP1+1
PPRT	TPRT
REASON	ST1+1
ST1	STAT+1
STR	CHEK+17
TPRT	DET+1
VER	CHEK+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HD1
DELPTR	CHEK+16~, CHEK+19*
DFN	CHEK+16~, CHEK+18, PPRT, PP1, PP1+1, PP2, PP2+2, PP2+3, ETDIS, ETAP , ETAP+2
DIR	HDR+4~
DIR(0	HDR+4*
ENCDT	CHEK+16~, CHEK+19*
ENCNDT	CHEK+16~, CHEK+19*
ENCPTR	CHEK~, CHEK+18
ERROR	VER+6~, VER+7*, VER+8
ERRSUB	VER+6~
EVNTDATE	CHEK+16~, CHEK+19*
EVNTHL7	CHEK+16~, CHEK+19*
HL	CHEK+16~, CHEK+19
HLEID	CHEK+16~, CHEK+19*
IOF	HDR+5
IOSL	TPRT, PP2+1, STAT+2, ST1, ST1+1, ST1+2, ST1+3, REASON, REASON+1
IOST	HDR+4, HDR+5
NODE	CHEK+16~, CHEK+18*, CHEK+19
SD	SEGS+3~, SEGS+5*
SD("BDT"	HD1
SD("CLINIC"	T2+1
SD("EDT"	HD1
SD("FORMAT"	DET+1, T2, T2+1, T2+2, T2+7, T2+8, ST1, ST1+3
SD("GROUP"	T2+8
SD("PAGE"	TPRT
SD("STOPCODE"	T2+3, T2+7
>> SDAP0	ETAP*, ETAP+1
SDARY	CHEK~, CHEK+17, CHEK+20, VER~, SEGS~, SEGS+5!
SDARY(	CHEK+17, CHEK+20, VER+6, VER+8, SEGS+5
>> SDBDAY	HD1*, HDR+6
SDC	T2+1~*
>> SDCG	DET+1, TPRT, PPRT, PP1+1, PP2, PP2+2, PP2+3, STAT+1, ST1, ST1+2 , ST1+3, REASON+1
>> SDCI	PP2+1, ETCO, ETDIS, ETAP+3, ETAP+4
>> SDCL	ETAP*, ETAP+2, ETAP+3, ETAP+4
>> SDCLN	TPRT, PPRT, PP1+1, PP2, PP2+2, PP2+3, ST1+2
>> SDCLPT	ETAP+2*, ETAP+3, ETAP+4
>> SDCLPTC	ETAP+4*, ETAP+5
>> SDCO	PP2+1, ETCO, ETDIS, ETAP+5, ETAE
>> SDCT	PP2, PP2+1, PP2+2, PP2+3*
>> SDDIS	ETDIS*
SDE1	CHEK+16~
SDE1(	VER+8
>> SDEDAY	HD1*, HDR+6
SDERR	CHEK+16~, CHEK+19, CHEK+20, CHEK+21, VER~, VER+8, DEF+4~*
>> SDFCT(	STAT+2
>> SDFF	DET+1, TPRT
SDI	CHEK+16~, VER+8, STR+3~, STR+4, PP2, PP2+2, PP2+3, T2+2~, T2+3, T2+4 , T2+5, T2+7~, HDR+5~, REASON, REASON+1
>> SDIV	DET+1, TPRT, PPRT, PP1, PP1+1, PP2, PP2+2, PP2+3, STAT+1, STAT+2 , ST1+2, ST1+3, REASON+1
SDL	SEGS+3~, SEGS+5*, DEF~, DEF+3, DEF+4, DEF+6
>> SDLINE	HD1*, HDR+5, HDR+6, HDR+7, ST1+3
>> SDOE	PP1+1*, PP2, PP2+2, PP2+3
>> SDOE0	PP1+1*, PP2+1, ETCO, ETDIS, ETAP, ETAP+2, ETAP+3, ETAP+4, ETAE
>> SDORD	PPRT*, PP1+1, PP2, PP2+2, PP2+3
>> SDOUT	DET+1, TPRT, PPRT, PP1+1, PP2+1, PP2+2, HDR+3, HDR+4*
>> SDPAGE	HD1, HDR+4, HDR+5, HDR+6
>> SDPNOW	HD1*, HDR+6
>> SDPT0	PP1*
>> SDPTNA	PP1*, PP2+1
SDR	HDR~, HDR+7
SDS	SEGS+3~, SEGS+4*, SEGS+5, SEGS+6
SDSEG	STR+3~, STR+4*
>> SDSN	PP1*, PP2+1
SDSTR	CHEK~, CHEK+17, STR~
SDSTR(	CHEK+17, CHEK+20, STR+4*!
SDT	DET+1, TPRT, PP2+1, HDR~, STAT+1, STAT+2, ST1, ST1+1, ST1+2, ST1+3 , REASON, REASON+1
SDT(	HDR+5
SDT(1	DET+1, STAT+1
>> SDTY	PP2+1, ETCO, ETDIS, ETAP+1, ETAP+3, ETAE
SDV	ETAE, DEF+5~, DEF+6
SDX	CHEK+16~, VER+8, PP2+3, T2+1~, T2+2~, T2+3, T2+4, T2+5, T2+7~, ST1 , ST1+3*, DEF~, DEF+3, DEF+4, DEF+5, DEF+6
SEG	CHEK+16~, CHEK+17, CHEK+20, VER~, VER+6, VER+7, VER+8
TAG	VER+6~, VER+7*
U	CHEK+18, CHEK+19, VER+8, SEGS+5, PP1, PP2+1, ETCO, ETDIS, ETAP, ETAP+1 , ETAP+2, ETAP+3, ETAP+4, ETAP+5, ETAE, T2+8, DEF+5
VAFARRY	VER+6~, VER+7*
VAFSTR	CHEK+16~, CHEK+20*, VER~
VALERR	CHEK+16~*
>> X	ETAP+1*
XMITPTR	CHEK+16~*
>> Y	PP2+1, HD1, HDR+4

Name	Comments	DBIA/ICR reference
STAT	;Print statistics
CHEK(ENCPTR,SDARY,SDSTR)	;Consistency checker for outpatient encounter transactions
ETAP
PPRT
STR(SDSTR)	;Create segment string
ETAE
REASON
HDR(SDT,SDR)	;Print header
SEGS(SDARY)	;Return segments to validate
DET	;Print detail
PP1
DEF(SDX,SDL)	;Produce deficiency external value
PP2
TPRT
VER(SEG,VAFSTR,SDARY,SDERR)	;Verify a segment
ETDIS
ST1
T2()
HD1
ETCO

Customize PDF page

Package: Scheduling

Routine: SCRPW18

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: