PXRMXXT.m

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 ---PXRMXXT   969     printed  Feb 18, 2025@23:16:56                                                                                                                                                                                                      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       ;