- SROAPRT1 ;BIR/MAM - PREOP INFO (PAGE 1) ;04/05/2012
- ;;3.0;Surgery;**38,47,125,153,166,174,176,182,184**;24 Jun 93;Build 35
- N SRX,Y F I=200,200.1,206,207,210 S SRA(I)=$G(^SRF(SRTN,I))
- S Y=$P(SRA(200),"^"),SRX=402,SRAO(1)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(206),"^"),SRX=236,SRAO("1A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(206),"^",2),SRX=237,SRAO("1B")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200.1),"^",11),SRX=519,SRAO("1C")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200.1),"^",12),SRX=520,SRAO("1CC")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200.1),"^",9),SRX=517,SRAO("1D")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P($G(^SRF(SRTN,200.1)),"^",9) D S SRA(200.1)=$G(^SRF(SRTN,200.1))
- .I Y'="",Y<3 S $P(^SRF(SRTN,200.1),"^",10)="NA" Q
- S Y=$P(SRA(200.1),"^",10),SRX=518,SRAO("1DD")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",4),SRX=246,SRAO("1E")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",6),SRX=325,SRAO("1F")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200.1),"^",8),SRX=237.1,SRAO("1G")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200.1),"^",15),SRX=667,SRAO("1GG")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",7),SRX=238,SRAO("1H")=$$OUT(SRX,Y)_"^"_SRX
- ;S Y=$P(SRA(200.1),"^",2),SRX=492,SRAO("1I")=$S(Y=1:"INDEPENDENT",Y=2:"PARTIAL DEPENDENT",Y=3:"TOTALLY DEPENDENT",Y="NS":"NS",1:"")_"^"_SRX
- S Y=$P(SRA(200.1),"^",2),SRX=492,SRAO("1I")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(210),"^",5),SRX=670,SRAO("1J")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(210),"^",6),SRX=671,SRAO("1K")=$S(Y=1:"AMB W/O ASSISTIVE DEVICE",Y=2:"AMB WITH CANE OR WALKER",Y=3:"USES MANUAL WHEELCHAIR INDEPENDENTLY",Y=4:"DOES NOT AMB",1:"")_"^"_SRX
- S Y=$P(SRA(200),"^",9),SRX=241,SRAO(2)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",10),SRX=204,SRAO("2A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",11),SRX=203,SRAO("2B")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",12),SRX=326,SRAO("2C")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",13),SRX=244,SRAO(3)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",15),SRX=212,SRAO("3A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200.1),"^"),SRX=486,SRAO(4)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",16),SRX=213,SRAO("4A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",30),SRX=242,SRAO(5)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(207),"^",29),SRX=423,SRAO("5A")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(206),"^",14),SRX=205,SRAO("5B")=$S(Y=0:"NO",Y=1:"< OR = 7 DAYS OF SURG",Y=2:"BETWEEN 7 DAYS AND 6 MONTHS OF SURG",Y=3:"UNKNOWN",Y=4:"> 6 MONTHS",Y=5:"UNKNOWN",1:"")_"^"_SRX
- S Y=$P(SRA(200),"^",56),SRX=640,SRAO("5C")=$S(Y=1:"NONE",Y=2:"<12 HRS OF SURG",Y=3:">12 HRS-7 DAYS",Y=4:">7 DAYS",Y=5:"UNKNOWN",1:"")_"^"_SRX
- S Y=$P(SRA(206),"^",42),SRX=485,SRAO("5D")=Y_"^"_SRX
- S Y=$P(SRA(206),"^",18),SRX=267,SRAO("5E")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",59),SRX=643,SRAO("5F")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",57),SRX=641,SRAO("5G")=$$H641(Y)_"^"_SRX
- S Y=$P(SRA(200),"^",40),SRX=206,SRAO(6)=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(206),"^",16),SRX=265,SRAO("6A")=$$OUT^SROAPS1(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",42),SRX=330,SRAO("6B")=$$OUT(SRX,Y)_"^"_SRX
- S Y=$P(SRA(200),"^",55),SRX=618,SRAO("1FF")=$$H618^SROACL1(Y)_"^"_SRX
- W:$E(IOST)="P" ! W !,?28,"PREOPERATIVE INFORMATION",!!
- W "GENERAL:",?31,$P(SRAO(1),"^"),?40,"HEPATOBILIARY:",?72,$P(SRAO(3),"^")
- W !,"Height:",?24,$P(SRAO("1A"),"^"),?40,"Ascites:",?66,$P(SRAO("3A"),"^")
- W !,"Weight:",?24,$P(SRAO("1B"),"^")
- W !,"Diabetes - Long Term:",?24,$E($P(SRAO("1C"),"^"),1,14),?40,"GASTROINTESTINAL:",?72,$P(SRAO(4),"^")
- W !,"Diabetes - 2 Wks Preop:",?24,$E($P(SRAO("1CC"),"^"),1,14),?40,"Esophageal Varices:",?66,$P(SRAO("4A"),"^")
- W !,"Tobacco Use:",?24,$P(SRAO("1D"),"^")
- W !,"Tobacco Use Timeframe: ",?24,$P(SRAO("1DD"),"^")
- W !,"ETOH > 2 Drinks/Day:",?24,$P(SRAO("1E"),"^"),?40,"CARDIAC:",?72,$P(SRAO(5),"^")
- W !,"Positive Drug Screening:",?24,$E($P(SRAO("1FF"),"^"),1,8),?40,"Congestive Heart Failure:",?66,$E($P(SRAO("5A"),"^"),1,14)
- W !,"Dyspnea:",?24,$E($P(SRAO("1F"),"^"),1,14),?40,"Prior MI:",?66,$E($P(SRAO("5B"),"^"),1,14)
- W !,"Preop Sleep Apnea:",?24,$P(SRAO("1G"),"^"),?40,"PCI:",?66,$P(SRAO("5C"),"^")
- W !,"Sleep Apnea-Compliance:",?24,$E($P(SRAO("1GG"),"^"),1,9)
- W !,"DNR Status:",?24,$P(SRAO("1H"),"^"),?40,"Prior Heart Surgery: " D H485
- W !,"Functional Status:",?24,$E($P(SRAO("1I"),"^"),1,14),?40,"Angina Severity:",?66,$P(SRAO("5E"),"^")
- W !,"Current Residence: ",$E($P(SRAO("1J"),"^"),1,19)
- W ?40,"Angina Timeframe:",$J($E($P(SRAO("5F"),"^"),1,20),22)
- W !,"Ambulation Device: ",$E($P(SRAO("1K"),"^"),1,19),?40,"Hypertension: ",?(74-$L($P(SRAO("5G"),"^"))),$P(SRAO("5G"),"^")
- W !!,"PULMONARY:",?31,$P(SRAO(2),"^")
- W !,"Ventilator Dependent:",?25,$P(SRAO("2A"),"^"),?40,"VASCULAR:",?72,$P(SRAO(6),"^")
- W !,"History of Severe COPD:",?25,$P(SRAO("2B"),"^"),?40,"PAD:",?(79-$L($P(SRAO("6A"),"^"))),$P(SRAO("6A"),"^")
- W !,"Current Pneumonia:",?25,$P(SRAO("2C"),"^"),?40,"Rest Pain/Gangrene:",?72,$P(SRAO("6B"),"^")
- Q
- OUT(SRFLD,SRY) ; get data in output form
- N C,Y
- S Y=SRY,C=$P(^DD(130,SRFLD,0),"^",2) D:Y'="" Y^DIQ
- S Y=$S(Y="NO STUDY":"NS",Y="N/A":"NA",1:Y)
- I SRFLD=237.1 S Y=$E(Y,1,7)
- I SRFLD=236!(SRFLD=237)!(SRFLD=346) S Y=$E(Y,1,15)
- I SRFLD=240!(SRFLD=492) D
- .I SRY=2 S Y="PARTIAL DEPENDENT" Q
- .I SRY=4 S Y=Y_" "
- I SRFLD=325,$L(Y)=2 S Y=Y_" "
- Q Y
- H641(Y) ;
- S Y=$S(Y=1:"NO",Y=2:"YES WITHOUT MED",Y=3:"YES WITH MED",Y=4:"UNKNOWN",1:"")
- Q Y
- H485 S SHEMP="",X=$P(SRA(206),"^",42) F I=1:1:$L(X,",") D
- .S C=$P(X,",",I) S:I>1 SHEMP=SHEMP_", " S SHEMP=SHEMP_$S(C=0:"None",C=1:"CABG-only",C=2:"Valve-only",C=3:"CABG/valve",C=4:"Other",C=5:"CABG/Other",C=6:"Unknown",1:"")
- S X=SHEMP I $L(X)<14 W ?66,X Q
- W $J($P(X,",")_",",15) I $L($P(X,", ",2,9))<40 W !,?41,$P(X,", ",2,9) Q
- W !,?41,$P(X,", ",2,4)_",",!,?41,$P(X,", ",5,9)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROAPRT1 5715 printed Feb 19, 2025@00:08:10 Page 2
- SROAPRT1 ;BIR/MAM - PREOP INFO (PAGE 1) ;04/05/2012
- +1 ;;3.0;Surgery;**38,47,125,153,166,174,176,182,184**;24 Jun 93;Build 35
- +2 NEW SRX,Y
- FOR I=200,200.1,206,207,210
- SET SRA(I)=$GET(^SRF(SRTN,I))
- +3 SET Y=$PIECE(SRA(200),"^")
- SET SRX=402
- SET SRAO(1)=$$OUT(SRX,Y)_"^"_SRX
- +4 SET Y=$PIECE(SRA(206),"^")
- SET SRX=236
- SET SRAO("1A")=$$OUT(SRX,Y)_"^"_SRX
- +5 SET Y=$PIECE(SRA(206),"^",2)
- SET SRX=237
- SET SRAO("1B")=$$OUT(SRX,Y)_"^"_SRX
- +6 SET Y=$PIECE(SRA(200.1),"^",11)
- SET SRX=519
- SET SRAO("1C")=$$OUT(SRX,Y)_"^"_SRX
- +7 SET Y=$PIECE(SRA(200.1),"^",12)
- SET SRX=520
- SET SRAO("1CC")=$$OUT(SRX,Y)_"^"_SRX
- +8 SET Y=$PIECE(SRA(200.1),"^",9)
- SET SRX=517
- SET SRAO("1D")=$$OUT(SRX,Y)_"^"_SRX
- +9 SET Y=$PIECE($GET(^SRF(SRTN,200.1)),"^",9)
- Begin DoDot:1
- +10 IF Y'=""
- IF Y<3
- SET $PIECE(^SRF(SRTN,200.1),"^",10)="NA"
- QUIT
- End DoDot:1
- SET SRA(200.1)=$GET(^SRF(SRTN,200.1))
- +11 SET Y=$PIECE(SRA(200.1),"^",10)
- SET SRX=518
- SET SRAO("1DD")=$$OUT(SRX,Y)_"^"_SRX
- +12 SET Y=$PIECE(SRA(200),"^",4)
- SET SRX=246
- SET SRAO("1E")=$$OUT(SRX,Y)_"^"_SRX
- +13 SET Y=$PIECE(SRA(200),"^",6)
- SET SRX=325
- SET SRAO("1F")=$$OUT(SRX,Y)_"^"_SRX
- +14 SET Y=$PIECE(SRA(200.1),"^",8)
- SET SRX=237.1
- SET SRAO("1G")=$$OUT(SRX,Y)_"^"_SRX
- +15 SET Y=$PIECE(SRA(200.1),"^",15)
- SET SRX=667
- SET SRAO("1GG")=$$OUT(SRX,Y)_"^"_SRX
- +16 SET Y=$PIECE(SRA(200),"^",7)
- SET SRX=238
- SET SRAO("1H")=$$OUT(SRX,Y)_"^"_SRX
- +17 ;S Y=$P(SRA(200.1),"^",2),SRX=492,SRAO("1I")=$S(Y=1:"INDEPENDENT",Y=2:"PARTIAL DEPENDENT",Y=3:"TOTALLY DEPENDENT",Y="NS":"NS",1:"")_"^"_SRX
- +18 SET Y=$PIECE(SRA(200.1),"^",2)
- SET SRX=492
- SET SRAO("1I")=$$OUT(SRX,Y)_"^"_SRX
- +19 SET Y=$PIECE(SRA(210),"^",5)
- SET SRX=670
- SET SRAO("1J")=$$OUT(SRX,Y)_"^"_SRX
- +20 SET Y=$PIECE(SRA(210),"^",6)
- SET SRX=671
- SET SRAO("1K")=$SELECT(Y=1:"AMB W/O ASSISTIVE DEVICE",Y=2:"AMB WITH CANE OR WALKER",Y=3:"USES MANUAL WHEELCHAIR INDEPENDENTLY",Y=4:"DOES NOT AMB",1:"")_"^"_SRX
- +21 SET Y=$PIECE(SRA(200),"^",9)
- SET SRX=241
- SET SRAO(2)=$$OUT(SRX,Y)_"^"_SRX
- +22 SET Y=$PIECE(SRA(200),"^",10)
- SET SRX=204
- SET SRAO("2A")=$$OUT(SRX,Y)_"^"_SRX
- +23 SET Y=$PIECE(SRA(200),"^",11)
- SET SRX=203
- SET SRAO("2B")=$$OUT(SRX,Y)_"^"_SRX
- +24 SET Y=$PIECE(SRA(200),"^",12)
- SET SRX=326
- SET SRAO("2C")=$$OUT(SRX,Y)_"^"_SRX
- +25 SET Y=$PIECE(SRA(200),"^",13)
- SET SRX=244
- SET SRAO(3)=$$OUT(SRX,Y)_"^"_SRX
- +26 SET Y=$PIECE(SRA(200),"^",15)
- SET SRX=212
- SET SRAO("3A")=$$OUT(SRX,Y)_"^"_SRX
- +27 SET Y=$PIECE(SRA(200.1),"^")
- SET SRX=486
- SET SRAO(4)=$$OUT(SRX,Y)_"^"_SRX
- +28 SET Y=$PIECE(SRA(200),"^",16)
- SET SRX=213
- SET SRAO("4A")=$$OUT(SRX,Y)_"^"_SRX
- +29 SET Y=$PIECE(SRA(200),"^",30)
- SET SRX=242
- SET SRAO(5)=$$OUT(SRX,Y)_"^"_SRX
- +30 SET Y=$PIECE(SRA(207),"^",29)
- SET SRX=423
- SET SRAO("5A")=$$OUT(SRX,Y)_"^"_SRX
- +31 SET Y=$PIECE(SRA(206),"^",14)
- SET SRX=205
- SET SRAO("5B")=$SELECT(Y=0:"NO",Y=1:"< OR = 7 DAYS OF SURG",Y=2:"BETWEEN 7 DAYS AND 6 MONTHS OF SURG",Y=3:"UNKNOWN",Y=4:"> 6 MONTHS",Y=5:"UNKNOWN",1:"")_"^"_SRX
- +32 SET Y=$PIECE(SRA(200),"^",56)
- SET SRX=640
- SET SRAO("5C")=$SELECT(Y=1:"NONE",Y=2:"<12 HRS OF SURG",Y=3:">12 HRS-7 DAYS",Y=4:">7 DAYS",Y=5:"UNKNOWN",1:"")_"^"_SRX
- +33 SET Y=$PIECE(SRA(206),"^",42)
- SET SRX=485
- SET SRAO("5D")=Y_"^"_SRX
- +34 SET Y=$PIECE(SRA(206),"^",18)
- SET SRX=267
- SET SRAO("5E")=$$OUT(SRX,Y)_"^"_SRX
- +35 SET Y=$PIECE(SRA(200),"^",59)
- SET SRX=643
- SET SRAO("5F")=$$OUT(SRX,Y)_"^"_SRX
- +36 SET Y=$PIECE(SRA(200),"^",57)
- SET SRX=641
- SET SRAO("5G")=$$H641(Y)_"^"_SRX
- +37 SET Y=$PIECE(SRA(200),"^",40)
- SET SRX=206
- SET SRAO(6)=$$OUT(SRX,Y)_"^"_SRX
- +38 SET Y=$PIECE(SRA(206),"^",16)
- SET SRX=265
- SET SRAO("6A")=$$OUT^SROAPS1(SRX,Y)_"^"_SRX
- +39 SET Y=$PIECE(SRA(200),"^",42)
- SET SRX=330
- SET SRAO("6B")=$$OUT(SRX,Y)_"^"_SRX
- +40 SET Y=$PIECE(SRA(200),"^",55)
- SET SRX=618
- SET SRAO("1FF")=$$H618^SROACL1(Y)_"^"_SRX
- +41 if $EXTRACT(IOST)="P"
- WRITE !
- WRITE !,?28,"PREOPERATIVE INFORMATION",!!
- +42 WRITE "GENERAL:",?31,$PIECE(SRAO(1),"^"),?40,"HEPATOBILIARY:",?72,$PIECE(SRAO(3),"^")
- +43 WRITE !,"Height:",?24,$PIECE(SRAO("1A"),"^"),?40,"Ascites:",?66,$PIECE(SRAO("3A"),"^")
- +44 WRITE !,"Weight:",?24,$PIECE(SRAO("1B"),"^")
- +45 WRITE !,"Diabetes - Long Term:",?24,$EXTRACT($PIECE(SRAO("1C"),"^"),1,14),?40,"GASTROINTESTINAL:",?72,$PIECE(SRAO(4),"^")
- +46 WRITE !,"Diabetes - 2 Wks Preop:",?24,$EXTRACT($PIECE(SRAO("1CC"),"^"),1,14),?40,"Esophageal Varices:",?66,$PIECE(SRAO("4A"),"^")
- +47 WRITE !,"Tobacco Use:",?24,$PIECE(SRAO("1D"),"^")
- +48 WRITE !,"Tobacco Use Timeframe: ",?24,$PIECE(SRAO("1DD"),"^")
- +49 WRITE !,"ETOH > 2 Drinks/Day:",?24,$PIECE(SRAO("1E"),"^"),?40,"CARDIAC:",?72,$PIECE(SRAO(5),"^")
- +50 WRITE !,"Positive Drug Screening:",?24,$EXTRACT($PIECE(SRAO("1FF"),"^"),1,8),?40,"Congestive Heart Failure:",?66,$EXTRACT($PIECE(SRAO("5A"),"^"),1,14)
- +51 WRITE !,"Dyspnea:",?24,$EXTRACT($PIECE(SRAO("1F"),"^"),1,14),?40,"Prior MI:",?66,$EXTRACT($PIECE(SRAO("5B"),"^"),1,14)
- +52 WRITE !,"Preop Sleep Apnea:",?24,$PIECE(SRAO("1G"),"^"),?40,"PCI:",?66,$PIECE(SRAO("5C"),"^")
- +53 WRITE !,"Sleep Apnea-Compliance:",?24,$EXTRACT($PIECE(SRAO("1GG"),"^"),1,9)
- +54 WRITE !,"DNR Status:",?24,$PIECE(SRAO("1H"),"^"),?40,"Prior Heart Surgery: "
- DO H485
- +55 WRITE !,"Functional Status:",?24,$EXTRACT($PIECE(SRAO("1I"),"^"),1,14),?40,"Angina Severity:",?66,$PIECE(SRAO("5E"),"^")
- +56 WRITE !,"Current Residence: ",$EXTRACT($PIECE(SRAO("1J"),"^"),1,19)
- +57 WRITE ?40,"Angina Timeframe:",$JUSTIFY($EXTRACT($PIECE(SRAO("5F"),"^"),1,20),22)
- +58 WRITE !,"Ambulation Device: ",$EXTRACT($PIECE(SRAO("1K"),"^"),1,19),?40,"Hypertension: ",?(74-$LENGTH($PIECE(SRAO("5G"),"^"))),$PIECE(SRAO("5G"),"^")
- +59 WRITE !!,"PULMONARY:",?31,$PIECE(SRAO(2),"^")
- +60 WRITE !,"Ventilator Dependent:",?25,$PIECE(SRAO("2A"),"^"),?40,"VASCULAR:",?72,$PIECE(SRAO(6),"^")
- +61 WRITE !,"History of Severe COPD:",?25,$PIECE(SRAO("2B"),"^"),?40,"PAD:",?(79-$LENGTH($PIECE(SRAO("6A"),"^"))),$PIECE(SRAO("6A"),"^")
- +62 WRITE !,"Current Pneumonia:",?25,$PIECE(SRAO("2C"),"^"),?40,"Rest Pain/Gangrene:",?72,$PIECE(SRAO("6B"),"^")
- +63 QUIT
- OUT(SRFLD,SRY) ; get data in output form
- +1 NEW C,Y
- +2 SET Y=SRY
- SET C=$PIECE(^DD(130,SRFLD,0),"^",2)
- if Y'=""
- DO Y^DIQ
- +3 SET Y=$SELECT(Y="NO STUDY":"NS",Y="N/A":"NA",1:Y)
- +4 IF SRFLD=237.1
- SET Y=$EXTRACT(Y,1,7)
- +5 IF SRFLD=236!(SRFLD=237)!(SRFLD=346)
- SET Y=$EXTRACT(Y,1,15)
- +6 IF SRFLD=240!(SRFLD=492)
- Begin DoDot:1
- +7 IF SRY=2
- SET Y="PARTIAL DEPENDENT"
- QUIT
- +8 IF SRY=4
- SET Y=Y_" "
- End DoDot:1
- +9 IF SRFLD=325
- IF $LENGTH(Y)=2
- SET Y=Y_" "
- +10 QUIT Y
- H641(Y) ;
- +1 SET Y=$SELECT(Y=1:"NO",Y=2:"YES WITHOUT MED",Y=3:"YES WITH MED",Y=4:"UNKNOWN",1:"")
- +2 QUIT Y
- H485 SET SHEMP=""
- SET X=$PIECE(SRA(206),"^",42)
- FOR I=1:1:$LENGTH(X,",")
- Begin DoDot:1
- +1 SET C=$PIECE(X,",",I)
- if I>1
- SET SHEMP=SHEMP_", "
- SET SHEMP=SHEMP_$SELECT(C=0:"None",C=1:"CABG-only",C=2:"Valve-only",C=3:"CABG/valve",C=4:"Other",C=5:"CABG/Other",C=6:"Unknown",1:"")
- End DoDot:1
- +2 SET X=SHEMP
- IF $LENGTH(X)<14
- WRITE ?66,X
- QUIT
- +3 WRITE $JUSTIFY($PIECE(X,",")_",",15)
- IF $LENGTH($PIECE(X,", ",2,9))<40
- WRITE !,?41,$PIECE(X,", ",2,9)
- QUIT
- +4 WRITE !,?41,$PIECE(X,", ",2,4)_",",!,?41,$PIECE(X,", ",5,9)
- +5 QUIT