Routine: SCDXSUP

Package	Total	Call Graph
Kernel	2	($$DT,$$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA Fileman	2	^DIE ^DIR
Scheduling	1	($$CRTXMIT,STREEVNT,XMITFLAG)^SCDXFU01

Entry Points

Name	Comments	DBIA/ICR reference
ASKDT(TXT)	; Enter beginning date for searching outpatient encounter file
CQAPI(SCBG,SCED,SCPFLG)	; API entry point for re-calculation of OUTPATIENT ENCOUNTER checkout status ; INPUT: ; SCBG - Beginning date, if passed in, use it ; SCED - Ending date, if passed in, use it ; SCPFLG - Print Report flag ; 1 - Print report ; 0 - Do not print report
HDR	; Header
EVAL(SC0,OEIN,SDT)	;Evaluate checkout status ; ** If the encounter appt. status is CHECKED OUT, and the check out process is ; completed, but there is no entry for the encounter in the Transmitted ; Outpatient Encounter file, then process the encounter into the Transmitted ; Outpatient Encounter File, #409.73
NEWPAGE()	; Check device and display prompt for terminals
CRTX	;
EXIT	;
NEXT1	;
PRT(SC0)	;Print appointment
CQ	;Queue re-calculation of OUTPATIENT ENCOUNTER checkout status
CALC	;Update Checkout Status
CQ1

External References

Name	Field # of Occurrence
^DIE	EVAL+25, EVAL+32
^DIR	ASKDT+4, NEWPAGE+4
$$CRTXMIT^SCDXFU01	EVAL+26, EVAL+35
STREEVNT^SCDXFU01	EVAL+27, EVAL+36
XMITFLAG^SCDXFU01	EVAL+27, EVAL+36
$$DT^XLFDT	ASKDT+3
$$FMTE^XLFDT	CALC+21, CALC+22, CALC+23, PRT+5, ASKDT+3
$$NOW^XLFDT	CALC+21
EN^XUTMDEVQ	CQ1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will check outpatient encouters with a status of 'CHECKED OUT'" Line Location: CQ+13
Function Call: WRITE	Prompt: !,"for a entry in the TRANSMITTED OUTPATIENT ENCOUNTER file." Line Location: CQ+14
Function Call: WRITE	Prompt: !,"If no entry exists, and the encounter is for a COUNT Clinic, then " Line Location: CQ+15
Function Call: WRITE	Prompt: !,"a transmission entry will be added." Line Location: CQ+16
Function Call: WRITE	Prompt: !!,"This may take a while, please queue to a printer!",! Line Location: CQ+17
Function Call: WRITE	Prompt: !!,"Ending date cannot be earlier than the Beginning date!",! Line Location: CQ1+3
Function Call: WRITE	Prompt: !!,"No encounters with missing transmission records found." Line Location: CRTX+4
Function Call: WRITE	Prompt: !!,SCCT," transmission record",$S(SCCT=1:"",1:"s")," created." Line Location: CRTX+12
Function Call: WRITE	Prompt: !!,"No Count Clinic encounters found needing retransmission." Line Location: NEXT1+7
Function Call: WRITE	Prompt: !!,SCCT," Count clinic encounters marked for retransmission." Line Location: NEXT1+14
Function Call: WRITE	Prompt: !,SCLINE,!,?(IOM-($L(SCHD)+10)\2),"<> ",SCHD," <>",!,SCLINE Line Location: HDR+2
Function Call: WRITE	Prompt: !,"For date range ",SCBDT," to ",SCEDT Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Date printed: ",SCPNOW,?(IOM-7-$L(PAGE)),"Page: ",PAGE,! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Patient",?21,"SSN",?33,"Appointment",?56,"Clinic",!,SCLINE Line Location: HDR+6
Function Call: WRITE	Prompt: !,$E($P(SCPT0,U),1,18),?21,$P(SCPT0,U,9) Line Location: PRT+4
Function Call: WRITE	Prompt: ?33,$P($$FMTE^XLFDT($P(SC0,U)),":",1,2) Line Location: PRT+5
Function Call: WRITE	Prompt: ?56,$E($P($G(^SC(+$P(SC0,U,4),0)),U),1,(IOM-56)) Line Location: PRT+6
Function Call: WRITE	Prompt: ! Line Location: NEWPAGE+3
Function Call: WRITE	Prompt: @IOF Line Location: NEWPAGE+5
Routine Call	DIE Line Location: EVAL+25 EVAL+32
Routine Call	DIR Line Location: ASKDT+4 NEWPAGE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SCE - [#409.68]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRT+3
^SC - [#44]	EVAL+23, EVAL+30, PRT+6
^SCE - [#409.68]	CALC+10
^SCE("B"	CALC+8, CALC+9, CALC+14!
^SD(409.73 - [#409.73]	EVAL+22, EVAL+33
^TMP("SCMSC"	CALC+4!, CRTX+3, CRTX+7, CRTX+8, CRTX+9, NEXT1+6, NEXT1+10, NEXT1+11, NEXT1+12, EXIT+2! , EVAL+27, EVAL+36

Label References

Name	Line Occurrences
$$ASKDT	CQ+20, CQ1
$$NEWPAGE	CRTX+11, NEXT1+2, PRT+2
CQ1	CQ1+2
EVAL	CALC+15
EXIT	CALC+17, NEXT1+6
HDR	CRTX+2, CRTX+11, NEXT1+5, NEXT1+14, PRT+2
NEXT1	CRTX+3
PRT	CRTX+9, NEXT1+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	CQ1+6~, CQ1+7*, CQ1+8, EXIT+1!
>> DA	EVAL+24, EVAL+31
DIE	EVAL+24, EVAL+25!, EVAL+31, EVAL+32!
DIR	ASKDT+4!, NEWPAGE+1~
DIR("?"	ASKDT+2*
DIR("A"	ASKDT+1*
DIR("B"	ASKDT+3*
DIR(0	ASKDT+1, NEWPAGE+4
DIRUT	ASKDT+5, ASKDT+6!
DR	EVAL+24, EVAL+25!, EVAL+31, EVAL+32!
IOF	NEXT1+4, HDR+1, NEWPAGE+5
IOM	CALC+20, HDR+2, HDR+4, PRT+6
IOSL	CRTX+11, NEXT1+14, PRT+2
IOST	NEXT1+4, NEWPAGE+2
OEIN	CALC+2~, CALC+9, CALC+10, CALC+14, CALC+15, CRTX+8, CRTX+9, NEXT1+11*, NEXT1+12, EVAL~ , EVAL+22, EVAL+24, EVAL+26, EVAL+27, EVAL+31, EVAL+33, EVAL+35, EVAL+36
PAGE	CALC+24, NEXT1+3, EXIT+1!, HDR+1, HDR+4, HDR+7*
SC0	EVAL~, EVAL+22, EVAL+23, EVAL+27, EVAL+29, EVAL+30, EVAL+36, PRT~, PRT+3, PRT+5 , PRT+6
SCABRT	CALC+2~, CRTX+7, CRTX+8, NEXT1+2, NEXT1+10, NEXT1+11, PRT+2, NEWPAGE+4*, NEWPAGE+5
SCBDT	CQ+19~, CQ+20, CQ+21, CQ1+2, CQAPI+8, CALC+7, CALC+22*, EXIT+1!, HDR+3
SCBG	CQAPI~, CQAPI+8
SCCT	CALC+2~, CALC+24, CRTX+6, CRTX+12, NEXT1+9, NEXT1+14, PRT+3
SCDT	CALC+2~, CALC+7, CALC+8, CALC+9, CALC+14, CALC+15, CRTX+6, CRTX+7, CRTX+8, CRTX+9 , NEXT1+9, NEXT1+10, NEXT1+11, NEXT1+12
SCE0	CALC+2~, CALC+10, CALC+13, CALC+15, CRTX+9, NEXT1+12*
SCED	CQAPI~, CQAPI+9
SCEDT	CQ+19~, CQ1, CQ1+1, CQ1+2, CQAPI+9, CALC+8, CALC+23*, EXIT+1!, HDR+3
SCHD	CRTX+1, NEXT1+1, EXIT+1!, HDR+2
SCLINE	CALC+2~, CALC+20*, HDR+2, HDR+6
SCOK	NEWPAGE+1~, NEWPAGE+5*, NEWPAGE+6
SCPFLG	CQ+19~, CQ1+5*, CQAPI~, CALC+17
SCPNOW	CALC+2~, CALC+21*, HDR+4
SCPT0	EXIT+1!, PRT+3*, PRT+4
SCTOE	EVAL+21~, EVAL+26, EVAL+27, EVAL+33, EVAL+34, EVAL+35*, EVAL+36
SDT	EVAL~, EVAL+27, EVAL+36
TXT	ASKDT~, ASKDT+1
U	CALC+15, EVAL+22, EVAL+23, EVAL+29, EVAL+30, PRT+3, PRT+4, PRT+5, PRT+6
>> X	NEXT1+2*
>> Y	ASKDT+5*, ASKDT+7, NEWPAGE+4
ZTSAVE	CQ1+6~, CQ1+8
ZTSAVE("SCBDT"	CQ1+7*
ZTSAVE("SCEDT"	CQ1+7*
ZTSAVE("SCPFLG"	CQ1+7*

Customize PDF page

Package: Scheduling

Routine: SCDXSUP

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: