PXRMXXT ; SLC/DLT - Formatting for extract print templates ;8/14/00 18:30
;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
;
;======================================================================
FORMATB ;Format body of report that prints the findings
; Variables that need to be deleted from the template logic follow
; PXRME,PXRMB,PXRMSEX,PXRMFD
D DELVAR^PXRMXXT
N DFN,VADM,VA
S PXRME=^PXRMXT(810.3,D0,1,D1,0)
S DFN=+$P(PXRME,"^",1)
D DEM^VADPT
S PXRMB=$$FMTE^XLFDT(+VADM(3),"2D")
I '$L(PXRMB) S PXRMB="Missing DOB"
S PXRMSSN=$P(VADM(2),"^",2)
S PXRMSEX=$P(VADM(5),"^",1)
S PXRMFD=$$FMTE^XLFDT($P(PXRME,"^",6),"2D")
S PXRMENCT=$S($P(PXRME,"^",8)="I":"Inpatient ",1:"Outpatient")
Q
;
PDEM ;Print SSN with dashes
W PXRMSSN
Q
;
PFIND ;Print findings data from the template
W " "_PXRMENCT_" "_$E(PXRMFD,1,8)
Q
;
DELVAR ;Delete variables used in the processing
K PXRME,PXRMB,PXRMSEX,PXRMFD,PXRMSSN,PXRMFD,PXRMENCT
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMXXT 969 printed Oct 16, 2024@17:51:24 Page 2
PXRMXXT ; SLC/DLT - Formatting for extract print templates ;8/14/00 18:30
+1 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
+2 ;
+3 ;======================================================================
FORMATB ;Format body of report that prints the findings
+1 ; Variables that need to be deleted from the template logic follow
+2 ; PXRME,PXRMB,PXRMSEX,PXRMFD
+3 DO DELVAR^PXRMXXT
+4 NEW DFN,VADM,VA
+5 SET PXRME=^PXRMXT(810.3,D0,1,D1,0)
+6 SET DFN=+$PIECE(PXRME,"^",1)
+7 DO DEM^VADPT
+8 SET PXRMB=$$FMTE^XLFDT(+VADM(3),"2D")
+9 IF '$LENGTH(PXRMB)
SET PXRMB="Missing DOB"
+10 SET PXRMSSN=$PIECE(VADM(2),"^",2)
+11 SET PXRMSEX=$PIECE(VADM(5),"^",1)
+12 SET PXRMFD=$$FMTE^XLFDT($PIECE(PXRME,"^",6),"2D")
+13 SET PXRMENCT=$SELECT($PIECE(PXRME,"^",8)="I":"Inpatient ",1:"Outpatient")
+14 QUIT
+15 ;
PDEM ;Print SSN with dashes
+1 WRITE PXRMSSN
+2 QUIT
+3 ;
PFIND ;Print findings data from the template
+1 WRITE " "_PXRMENCT_" "_$EXTRACT(PXRMFD,1,8)
+2 QUIT
+3 ;
DELVAR ;Delete variables used in the processing
+1 KILL PXRME,PXRMB,PXRMSEX,PXRMFD,PXRMSSN,PXRMFD,PXRMENCT
+2 QUIT
+3 ;
