SROAOSET.m

SROAOSET ;B'HAM ISC/MAM - SET SRAO ARRAY ; 17 MAR 1992 1:55 pm

 ;;3.0;Surgery;**127,177**;24 Jun 93;Build 89

 S SRA(0)=^SRF(SRTN,0),SRA(34)=$G(^SRF(SRTN,34)),X=$P(SRA(34),"^",2) S:X X=$$ICD^SROICD(SRTN,X),X=$P(X,"^",2)_"   "_$P(X,"^",4) S SRAO(1)=X_"^66" K SRA(34)

 S SRA(205)=$G(^SRF(SRTN,205)),X=$P(SRA(205),"^") S:X X=X_" DAYS" S SRAO(2)=X_"^247"

 S X=$P(SRA(205),"^",2),X=$S(X="":"",X=1:"DISCHARGED ALIVE",X=2:"DIED IN HOSPITAL",X=3:"REMAINS IN VAMC FACILITY",X=4:"TRANSFERRED TO ANOTHER VAMC",X=5:"READMITTED",X="NS":"NO STUDY",1:"")

 S SRAO(3)=X_"^341"

DISP W @IOF,!,SRANAME,?65,"PAGE: 1",! F MOE=1:1:80 W "-"

 W !,"1. Postoperative Diagnosis Code "_$$ICDSTR^SROICD(SRTN)_":",?43,$P(SRAO(1),"^"),!,"2. Length of Postoperative Hospital Stay:",?43,$P(SRAO(2),"^"),!,"3. 30 Day Postoperative Status:",?43,$P(SRAO(3),"^")

 W ! F MOE=1:1:80 W "-"

 Q

YN ;

 S SHEMP=$S(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROAOSET   934     printed  Apr 09, 2024@21:46:49                                                                                                                                                                                                     Page 2

SROAOSET  ;B'HAM ISC/MAM - SET SRAO ARRAY ; 17 MAR 1992 1:55 pm

 +1       ;;3.0;Surgery;**127,177**;24 Jun 93;Build 89

 +2        SET SRA(0)=^SRF(SRTN,0)

           SET SRA(34)=$GET(^SRF(SRTN,34))

           SET X=$PIECE(SRA(34),"^",2)

           if X

               SET X=$$ICD^SROICD(SRTN,X)

               SET X=$PIECE(X,"^",2)_"   "_$PIECE(X,"^",4)

           SET SRAO(1)=X_"^66"

           KILL SRA(34)

 +3        SET SRA(205)=$GET(^SRF(SRTN,205))

           SET X=$PIECE(SRA(205),"^")

           if X

               SET X=X_" DAYS"

           SET SRAO(2)=X_"^247"

 +4        SET X=$PIECE(SRA(205),"^",2)

           SET X=$SELECT(X="":"",X=1:"DISCHARGED ALIVE",X=2:"DIED IN HOSPITAL",X=3:"REMAINS IN VAMC FACILITY",X=4:"TRANSFERRED TO ANOTHER VAMC",X=5:"READMITTED",X="NS":"NO STUDY",1:"")

 +5        SET SRAO(3)=X_"^341"

DISP       WRITE @IOF,!,SRANAME,?65,"PAGE: 1",!

           FOR MOE=1:1:80

               WRITE "-"

 +1        WRITE !,"1. Postoperative Diagnosis Code "_$$ICDSTR^SROICD(SRTN)_":",?43,$PIECE(SRAO(1),"^"),!,"2. Length of Postoperative Hospital Stay:",?43,$PIECE(SRAO(2),"^"),!,"3. 30 Day Postoperative Status:",?43,$PIECE(SRAO(3),"^")

 +2        WRITE !

           FOR MOE=1:1:80

               WRITE "-"

 +3        QUIT 

YN        ;

 +1        SET SHEMP=$SELECT(NYUK="NS":"NS",NYUK="N":"NO",NYUK="Y":"YES",1:"")

 +2        QUIT