Routine: SCRPO5

Information

SCRPO5 ;BP-CIOFO/KEITH - Historical Patient Assignment Detail ; 01 Jul 99 9:30 PM

Source Information

Source file <SCRPO5.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Scheduling	4	$$GETALL^SCAPMCA ($$DTR,HDR)^SCRPO DISP0^SCRPW23 (END,TITL)^SCRPW50
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
Kernel	2	$$NOW^XLFDT EN^XUTMDEVQ
IHS Changes To ADT	1	$$HRCN^BDGF2
IHS Changes To Scheduling	1	^BSDSCO5

Entry Points

Name	Comments	DBIA/ICR reference
CODE	;Data handling instructions ; The following $TEXT lines contain data handling instructions ; in the format: $PIECE 1 = output order ; 2 = subtitle ; 3 = global reference of history record ; 4 = $piece of history record ifn ; 5 = $piece of active date ; 6 = $piece of inactive date ; 7 = $piece of user (in history record) ; 8 = $piece of provider/position/team name ; 9 = $piece of date entered
RUN	;Print report
PTDET
IHS	;EP; entry point for list template ;IHS/ANMC/LJF 11/1/2000
PCPOS	;;3^PC Position^SCPT(404.43)^4^5^6^6^2^7
NPCPOS	;;7^Non-PC Position^SCPT(404.43)^4^5^6^6^2^7
PCPR	;;1^PC Provider^SCTM(404.52)^11^9^10^7^2^8
PCTM	;;5^PC Team^SCPT(404.42)^3^4^5^11^2^12
NPCTM	;;10^Non-PC Team^SCPT(404.42)^3^4^5^11^2^12
NPCPR	;;6^Non-PC Provider^SCTM(404.52)^11^9^10^7^2^8
SHDR	;Subheader
EXIT
SDT(X)	;Slashed date
SLINE(SCORD,SCNAME,SCACT,SCINAC,SCUSER,SCDENT,SUNM,SCTNM,SCBNM,SCLN)	;Set report global
SSHDR(X,CONT)	;Subheader
NPCPPOS	;;9^Non-PC Preceptor Position^SCTM(404.53)^16^14^15^7^2^8
PCAP	;;2^PC Associate Provider^SCTM(404.52)^11^9^10^7^2^8
NPCPPR	;;8^Non-PC Preceptor Provider^SCTM(404.52)^11^9^10^7^2^8
PCPPOS	;;4^PC Preceptor Position^SCTM(404.53)^16^14^15^7^2^8

External References

Name	Field # of Occurrence
$$HRCN^BDGF2	IHS+31
^BSDSCO5	RUN+1
^DIC	PTDET+2
$$GET1^DIQ	IHS+20, IHS+21, IHS+22
^DIR	IHS+54
$$GETALL^SCAPMCA	IHS+5
$$DTR^SCRPO	PTDET+4
HDR^SCRPO	IHS+35, IHS+38, IHS+44
DISP0^SCRPW23	EXIT, IHS+35
END^SCRPW50	EXIT
TITL^SCRPW50	PTDET+1
$$NOW^XLFDT	IHS+29
EN^XUTMDEVQ	PTDET+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PTDET+6
Function Call: WRITE	Prompt: " (none found)" Line Location: IHS+41
Function Call: WRITE	Prompt: ! Line Location: IHS+54
Function Call: WRITE	Prompt: !,"Patient: ",$E(SCPNAME,1,18),?29,"ID: ",SCSSN,?46,"DOB: ",SCDOB Line Location: SHDR+3
Function Call: WRITE	Prompt: ?64,"AGE: ",SCAGE,?74,$J(SCGEND,6),!,SCLINE Line Location: SHDR+4
Function Call: WRITE	Prompt: !,"Assignment",?28,"Active",?40,"Inactive",?52,"Assigned by/date" Line Location: SHDR+6
Function Call: WRITE	Prompt: !,"-------------------------- ---------- ---------- ----------------------------" Line Location: SHDR+7
Function Call: WRITE	Prompt: !,X,$S($G(CONT):" (cont.)",1:""),":" Line Location: SSHDR+3
Routine Call	DIC Line Location: PTDET+2
Routine Call	DIR Line Location: IHS+54

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^VA(200 - [#200]	GET1^DIQ
^SCPT(404.43 - [#404.43]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	IHS+29, IHS+33
^TMP("SC"	IHS+6, IHS+9, IHS+10
^TMP("SCRPT"	IHS+4!, IHS+8, IHS+37, IHS+39, IHS+41, IHS+42, IHS+43, IHS+45, IHS+55!, SLINE+16
^VA(200 - [#200]	SLINE+15

Label References

Name	Line Occurrences
$$SDT	SLINE+13
EXIT	PTDET+2, PTDET+3, PTDET+4
SHDR	IHS+35, IHS+38, IHS+44
SLINE	IHS+23
SSHDR	IHS+40, IHS+44

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CONT	SSHDR~, SSHDR+3
DFN	PTDET~, PTDET+3*, IHS+5, IHS+6, IHS+9, IHS+10, IHS+31
DIC	PTDET~, PTDET+2*
DIC(0	PTDET+2*
DIR	IHS+54~
DIR(0	IHS+54*
DT	IHS+34
DTOUT	PTDET~, PTDET+2
DUOUT	PTDET~, PTDET+2
DUZ(2	IHS+31
IOSL	IHS+38, IHS+44
IOST	RUN+1, IHS+35, IHS+54
SC	PTDET~, PTDET+3*, PTDET+4
SC("DTR"	IHS+4, IHS+27
SCACT	IHS+13, IHS+14, IHS+23, IHS+40, IHS+42*, IHS+43, IHS+45, SLINE~, SLINE+13, SLINE+16
SCAGE	IHS+1~, IHS+33, IHS+34, SHDR+4
SCBNM	SLINE~, SLINE+15
SCDATA	IHS+1~, IHS+10*, IHS+11, IHS+12, IHS+13, IHS+15
SCDENT	IHS+19*, IHS+23, SLINE~, SLINE+13
SCDOB	IHS+2~, IHS+33*, SHDR+3
SCDT	PTDET~, PTDET+4, IHS+2~, IHS+4*, IHS+5
SCDT("B"	PTDET+3*
SCEU	IHS+3~, IHS+20*
SCEUNM	IHS+3~, IHS+20*, IHS+23
SCFF	IHS+1~, IHS+5*
SCFOUND	IHS+1~, IHS+5, IHS+36, IHS+37, SHDR+5, SLINE+12
SCGEND	IHS+2~, IHS+32*, SHDR+4
SCI	IHS+1~, IHS+5, IHS+7, IHS+9, IHS+10, IHS+43, IHS+45
SCIFN	IHS+2~, IHS+12*, IHS+16, IHS+21
SCINAC	IHS+15*, IHS+23, SLINE~, SLINE+13
SCLEBNM	IHS+3~, IHS+22*, IHS+23
SCLEDT	IHS+3~, IHS+22*
SCLINE	IHS+1~, IHS+28*, SHDR+4
SCLN	IHS+1~, IHS+5, IHS+23, SLINE~, SLINE+12, SLINE+16
SCNAME	IHS+11*, IHS+23, SLINE~, SLINE+13
SCORD	SLINE~, SLINE+16
SCOUT	IHS+2~, IHS+5*, IHS+37, IHS+38, IHS+42, IHS+43, IHS+44, IHS+54, SHDR+1
SCPAGE	IHS+1~, IHS+28*
SCPNAME	IHS+2~, IHS+30*, SHDR+3
SCPNOW	IHS+1~, IHS+29*
SCPT0	PTDET~, PTDET+3*, IHS+30, IHS+32, IHS+33
SCREC	IHS+2~, IHS+16*, IHS+17, IHS+18, IHS+19, IHS+20, IHS+21, IHS+22
SCSH	IHS+2~, IHS+39*, IHS+40, IHS+44
SCSSN	IHS+2~, IHS+30, IHS+31, SHDR+3
SCSTAT	IHS+3~, IHS+21*
SCSTNM	IHS+3~, IHS+21*, IHS+23
SCSUB	IHS+1~, IHS+5, IHS+6, IHS+9, IHS+10, IHS+37*, IHS+39, IHS+40, IHS+41, IHS+42 , IHS+43, IHS+45, IHS+47
SCTITL	IHS+2~, IHS+35, IHS+38, IHS+44
SCTITL(1	IHS+26*
SCTITL(2	IHS+27*
SCTNM	SLINE~, SLINE+15
SCUSER	IHS+18*, IHS+23, SLINE~, SLINE+15
SCX	IHS+3~, IHS+7, IHS+45, IHS+46, IHS+48, IHS+49, IHS+50, SLINE+13, SLINE+15, SLINE+16
SCX(	IHS+7*
SCX(1	IHS+8, IHS+23
SCX(2	IHS+8
SCX(3	IHS+8*, IHS+16
SCX(4	IHS+12
SCX(5	IHS+13
SCX(6	IHS+15
SCX(7	IHS+18
SCX(8	IHS+11
SCX(9	IHS+19
SCY	IHS+3~, SLINE+13, SLINE+14, SLINE+15
SUNM	SLINE~, SLINE+15
U	IHS+7, IHS+8, IHS+11, IHS+12, IHS+13, IHS+15, IHS+18, IHS+19, IHS+20, IHS+21 , IHS+22, IHS+30, IHS+32, IHS+33, IHS+46, IHS+48, IHS+49, IHS+50, SLINE+13, SLINE+15
X	PTDET~, PTDET+5, SSHDR~, SSHDR+3, SDT~, SDT+1, SDT+2
Y	PTDET~, PTDET+3, IHS+29, IHS+33
Y(0	PTDET+3
ZTSAVE	PTDET+5~, PTDET+6
ZTSAVE(	PTDET+5*

Customize PDF page

Package: Scheduling

Routine: SCRPO5

Call Graph Total: 11