BTIUCPL1 ; IHS/MSC/JS - TIU V Care Plan Object cont. ;02-Jan-2014 15:53;DU
;;1.0;TEXT INTEGRATION UTILITIES;**1012,1013**;MAR 20, 2013;Build 33
;5/22/13 - EHR TEST WITH HARDSET 'PARAM' = 265 (PROBLEM IEN)
;
OUT ; set report data @TARGET for object report
N NODE,PROBDX,STRING
I FNUM=9000092 D
.S CNT=CNT+1
.S @TARGET@(CNT,0)="-------------- Care Plan ------------"
.N PRIEN S PRIEN=+$G(CPLARR(FNUM,IEN_",",.01,"E")) D
..I PRIEN N ICD9IEN S ICD9IEN=+$G(^AUPNPROB(PRIEN,0))
..;I ICD9IEN S PROBDX=$P($G(^ICD9(ICD9IEN,0)),U,3)
..I ICD9IEN S PROBDX=$$GET1^DIQ(9000011,PRIEN,.05)
..N PROBSTAT S PROBSTAT=$G(CPLARR(FNUM_".11",IEN_",",1,"E"))
..S CNT=CNT+1
..S @TARGET@(CNT,0)=$G(PROBDX)_STRPAD_$G(PROBSTAT)
.S CNT=CNT+1
.S @TARGET@(CNT,0)=SPACE
.S CNT=CNT+1
.N SIGNBY S SIGNBY=$G(CPLARR(FNUM,IEN_",",.07,"E"))
.N SIGNDT S SIGNDT=$G(CPLARR(FNUM,IEN_",",.08,"E")) S SIGNDT=$P(SIGNDT,"@",1)
.S @TARGET@(CNT,0)="GOALS - "_$G(SIGNDT)_" by "_$G(SIGNBY)
.S CNT=CNT+1
.S @TARGET@(CNT,0)="CARE PLAN INSTRUCTION -"
.S STRING="",NODE=0
.F S NODE=$O(CPLARR(FNUM,IEN_",","1200",NODE)) Q:NODE'?1N D
..S STRING=$G(CPLARR(FNUM,IEN_",","1200",NODE))
..S CNT=CNT+1
..S @TARGET@(CNT,0)=STRPAD_STRING
..Q
.S CNT=CNT+1
.S @TARGET@(CNT,0)=SPACE
I FNUM=9000010.58 D
.S CNT=CNT+1
.S @TARGET@(CNT,0)="-------------- Visit Instructions --------------"
.S CNT=CNT+1
.N INSTDT S INSTDT=$G(CPLARR(FNUM,IEN_",",.05,"E"))
.N INSTBY S INSTBY=$G(CPLARR(FNUM,IEN_",",.04,"E"))
.S @TARGET@(CNT,0)="VISIT INSTRUCTIONS - "_INSTDT_" by "_INSTBY
.S STRING="",NODE=0
.F S NODE=$O(CPLARR(FNUM,IEN_",","1100",NODE)) Q:NODE'?1N D
..S STRING=$G(CPLARR(FNUM,IEN_",","1100",NODE))
..S CNT=CNT+1
..S @TARGET@(CNT,0)=STRPAD_STRING
..Q
.S CNT=CNT+1
.S @TARGET@(CNT,0)=SPACE
I FNUM=9000010.61 D
.S CNT=CNT+1
.S @TARGET@(CNT,0)="--------------------- Treatment/Regimen --------------------"
.S CNT=CNT+1
.S @TARGET@(CNT,0)="TX/REGIMEN/FU"
.S CNT=CNT+1
.S @TARGET@(CNT,0)=STRPAD_$G(CPLARR(FNUM,IEN_",",.01,"E"))
.S CNT=CNT+1
.S @TARGET@(CNT,0)=SPACE
I FNUM=9000010.16 D
.S CNT=CNT+1
.S @TARGET@(CNT,0)="--------------------- Patient Education --------------------"
.S CNT=CNT+1
.S @TARGET@(CNT,0)="EDUCATION"
.S CNT=CNT+1
.S @TARGET@(CNT,0)=STRPAD_$G(CPLARR(FNUM,IEN_",",.01,"E"))
.S CNT=CNT+1
.S @TARGET@(CNT,0)=STRPAD_$G(CPLARR(FNUM,IEN_",",81101,"E"))
.S CNT=CNT+1
.S @TARGET@(CNT,0)=SPACE
I FNUM=123 D
.S CNT=CNT+1
.S @TARGET@(CNT,0)="-------------------- Consults -----------------------------"
.S CNT=CNT+1
.S @TARGET@(CNT,0)=STRPAD_"Date of Request - "_CPLARR(FNUM,IEN_",","3","E")
.S CNT=CNT+1
.S @TARGET@(CNT,0)=STRPAD_"Provider - "_CPLARR(FNUM,IEN_",","10","E")
.S CNT=CNT+1
.S @TARGET@(CNT,0)=STRPAD_"Procedure - "_CPLARR(FNUM,IEN_",","4","E")
.S CNT=CNT+1
.S @TARGET@(CNT,0)=STRPAD_"To Service - "_CPLARR(FNUM,IEN_",","1","E")_" Attention: "_CPLARR(FNUM,IEN_",","7","E")
.S CNT=CNT+1
.S @TARGET@(CNT,0)=SPACE
BTIUCPL1 ; IHS/MSC/JS - TIU V Care Plan Object cont. ;02-Jan-2014 15:53;DU
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**1012,1013**;MAR 20, 2013;Build 33
+2 ;5/22/13 - EHR TEST WITH HARDSET 'PARAM' = 265 (PROBLEM IEN)
+3 ;
OUT ; set report data @TARGET for object report
+1 NEW NODE,PROBDX,STRING
+2 IF FNUM=9000092
Begin DoDot:1
+3 SET CNT=CNT+1
+4 SET @TARGET@(CNT,0)="-------------- Care Plan ------------"
+5 NEW PRIEN
SET PRIEN=+$GET(CPLARR(FNUM,IEN_",",.01,"E"))
Begin DoDot:2
+6 IF PRIEN
NEW ICD9IEN
SET ICD9IEN=+$GET(^AUPNPROB(PRIEN,0))
+7 ;I ICD9IEN S PROBDX=$P($G(^ICD9(ICD9IEN,0)),U,3)
+8 IF ICD9IEN
SET PROBDX=$$GET1^DIQ(9000011,PRIEN,.05)
+9 NEW PROBSTAT
SET PROBSTAT=$GET(CPLARR(FNUM_".11",IEN_",",1,"E"))
+10 SET CNT=CNT+1
+11 SET @TARGET@(CNT,0)=$GET(PROBDX)_STRPAD_$GET(PROBSTAT)
End DoDot:2
+12 SET CNT=CNT+1
+13 SET @TARGET@(CNT,0)=SPACE
+14 SET CNT=CNT+1
+15 NEW SIGNBY
SET SIGNBY=$GET(CPLARR(FNUM,IEN_",",.07,"E"))
+16 NEW SIGNDT
SET SIGNDT=$GET(CPLARR(FNUM,IEN_",",.08,"E"))
SET SIGNDT=$PIECE(SIGNDT,"@",1)
+17 SET @TARGET@(CNT,0)="GOALS - "_$GET(SIGNDT)_" by "_$GET(SIGNBY)
+18 SET CNT=CNT+1
+19 SET @TARGET@(CNT,0)="CARE PLAN INSTRUCTION -"
+20 SET STRING=""
SET NODE=0
+21 FOR
SET NODE=$ORDER(CPLARR(FNUM,IEN_",","1200",NODE))
IF NODE'?1N
QUIT
Begin DoDot:2
+22 SET STRING=$GET(CPLARR(FNUM,IEN_",","1200",NODE))
+23 SET CNT=CNT+1
+24 SET @TARGET@(CNT,0)=STRPAD_STRING
+25 QUIT
End DoDot:2
+26 SET CNT=CNT+1
+27 SET @TARGET@(CNT,0)=SPACE
End DoDot:1
+28 IF FNUM=9000010.58
Begin DoDot:1
+29 SET CNT=CNT+1
+30 SET @TARGET@(CNT,0)="-------------- Visit Instructions --------------"
+31 SET CNT=CNT+1
+32 NEW INSTDT
SET INSTDT=$GET(CPLARR(FNUM,IEN_",",.05,"E"))
+33 NEW INSTBY
SET INSTBY=$GET(CPLARR(FNUM,IEN_",",.04,"E"))
+34 SET @TARGET@(CNT,0)="VISIT INSTRUCTIONS - "_INSTDT_" by "_INSTBY
+35 SET STRING=""
SET NODE=0
+36 FOR
SET NODE=$ORDER(CPLARR(FNUM,IEN_",","1100",NODE))
IF NODE'?1N
QUIT
Begin DoDot:2
+37 SET STRING=$GET(CPLARR(FNUM,IEN_",","1100",NODE))
+38 SET CNT=CNT+1
+39 SET @TARGET@(CNT,0)=STRPAD_STRING
+40 QUIT
End DoDot:2
+41 SET CNT=CNT+1
+42 SET @TARGET@(CNT,0)=SPACE
End DoDot:1
+43 IF FNUM=9000010.61
Begin DoDot:1
+44 SET CNT=CNT+1
+45 SET @TARGET@(CNT,0)="--------------------- Treatment/Regimen --------------------"
+46 SET CNT=CNT+1
+47 SET @TARGET@(CNT,0)="TX/REGIMEN/FU"
+48 SET CNT=CNT+1
+49 SET @TARGET@(CNT,0)=STRPAD_$GET(CPLARR(FNUM,IEN_",",.01,"E"))
+50 SET CNT=CNT+1
+51 SET @TARGET@(CNT,0)=SPACE
End DoDot:1
+52 IF FNUM=9000010.16
Begin DoDot:1
+53 SET CNT=CNT+1
+54 SET @TARGET@(CNT,0)="--------------------- Patient Education --------------------"
+55 SET CNT=CNT+1
+56 SET @TARGET@(CNT,0)="EDUCATION"
+57 SET CNT=CNT+1
+58 SET @TARGET@(CNT,0)=STRPAD_$GET(CPLARR(FNUM,IEN_",",.01,"E"))
+59 SET CNT=CNT+1
+60 SET @TARGET@(CNT,0)=STRPAD_$GET(CPLARR(FNUM,IEN_",",81101,"E"))
+61 SET CNT=CNT+1
+62 SET @TARGET@(CNT,0)=SPACE
End DoDot:1
+63 IF FNUM=123
Begin DoDot:1
+64 SET CNT=CNT+1
+65 SET @TARGET@(CNT,0)="-------------------- Consults -----------------------------"
+66 SET CNT=CNT+1
+67 SET @TARGET@(CNT,0)=STRPAD_"Date of Request - "_CPLARR(FNUM,IEN_",","3","E")
+68 SET CNT=CNT+1
+69 SET @TARGET@(CNT,0)=STRPAD_"Provider - "_CPLARR(FNUM,IEN_",","10","E")
+70 SET CNT=CNT+1
+71 SET @TARGET@(CNT,0)=STRPAD_"Procedure - "_CPLARR(FNUM,IEN_",","4","E")
+72 SET CNT=CNT+1
+73 SET @TARGET@(CNT,0)=STRPAD_"To Service - "_CPLARR(FNUM,IEN_",","1","E")_" Attention: "_CPLARR(FNUM,IEN_",","7","E")
+74 SET CNT=CNT+1
+75 SET @TARGET@(CNT,0)=SPACE
End DoDot:1
