Routine: SCMCMHHP

Information

SCMCMHHP ;BP-CIOFO/KEITH - Historical Patient Assignment Detail ; 23 Feb 12 3:30 PM

Name	Comments	DBIA/ICR reference
PTDET
EXIT
RUN	;Print report
SHDR	;Subheader
SSHDR(X,CONT)	;Subheader
SLINE(SCORD,SCNAME,SCACT,SCINAC,SCUSER,SCDENT,SUNM,SCTNM,SCBNM,SCLN)	;Set report global
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
NPCPOS	;;7^Non-PC Position^SCPT(404.43)^4^5^6^6^2^7
NPCPPOS	;;9^Non-PC Preceptor Position^SCTM(404.53)^16^14^15^7^2^8
NPCPPR	;;8^Non-PC Preceptor Provider^SCTM(404.52)^11^9^10^7^2^8
NPCPR	;;6^Non-PC Provider^SCTM(404.52)^11^9^10^7^2^8
NPCTM	;;10^Non-PC Team^SCPT(404.42)^3^4^5^11^2^12
PCAP	;;2^PC Associate Provider^SCTM(404.52)^11^9^10^7^2^8
PCPOS	;;3^PC Position^SCPT(404.43)^4^5^6^6^2^7
PCPPOS	;;4^PC Preceptor Position^SCTM(404.53)^16^14^15^7^2^8
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
SDT(X)	;Slashed date
MHTEAM(DFN)	;Patch 589 used to exclude all teams that are not Mental Health ; Input ; DFN = Patient DFN

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