Routine: SCRPO1

Information

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

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
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Scheduling	2	SC PCMM HIST PAT ASSIGN LIST SCRPO3

Entry Points

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

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	STOP+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, RUN+7
$$SORT^SCRPO	PROMPT+21
HDR^SCRPO	RUN+7, RUN+10, RUN+15, RUN+31, RUN+43, RUN+47, RUN+52
BPTPA^SCRPO2	BTPOS+14
DISP0^SCRPW23	END, RUN+6
END^SCRPW50	END, EXIT+2
SUBT^SCRPW50	PROMPT+10, PROMPT+13, PROMPT+20, PROMPT+22
TITL^SCRPW50	PROMPT+9
$$NOW^XLFDT	HINI+4
EN^XUTMDEVQ	PROMPT+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report requires 132 column output!" Line Location: PROMPT+24
Function Call: WRITE	Prompt: ! Line Location: PROMPT+25
Function Call: WRITE	Prompt: ! Line Location: RUN+32
Function Call: WRITE	Prompt: ?($P(SCY,U,SCI)),$P(SCX,U,SCI) Line Location: RUN+33
Function Call: WRITE	Prompt: ! Line Location: RUN+57
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+7
Function Call: WRITE	Prompt: ?20,"Id.",?27,"Elig.",?38,"Cat",?43,"Team",?57,"Provider" Line Location: SHDR+8
Function Call: WRITE	Prompt: ?73,"Team Position",?89,"PC?",?94,"Clinic",?110,"Act. Date" Line Location: SHDR+9
Function Call: WRITE	Prompt: ?122,"Inac. Date",! Line Location: SHDR+10
Function Call: WRITE	Prompt: "------------------ ----- --------- --- ------------ -------------- -------------- --- -------------- ---------- ----------" Line Location: SHDR+11
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!, RUN+3, HDRX+3, BUILD+4, BUILD+5, TPCL+5, TMDV+6, TMDV+11, BTPOS+10
^TMP("SCARR"	BTPOS+12, BTPOS+13
^TMP("SCRPT"	RUN+5, RUN+9, RUN+17, RUN+19, RUN+21, RUN+22, RUN+23, RUN+25, RUN+27, RUN+29 , RUN+30, RUN+44, RUN+46, RUN+49, RUN+50

Label References

Name	Line Occurrences
$$HDRX	RUN+7, RUN+15, RUN+43
$$TMDV	CKPOS+8
$$TPCL	CKPOS+9
BTPOS	CKPOS+10
BUILD	RUN+4
CKPOS	BUILD+6, BUILD+11
END	PROMPT+12, PROMPT+14, PROMPT+15, PROMPT+19, PROMPT+21, PROMPT+23
EXIT	RUN+9, RUN+42, RUN+43, RUN+56
FOOT1	RUN+31, RUN+40
FOOT2	RUN+47, RUN+59
HINI	RUN+6
PROMPT	EN+5
SHDR	RUN+15, RUN+31, RUN+43, RUN+47, RUN+52
SLINE	RUN+48, RUN+53, RUN+57, RUN+58
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	RUN+31, RUN+47, RUN+52, FOOT1+2, FOOT2+2
IOST	RUN+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, RUN+7, EXIT+2!
SC1	RUN+2~, RUN+16, RUN+17, RUN+19, RUN+21, RUN+22
SC2	RUN+2~, RUN+18, RUN+19, RUN+21, RUN+22
SC3	RUN+2~, RUN+20, RUN+21, RUN+22
SC4	RUN+2~, RUN+22, RUN+23, RUN+25, RUN+27, RUN+29, RUN+30
SC5	RUN+2~, RUN+24, RUN+25, RUN+27, RUN+29, RUN+30
SC6	RUN+2~, RUN+26, RUN+27, RUN+29, RUN+30
SC7	RUN+2~, RUN+28, RUN+29, RUN+30
SCARR	BTPOS+8~, BTPOS+9*, BTPOS+11
SCASP	RUN+2~, RUN+44*, RUN+51, RUN+57
SCBDT	PROMPT+7~, PROMPT+12
SCBDT("B"	PROMPT+11*
SCDESC	PROMPT~, PROMPT+9, PROMPT+26
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	RUN+1~, RUN+3*
SCFMT	RUN+1~, RUN+3*, RUN+4, RUN+15, BUILD~, BUILD+6, BUILD+11, CKPOS~, CKPOS+10, BTPOS~ , BTPOS+14
SCI	PROMPT+7~, PROMPT+16, RUN+2~, RUN+4, RUN+5, RUN+33, RUN+45, RUN+46, RUN+48, RUN+49 , RUN+50, EXIT+1, BTPOS+8~, BTPOS+11, BTPOS+12, BTPOS+13, FOOT1+1~, FOOT1+2, FOOT2+1~, FOOT2+2
SCLINE	RUN+1~, SHDR+5, 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	RUN+2~, RUN+22*, RUN+23, RUN+25, RUN+27, RUN+29, RUN+30
SCOUT	PROMPT+7~, PROMPT+8, PROMPT+16, PROMPT+17, PROMPT+19, RUN+1~, RUN+3, RUN+4, RUN+7, RUN+8 , RUN+10, RUN+15, RUN+17, RUN+19, RUN+21, RUN+23, RUN+25, RUN+27, RUN+29, RUN+31 , RUN+40, RUN+42, RUN+43, RUN+45, RUN+47, RUN+49, RUN+52, RUN+56, EXIT, SHDR+2 , STOP+1*, BUILD+5, BUILD+10
SCPAGE	RUN+1~, RUN+14, HINI+3
SCPASS	BTPOS+8~, BTPOS+13*, BTPOS+14
SCPNOW	RUN+2~, HINI+4*
SCPOS	CKPOS+4~, CKPOS+7*, CKPOS+10, BTPOS~, BTPOS+14
SCRTN	PROMPT~, PROMPT+26
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	RUN+1~, RUN+7, RUN+10, RUN+15, RUN+31, RUN+43, RUN+47, RUN+52
SCTITL(1	HINI+2*
SCTITL(2	RUN+7, RUN+10!, RUN+15, RUN+43*
SCTITL2	RUN+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	RUN+2~, RUN+3, RUN+5, RUN+58
SCX	PROMPT+7~, PROMPT+16, PROMPT+17, RUN+1~, RUN+11, RUN+12, RUN+30, RUN+33, RUN+48, RUN+49* , RUN+50, RUN+53, SLINE~, SLINE+5, SHDR~, SHDR+3, HDRX~, HDRX+2, HDRX+3, CKPOS+4~ , CKPOS+6, CKPOS+7, TMDV+4~, TMDV+8, TMDV+9, TMDV+12*, TMDV+13
SCY	RUN+32, RUN+33, RUN+50, RUN+51, RUN+53, SLINE~, SLINE+5
SCZ	RUN+51*, RUN+53, SLINE~, SLINE+5
SORT	EN+1~, EN+2*, EN+5, PROMPT~, PROMPT+21
U	RUN+33, SLINE+5, CKPOS+6, CKPOS+7, CKPOS+8, CKPOS+9, TPCL+7, TMDV+8, TMDV+9, TMDV+10 , TMDV+12, TMDV+13
Y	HINI+1~, HINI+4*
>> ZTQUEUED	STOP+1
ZTSAVE	PROMPT+25~, PROMPT+26
ZTSAVE("SC"	PROMPT+25*
ZTSAVE("^TMP(""SC"",$J,"	PROMPT+25*
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling