Routine: SROPCE0

Information

SROPCE0 ;BIR/ADM - PCE FILING STATUS REPORT ;03/17/05

Source Information

Source file <SROPCE0.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Surgery	4	^SROPCE0A ^SROPCE0B ($$CLINIC,DATE)^SROUTL ^SRSKILL
VA Fileman	4	NOW^%DTC ^DIC EN^DIQ1 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Surgery	3	SRO PCE STATUS SROPCE0A SROPCE0B

Entry Points

Name	Comments	DBIA/ICR reference
PJBA	;;.021^ASSOCIATED CLINIC
AAI	;;119^NON-OR LOCATION
MSP
PJAEE	;;.0155^CLASSIFICATION INFORMATION
ABC	;;123^PROVIDER
DATE
ABD	;;124^ATTEND PROVIDER
TR
ASK
PAFD	;;.164^ATTEND SURG
ABA	;;121^TIME PROCEDURE BEGAN
ABB	;;122^TIME PROCEDURE ENDED
EN
END
ABE	;;125^MEDICAL SPECIALTY
FORM
PJAA	;;.011^IN/OUT-PATIENT STATUS
CHK	; set up array of fields missing data
CLINIC
PBJE	;;.205^TIME PAT IN OR
OTH
PJD	;;.04^SURGERY SPECIALTY
PBCB	;;.232^TIME PAT OUT OR
SPEC

External References

Name	Field # of Occurrence
NOW^%DTC	EN+2
^%ZIS	FORM+2
^%ZISC	END+2
^%ZTLOAD	FORM+3
^DIC	SPEC+2, MSP+2
EN^DIQ1	CHK+1
^DIR	ASK+2, FORM, SPEC+1, MSP+1
^SROPCE0A	EN+3
^SROPCE0B	EN+4
$$CLINIC^SROUTL	CLINIC+3
DATE^SROUTL	DATE
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?26,"Report of PCE Filing Status",!!,"This report displays the filing status of completed cases performed during the",!,"selected date range.",! Line Location: SROPCE0+2
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: FORM+0
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format." Line Location: FORM+1
Function Call: WRITE	Prompt: ! Line Location: FORM+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: @IOF,! Line Location: SPEC+0
Function Call: WRITE	Prompt: ! Line Location: SPEC+2
Function Call: WRITE	Prompt: @IOF,! Line Location: MSP+0
Function Call: WRITE	Prompt: ! Line Location: MSP+2
Routine Call	DIC Line Location: SPEC+2 MSP+2
Routine Call	DIR Line Location: ASK+2 FORM SPEC+1 MSP+1
Routine Call	%ZIS Line Location: FORM+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN, EN+2
^SRF - [#130]	CLINIC, CLINIC+1, CLINIC+2
^SRO(133 - [#133]	CHK+4
^SRO(136 - [#136]	CHK+8, CHK+9, OTH, OTH+1, OTH+2, OTH+3
^SRO(137.45 - [#137.45]	CLINIC+2
^SRS - [#131.7]	CLINIC+2

Label References

Name	Line Occurrences
CLINIC	CHK+6
END	ASK+2, ASK+3, ASK+4, DATE, FORM, FORM+2, FORM+3, EN+3
MSP	ASK+4
SPEC	ASK+3
TR	CHK+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+2
%ZIS	FORM+2!*
%ZIS("A"	FORM+2*
>> CNT(	EN*
DA	CHK+1!*
DIC	SPEC+2!, MSP+2!, CHK+1!*
DIC("A"	SPEC+2, MSP+2
DIC("S"	SPEC+2*
DIC(0	SPEC+2, MSP+2
DIQ	CHK+1!*
DIQ(0	CHK+1*
DIR	ASK!, ASK+2!, FORM!, SPEC+1!, MSP+1!
DIR("?"	SPEC, MSP
DIR("A"	ASK, ASK+1, FORM, SPEC+1, MSP+1*
DIR("B"	ASK+1, FORM, SPEC+1, MSP+1
DIR(0	ASK+2, FORM, SPEC+1, MSP+1
DR	CHK+1!, CHK+2, CHK+3, CHK+4, CHK+5
DTIME	END+1
>> DTOUT	ASK+2, FORM, SPEC+1, MSP+1
>> DUOUT	ASK+2, FORM, SPEC+1, MSP+1
>> EDATE	DATE, EN
>> ENDATE	EN*, EN+1
>> I	EN*
IO	EN
IO("Q"	FORM+2!, FORM+3!
IOF	SROPCE0+2, END, END+2, SPEC, MSP
IOP	FORM+2!
IOST	END, END+1
POP	FORM+2!
>> SDATE	DATE, EN
SRCLINIC	CLINIC~, CLINIC+1, CLINIC+2, CLINIC+3, CLINIC+4
SRDIV	END+2!
SRDX	END+2!
SRFCPT	END+2!
SRFICD	END+2!
>> SRFLD	CHK+7*
>> SRFLG	SROPCE0+3, ASK+3, ASK+4, EN+1
>> SRFORM	FORM+1*, EN+3
SRFRTO	EN+1*, END+2!
>> SRHDR	EN*
SRINOUT	END+2!
>> SRINST	EN+2*
>> SRNON	CHK+2, CHK+3, CLINIC+1
>> SROTH	OTH, OTH+1, OTH+2, OTH+3
>> SRP	TR*
>> SRPAGE	EN*
SRPARAM	END+2!
SRPODX	END+2!
>> SRPRINT	EN+2*
SRQCPT	END+2!
SRQICD	END+2!
SRRPT	EN+1*, END+2!
SRSCHED	END+2!
>> SRSDT	EN*
>> SRSEDT	EN*
>> SRSITE	CHK+4
>> SRSITE("SITE"	EN+2
>> SRSOUT	SROPCE0+3, ASK+2, ASK+3, ASK+4, DATE, FORM, FORM+2, FORM+3, EN, END+1 , SPEC+1, SPEC+2, MSP+1, MSP+2
>> SRSPEC	SROPCE0+3, SPEC+2, MSP+2*
>> SRSPECN	SPEC+2, MSP+2
SRSPS	END+2!
SRSR	END+2!, CHK+2, CHK+3
>> SRSTATUS	CHK+5
>> SRTITLE	EN+1*
SRTN	END+2!, CHK+1, CHK+7, CHK+8, CHK+9, OTH, OTH+1, OTH+2, OTH+3, CLINIC , CLINIC+1, CLINIC+2, CLINIC+3, CLINIC+4
SRUCPT	END+2!
SRUICD	END+2!
SRX	CHK+1!
SRX(	CHK+7, CHK+8, CHK+9*
SRX(99998	OTH*
SRX(99999	OTH+2, OTH+3
SRY	CHK+1!
SRY(130	CHK+7, CLINIC+4*
>> SRZ	CHK+7, OTH+3, TR
>> STARTDT	EN*, EN+1
>> X	END+1, CHK+7
>> Y	ASK+3, FORM+1, EN, EN+2, SPEC+2, MSP+2
>> Y(0	SPEC+2, MSP+2
>> ZTDESC	FORM+3*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	FORM+3*
>> ZTSAVE("EDATE"	FORM+3*
>> ZTSAVE("SDATE"	FORM+3*
>> ZTSAVE("SRFLG"	FORM+3*
>> ZTSAVE("SRFORM"	FORM+3*
>> ZTSAVE("SRSITE*"	FORM+3*
>> ZTSAVE("SRSPEC*"	FORM+3*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROPCE0

Call Graph Total: 11

Caller Graph Total: 3