Routine: SCRPO1

Information

SCRPO1 ;BP-CIOFO/KEITH - Historical Patient Position Assignment Listing ; 20 Aug 99 7:49 AM

Source Information

Source file <SCRPO1.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Scheduling	5	$$PTTP^SCAPMC ($$ATYPE,$$DSUM,$$DTR,$$LIST,$$PPAR,$$SORT,HDR)^SCRPO BPTPA^SCRPO2 DISP0^SCRPW23 (END,SUBT,TITL)^SCRPW50
Kernel	3	$$S^%ZTLOAD $$NOW^XLFDT EN^XUTMDEVQ
IHS Changes To Scheduling	1	(,SHDR)^BSDSCO1
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SCRPO3

Entry Points

Name	Comments	DBIA/ICR reference
FOOT1	;Detail report footer
TPCL(SCLINIC)	;Get team position associated clinic
EN	;Queue report
RUN	;Print report
TMDV(SCTEAM,SCDIV)	;Get team and division
CKPOS(SCTP,SCFMT)	;Check team position
IHS	;EP; entry point for list template ;IHS/ANMC/LJF 11/2/2000
BUILD(SCFMT)	;Build report data
STOP	;Check for stop task request
FOOT2	;Summary report footer
PROMPT(LIST,SORT,SCSP,SCRTN,SCDESC)	;Prompt for report parameters, queue report
SHDR(SCX)	;Print report subheader
BTPOS(SCTP,SCDIV,SCTEAM,SCPOS,SCLINIC,SCFMT)	;Build list of patients for a position
EXIT
HDRX(SCX)	;extra header line
END
HINI	;Initialize header variables
SLINE(SCX,SCY,SCZ)	;Print summary line

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	STOP+1
^BSDSCO1	RUN+1
SHDR^BSDSCO1	SHDR+1
^DIR	EXIT
$$PTTP^SCAPMC	BTPOS+11
$$ATYPE^SCRPO	PROMPT+14
$$DSUM^SCRPO	PROMPT+15
$$DTR^SCRPO	PROMPT+12
$$LIST^SCRPO	PROMPT+17
$$PPAR^SCRPO	PROMPT+23, IHS+7
$$SORT^SCRPO	PROMPT+21
HDR^SCRPO	IHS+7, IHS+10, IHS+15, IHS+32, IHS+45, IHS+51, IHS+56
BPTPA^SCRPO2	BTPOS+14
DISP0^SCRPW23	END, IHS+6
END^SCRPW50	END
SUBT^SCRPW50	PROMPT+10, PROMPT+13, PROMPT+20, PROMPT+22
TITL^SCRPW50	PROMPT+9
$$NOW^XLFDT	HINI+4
EN^XUTMDEVQ	PROMPT+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report, when printed on paper, requires wide paper or condensed print!" Line Location: PROMPT+25
Function Call: WRITE	Prompt: ! Line Location: PROMPT+26
Function Call: WRITE	Prompt: ! Line Location: IHS+33
Function Call: WRITE	Prompt: ! Line Location: IHS+34
Function Call: WRITE	Prompt: ?($P(SCY,U,SCI)),$P(SCX,U,SCI) Line Location: IHS+35
Function Call: WRITE	Prompt: ! Line Location: IHS+61
Function Call: WRITE	Prompt: !,$J($P(SCX,U),70) Line Location: SLINE+5
Function Call: WRITE	Prompt: ?71,$J(SCY,10),?81,$J(SCZ,10,2) Line Location: SLINE+5
Function Call: WRITE	Prompt: !?20,"Pat.",?27,"Primary",?38,"MT",?94,"Enrolled",!,"Patient Name" Line Location: SHDR+8
Function Call: WRITE	Prompt: ?20,"Id.",?27,"Elig.",?38,"Cat",?43,"Team",?57,"Provider" Line Location: SHDR+9
Function Call: WRITE	Prompt: ?73,"Team Position",?89,"PC?",?94,"Clinic",?110,"Act. Date" Line Location: SHDR+10
Function Call: WRITE	Prompt: ?122,"Inac. Date",! Line Location: SHDR+11
Function Call: WRITE	Prompt: "------------------ ----- --------- --- ------------ -------------- -------------- --- -------------- ---------- ----------" Line Location: SHDR+12
Function Call: WRITE	Prompt: ! Line Location: FOOT1+2
Function Call: WRITE	Prompt: !,SCLINE Line Location: FOOT1+3
Function Call: WRITE	Prompt: !,"NOTE: More than one provider may be associated with a single patient position assignment. This output returns a separate output" Line Location: FOOT1+4
Function Call: WRITE	Prompt: !?6,"line for each related provider during the date range selected." Line Location: FOOT1+5
Function Call: WRITE	Prompt: !!?6,"'PC?' represents provider type: AP = Associate provider, PCP = Primary Care Provider, NPC = Non-Primary Care Provider." Line Location: FOOT1+6
Function Call: WRITE	Prompt: !,SCLINE Line Location: FOOT1+7
Function Call: WRITE	Prompt: ! Line Location: FOOT2+2
Function Call: WRITE	Prompt: !,SCLINE Line Location: FOOT2+3
Function Call: WRITE	Prompt: !,"NOTE: More than one provider may be associated with a single patient position assignment. The sum of assignments related to" Line Location: FOOT2+4
Function Call: WRITE	Prompt: !?6,"providers detailed in this summary is likely to be greater than the actual number of patient position assignments" Line Location: FOOT2+5
Function Call: WRITE	Prompt: !?6,"returned by this report." Line Location: FOOT2+6
Function Call: WRITE	Prompt: !,SCLINE Line Location: FOOT2+7
Routine Call	DIR Line Location: EXIT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HINI+4
^DIC(4 - [#4]	TMDV+12
^SC - [#44]	TPCL+7
^SCTM(404.51 - [#404.51]	TMDV+7
^SCTM(404.57 - [#404.57]	BUILD+10, CKPOS+5
^TMP(	EXIT+1!
^TMP("SC"	END!, IHS+3, HDRX+3, BUILD+4, BUILD+5, TPCL+5, TMDV+6, TMDV+11, BTPOS+10
^TMP("SCARR"	BTPOS+12, BTPOS+13
^TMP("SCRPT"	IHS+5, IHS+9, IHS+17, IHS+19, IHS+21, IHS+22, IHS+23, IHS+25, IHS+27, IHS+29 , IHS+30, IHS+46, IHS+49, IHS+53, IHS+54

Label References

Name	Line Occurrences
$$HDRX	IHS+7, IHS+15, IHS+45
$$TMDV	CKPOS+8
$$TPCL	CKPOS+9
BTPOS	CKPOS+10
BUILD	IHS+4
CKPOS	BUILD+6, BUILD+11
END	PROMPT+12, PROMPT+14, PROMPT+15, PROMPT+19, PROMPT+21, PROMPT+23
EXIT	IHS+9, IHS+44, IHS+45, IHS+60
FOOT1	IHS+32, IHS+42
FOOT2	IHS+51, IHS+63
HINI	IHS+6
PROMPT	EN+5
SHDR	IHS+15, IHS+32, IHS+45, IHS+51, IHS+56
SLINE	IHS+52, IHS+57, IHS+61, IHS+62
STOP	BUILD+6, BUILD+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DESC	EN+1~, EN+4*, EN+5
DIR	EXIT~
DIR(0	EXIT*
IOSL	IHS+32, IHS+51, IHS+56, FOOT1+2, FOOT2+2
IOST	RUN+1, IHS+6, EXIT
LIST	EN+1~, EN+2*, EN+5, PROMPT~, PROMPT+16
RTN	EN+1~, EN+3*, EN+5
SC	PROMPT+7~, PROMPT+8*, PROMPT+12, PROMPT+14, PROMPT+15, PROMPT+17, PROMPT+21, PROMPT+23, IHS+7, EXIT+3!
SC1	IHS+2~, IHS+16, IHS+17, IHS+19, IHS+21, IHS+22
SC2	IHS+2~, IHS+18, IHS+19, IHS+21, IHS+22
SC3	IHS+2~, IHS+20, IHS+21, IHS+22
SC4	IHS+2~, IHS+22, IHS+23, IHS+25, IHS+27, IHS+29, IHS+30
SC5	IHS+2~, IHS+24, IHS+25, IHS+27, IHS+29, IHS+30
SC6	IHS+2~, IHS+26, IHS+27, IHS+29, IHS+30
SC7	IHS+2~, IHS+28, IHS+29, IHS+30
SCARR	BTPOS+8~, BTPOS+9*, BTPOS+11
SCASP	IHS+2~, IHS+46*, IHS+55, IHS+61
SCBDT	PROMPT+7~, PROMPT+12
SCBDT("B"	PROMPT+11*
SCDESC	PROMPT~, PROMPT+9, PROMPT+27
SCDIV	PROMPT+7~, CKPOS+4~, CKPOS+8, CKPOS+10, TMDV~, TMDV+10, TMDV+11, TMDV+12, TMDV+13, BTPOS~ , BTPOS+14
SCDT	BTPOS+8~, BTPOS+10*, BTPOS+11
SCEDT	PROMPT+7~, PROMPT+12
SCEDT("B"	PROMPT+11*
SCFF	IHS+1~, IHS+3*
SCFMT	IHS+1~, IHS+3*, IHS+4, IHS+15, BUILD~, BUILD+6, BUILD+11, CKPOS~, CKPOS+10, BTPOS~ , BTPOS+14
SCI	PROMPT+7~, PROMPT+16, IHS+2~, IHS+4, IHS+5, IHS+35, IHS+48, IHS+49, IHS+52, IHS+53 , IHS+54, EXIT+1, BTPOS+8~, BTPOS+11, BTPOS+12, BTPOS+13, FOOT1+1~, FOOT1+2, FOOT2+1~, FOOT2+2
SCLINE	IHS+1~, SHDR+6, HINI+3*, FOOT1+3, FOOT1+7, FOOT2+3, FOOT2+7
SCLINIC	CKPOS+4~, CKPOS+9, CKPOS+10, TPCL~, TPCL+5, TPCL+6, TPCL+7, BTPOS~, BTPOS+14
SCN	IHS+2~, IHS+22*, IHS+23, IHS+25, IHS+27, IHS+29, IHS+30
SCOUT	PROMPT+7~, PROMPT+8, PROMPT+16, PROMPT+17, PROMPT+19, IHS+1~, IHS+3, IHS+4, IHS+7, IHS+8 , IHS+10, IHS+15, IHS+17, IHS+19, IHS+21, IHS+23, IHS+25, IHS+27, IHS+29, IHS+32 , IHS+42, IHS+44, IHS+45, IHS+48, IHS+51, IHS+53, IHS+56, IHS+60, EXIT, SHDR+3 , STOP+1*, BUILD+5, BUILD+10
SCPAGE	IHS+1~, IHS+14, HINI+3
SCPASS	BTPOS+8~, BTPOS+13*, BTPOS+14
SCPNOW	IHS+2~, HINI+4*
SCPOS	CKPOS+4~, CKPOS+7*, CKPOS+10, BTPOS~, BTPOS+14
SCRTN	PROMPT~, PROMPT+27
SCSP	EN+1~, EN+3*, EN+5, PROMPT~, PROMPT+21
SCT	PROMPT+7~, PROMPT+23
SCT(1	PROMPT+22*
SCTEAM	CKPOS+4~, CKPOS+8, CKPOS+10, TMDV~, TMDV+5, TMDV+6, TMDV+7, TMDV+9, BTPOS~, BTPOS+14
SCTITL	IHS+1~, IHS+7, IHS+10, IHS+15, IHS+32, IHS+45, IHS+51, IHS+56
SCTITL(1	HINI+2*
SCTITL(2	IHS+7, IHS+10!, IHS+15, IHS+45*
SCTITL2	IHS+1~
SCTM	BUILD+2~
SCTM0	TMDV+4~, TMDV+7*, TMDV+8, TMDV+10
SCTP	BUILD+2~, BUILD+4, BUILD+5, BUILD+6, BUILD+10*, BUILD+11, CKPOS~, CKPOS+5, CKPOS+7, CKPOS+10 , BTPOS~, BTPOS+11
SCTP0	CKPOS+4~, CKPOS+5*, CKPOS+6, CKPOS+8, CKPOS+9
SCUNP	IHS+2~, IHS+3, IHS+5, IHS+62
SCX	PROMPT+7~, PROMPT+16, PROMPT+17, IHS+1~, IHS+11, IHS+12, IHS+30, IHS+35, IHS+52, IHS+53* , IHS+54, IHS+57, SLINE~, SLINE+5, SHDR~, SHDR+1, SHDR+4, HDRX~, HDRX+2, HDRX+3 , CKPOS+4~, CKPOS+6, CKPOS+7, TMDV+4~, TMDV+8, TMDV+9, TMDV+12*, TMDV+13
SCY	IHS+34, IHS+35, IHS+54, IHS+55, IHS+57, SLINE~, SLINE+5
SCZ	IHS+55*, IHS+57, SLINE~, SLINE+5
SORT	EN+1~, EN+2*, EN+5, PROMPT~, PROMPT+21
U	IHS+35, SLINE+5, CKPOS+6, CKPOS+7, CKPOS+8, CKPOS+9, TPCL+7, TMDV+8, TMDV+9, TMDV+10 , TMDV+12, TMDV+13
>> VALM	IHS+32, IHS+51
Y	HINI+1~, HINI+4*
>> ZTQUEUED	STOP+1
ZTSAVE	PROMPT+26~, PROMPT+27
ZTSAVE("SC"	PROMPT+26*
ZTSAVE("^TMP(""SC"",$J,"	PROMPT+26*
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPO1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: