GMTSPXOP ; SLC/SBW,KER - PCE Outpatient Encounter comp ;07/19/13 11:48
;;2.7;Health Summary;**8,10,28,37,47,49,76,101**;Oct 20, 1995;Build 12
;
; External References
; DBIA 1238 VISIT^PXRHS01
; DBIA 1996 $$MOD^ICPTMOD
; DBIA 10103 $$DT^XLFDT
; DBIA 10011 ^DIWP
;
PURPOSE ; Encounters with ICD9 and providers
N DTYPE S DTYPE="DP" D MAIN Q
OUTPT ; Encounters with ICD9, CPT, and providers
N DTYPE S DTYPE="CDP" D MAIN Q
MAIN ; Entry for Purpose of Visit and Outpatient Encounters
N GMTSIVD,GMTSDAT,GMTSDTU,GMTSOVT,GMTSLOC,DIWL,GMTAB,GMTSN,GMCKP,GMTSX
N GMTSITE,GMTSINS,GMTSEVT,GMTSHIS,GMTSICL,GMTSLOC,GMTSELIG,X,GMTSVDF
N GMTSCPTM,GMICL
;
; GMTSCPTM Component uses CPT Modifiers 1 yes 0 no
S GMTSCPTM=+($$CPT^GMTSU(+($G(GMTSEGN)))) S:$G(GMPXCMOD)="N" GMTSCPTM=0
; GMTSICL # of blank left columns for support data of a visit
S GMTSICL=14
; DIWL Used in TXTFMT call & to print returned data
S DIWL=0
; GMTAB Used to offset data from TXTFMT call after 1st line
S GMTAB=2
; GMTSOVT This is the set of Service Categories for AICTSORE
;
; A Ambulatory
; I Inpatient
; C Chart Review
; T Telecommunications
; S Day Surgery
; O Observation
; R Nursing Home Encounters
; E Event (Historical)
;
; Note: Hospitalization and Ancillary
; encounters are not included
S GMTSOVT="AICTSORE"
;
D VISIT^PXRHS01(DFN,GMTSEND,GMTSBEG,GMTSNDM,GMTSOVT,DTYPE,1)
Q:'$D(^TMP("PXHSV",$J))
S GMTSIVD=0
F S GMTSIVD=$O(^TMP("PXHSV",$J,GMTSIVD)) Q:GMTSIVD']"" D Q:$D(GMTSQIT)
. S GMTSVDF=0
. F S GMTSVDF=$O(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF)) Q:GMTSVDF'>0 D Q:$D(GMTSQIT)
. . S GMTSN=$G(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,0))
. . S GMTSEVT=$P(GMTSN,U,4),GMTSHIS=$S(GMTSEVT["HISTORICAL":1,1:0)
. . S X=$P(GMTSN,U,1) D REGDT4^GMTSU S GMTSDAT=X
. . S GMTSDTU=0,(GMTSITE,GMTSLOC)=""
. . S GMTSINS=$S($P(GMTSN,U,3)]"":$E($P(GMTSN,U,3),1,10),$P(GMTSN,U,8)]"":$E($P(GMTSN,U,8),1,10),1:""),GMTSITE=GMTSINS
. . I $G(GMPXHLOC)'="N" S GMTSLOC=$E($P(GMTSN,U,6),1,30)
. . I '$L(GMTSLOC) S GMTSLOC=$P(GMTSN,U,9)
. . S GMTSELIG=$E($P(GMTSN,U,12),1,17)
. . S:GMTSITE=""&('GMTSHIS) GMTSLOC=""
. . I GMTSHIS D
. . . S:GMTSLOC'=""&(GMTSITE'="") GMTSLOC=GMTSLOC_" (Historical Event)"
. . . S:GMTSLOC=""&(GMTSITE'="") GMTSITE=GMTSITE_" (Historical Event)"
. . . S:GMTSLOC'=""&(GMTSITE="") GMTSITE=GMTSLOC_" (Historical Event)",GMTSLOC=""
. . . S:GMTSLOC=""&(GMTSITE="") GMTSITE="Historical Event"
. . D CKP^GMTSUP Q:$D(GMTSQIT) D DSPVIS,DSPPROV Q:$D(GMTSQIT)
. . D DSPPOV Q:$D(GMTSQIT) D DSPCPT W !
K ^TMP("PXHSV",$J)
Q
;
DSPPOV ; Display Purpose of visit
Q:$O(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"D",""))=""
Q:$G(GMPXICDF)="N"&($G(GMPXNARR)="N")
N GMTSN,GMTSMOD,GMTSICD,GMTSNARR,GMTSPDN,GMTS,GMTSQTY,GMTSPRI,COMMENT,GMTSICDT
D CKP^GMTSUP Q:$D(GMTSQIT) D DSPVIS W ?3,"Diagnosis:"
S GMCKP=0,GMTSPDN="",GMTSQTY=""
F S GMTSPDN=$O(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"D",GMTSPDN)) Q:GMTSPDN'>0 D Q:$D(GMTSQIT)
. S GMTSICDT=$P(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,0),U)
. S GMTSN=$G(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"D",GMTSPDN))
. S GMTSMOD=$P(GMTSN,U,2)
. S GMTSICD=$P(GMTSN,U) D GETICDDX^GMTSPXU1(.GMTSICD,$G(GMPXICDF),GMTSMOD,GMTSICDT,"DIAG")
. S GMTSNARR=""
. S:$G(GMPXNARR)'="N" GMTSNARR=$G(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"D",GMTSPDN,"N"))
. I $P(GMTSICD,"-",2,10)=$G(GMTSNARR) S GMTSNARR=""
. S GMTSPRI="" I $P(GMTSN,U,5)]"",$E($P(GMTSN,U,5),1)="P" S GMTSPRI=" (P)"
. S GMTSICD=$P(GMTSICD,"-",2,10)_" ("_$$GETICDCD^GMTSPXU1(GMTSICDT,"DIAG")_"-CM "_$P(GMTSICD,"-",1)_")"
. D TXTFMT^GMTSPXU1(GMTSICD,$G(GMTSNARR),GMTSICL,GMTAB,DIWL,GMTSQTY,GMTSPRI)
. I '$D(^UTILITY($J,"W")) Q
. S GMTSX=0
. F S GMTSX=$O(^UTILITY($J,"W",DIWL,GMTSX)) Q:GMTSX'>0!$D(GMTSQIT) D
. . I GMCKP>0 D CKP^GMTSUP Q:$D(GMTSQIT) D DSPVIS
. . S GMCKP=1
. . W ?GMTSICL+$S(GMTSX>1:GMTAB,1:0),$G(^UTILITY($J,"W",DIWL,GMTSX,0)),!
. S COMMENT="",COMMENT=$P($G(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"D",GMTSPDN,"COM")),U)
. I COMMENT]"" S GMICL=20,GMTAB=2 D FORMAT I $D(^UTILITY($J,"W")) D
. . F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE Q:$D(GMTSQIT)
Q
DSPCPT ; Display Procedures performed during the visit
Q:$O(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"C",""))=""
N GMTSNARR,GMTSPDN,GMTSN,GMTSICD,GMTSNARR,GMTSCPT,GMTSQTY,GMTSPRIM,GMTSPRI,GMTSFLG,GMTSICDT
D CKP^GMTSUP Q:$D(GMTSQIT) D DSPVIS W ?3,"Procedure:"
S GMCKP=0,GMTSPDN="",GMTSPRI=""
F S GMTSPDN=$O(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"C",GMTSPDN)) Q:GMTSPDN'>0 D Q:$D(GMTSQIT)
. S GMTSICDT=$P(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,0),U)
. S GMTSN=$G(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"C",GMTSPDN))
. S GMTSNARR=$P(GMTSN,U,2),GMTSQTY=$P(GMTSN,U,3),GMTSPRIM=$P(GMTSN,U,4)
. S GMTSCPT=$$GETCPT^GMTSPXU1($P(GMTSN,U)) I $P(GMTSCPT,"-",2,10)=GMTSNARR S GMTSNARR=""
. S GMTSPRI="" S:$G(GMTSQTY)]"" GMTSQTY=" ("_GMTSQTY_")" S:$G(GMTSPRIM)="Y" GMTSPRI="(P)"
. S GMTSFLG=1
. D TXTFMT^GMTSPXU1(GMTSCPT,GMTSNARR,GMTSICL,GMTAB,DIWL,GMTSQTY,GMTSPRI)
. Q:'$D(^UTILITY($J,"W")) D DCPT
Q
DCPT ; Display CPT Comments
N GMTSLN,GMTSMOK,GMTSX S (GMTSMOK,GMTSX)=0
F S GMTSX=$O(^UTILITY($J,"W",DIWL,GMTSX)) Q:GMTSX'>0 D Q:$D(GMTSQIT)
. I GMCKP>0 D CKP^GMTSUP Q:$D(GMTSQIT) D DSPVIS Q:$D(GMTSQIT)
. S (GMTSMOK,GMCKP)=1 W ?GMTSICL+$S(GMTSX>1:GMTAB,1:0)
. W $G(^UTILITY($J,"W",DIWL,GMTSX,0))
. D CKP^GMTSUP Q:$D(GMTSQIT) W !
Q:DTYPE="DP"
S COMMENT=$P($G(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"C",GMTSPDN,"COM")),U)
I COMMENT]"" S GMICL=20,GMTAB=2 D FORMAT I $D(^UTILITY($J,"W")) D
. F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D Q:$D(GMTSQIT)
. . I GMTSFLG=1 W !,?10,"Comments:" S GMTSFLG=0
. . D LINE
S:+($G(GMTSCPTM))=0 GMTSMOK=0 D:GMTSMOK DMOD
Q
DMOD ; Display CPT Modifier Comments
N GMTSM S GMTSM=""
W !
F S GMTSM=$O(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"C",GMTSPDN,GMTSM)) Q:GMTSM="" D Q:$D(GMTSQIT)
. I GMTSM="COM" Q
. N COMMENT S COMMENT=$$FCM(GMTSM) Q:'$L(COMMENT)
. S GMICL=26,GMTAB=2 D FORMAT I $D(^UTILITY($J,"W")) D
. . F GMTSLN=1:1:^UTILITY($J,"W",DIWL) D LINE2 Q:$D(GMTSQIT)
Q
DSPPROV ; Display Providers for visit
Q:$O(^TMP("PXHSV",$J,GMTSIVD,GMTSVDF,"P",""))=""
N GMCNT,GMPROV
D ORDERPRO^GMTSPXU1(.GMPROV,20)
D CKP^GMTSUP Q:$D(GMTSQIT) D DSPVIS W ?3," Provider:"
S GMCNT=0
F S GMCNT=$O(GMPROV(GMCNT)) Q:GMCNT'>0 D Q:GMCNT'>0!$D(GMTSQIT)
. I GMCNT>1 D CKP^GMTSUP Q:$D(GMTSQIT) D DSPVIS
. W ?GMTSICL,GMPROV(GMCNT) S GMCNT=$O(GMPROV(GMCNT)) Q:GMCNT'>0
. W ?37,GMPROV(GMCNT) S GMCNT=$O(GMPROV(GMCNT)) Q:GMCNT'>0
. W ?60,GMPROV(GMCNT)
. D CKP^GMTSUP Q:$D(GMTSQIT) W:$O(GMPROV(GMCNT)) !
D CKP^GMTSUP Q:$D(GMTSQIT) W !
Q
DSPVIS ; Display outpatient visit data
Q:GMTSNPG'>0&(GMTSDTU>0) D:GMTSNPG HDR I GMTSNPG!(+GMTSDTU'>0) D
. W GMTSDAT,?14,GMTSITE,?29,GMTSLOC,?61,GMTSELIG
. D CKP^GMTSUP Q:$D(GMTSQIT) W !
. S GMTSDTU=1
Q
HDR ; Display header
W ?3,"Date",?14,"Facility",?29,"Hospital Location",?61,"Encounter Elig.",!!
Q
FORMAT ; Formats Diagnosis/Procedure line of text
N DIWR,DIWF,X S DIWL=3,DIWR=80-(GMICL+GMTAB) K ^UTILITY($J,"W") S X=COMMENT D ^DIWP
Q
FCM(X) ; Format CPT Modifier comment
N Y,%,%H,GMTSIEN,GMTSC,GMTSS,GMTST S GMTSIEN=$G(X) Q:GMTSIEN="" ""
S:'$D(DT)!(+($G(DT))=0) DT=$$DT^XLFDT
S X=$$MOD^ICPTMOD(GMTSIEN,"E",) Q:'$D(X)
S GMTSC=$P(X,"^",2),GMTSS=$P(X,"^",3)
S GMTST=$$EN2^GMTSUMX(GMTSS) S Y=""
S:$L(GMTST)&($L(GMTSC)) Y=GMTSC_"-"_GMTST
S:'$L(GMTST)&($L(GMTSS))&($L(GMTSC)) Y=GMTSC_"-"_GMTSS
S:'$L(GMTST)&('$L(GMTSS))&($L(GMTSC)) Y=GMTSC
S:Y["-" Y="Modifier "_Y S X=Y
Q X
LINE ; Writes formatted lines
D CKP^GMTSUP Q:$D(GMTSQIT) W ?20,^UTILITY($J,"W",DIWL,GMTSLN,0),! Q
LINE2 ; Writes indented formatted lines
D CKP^GMTSUP Q:$D(GMTSQIT) N GMTST S GMTST=20 S:+($G(GMTSLN))>1 GMTST=31 W ?GMTST,^UTILITY($J,"W",DIWL,GMTSLN,0),! Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSPXOP 8006 printed Dec 13, 2024@01:59:51 Page 2
GMTSPXOP ; SLC/SBW,KER - PCE Outpatient Encounter comp ;07/19/13 11:48
+1 ;;2.7;Health Summary;**8,10,28,37,47,49,76,101**;Oct 20, 1995;Build 12
+2 ;
+3 ; External References
+4 ; DBIA 1238 VISIT^PXRHS01
+5 ; DBIA 1996 $$MOD^ICPTMOD
+6 ; DBIA 10103 $$DT^XLFDT
+7 ; DBIA 10011 ^DIWP
+8 ;
PURPOSE ; Encounters with ICD9 and providers
+1 NEW DTYPE
SET DTYPE="DP"
DO MAIN
QUIT
OUTPT ; Encounters with ICD9, CPT, and providers
+1 NEW DTYPE
SET DTYPE="CDP"
DO MAIN
QUIT
MAIN ; Entry for Purpose of Visit and Outpatient Encounters
+1 NEW GMTSIVD,GMTSDAT,GMTSDTU,GMTSOVT,GMTSLOC,DIWL,GMTAB,GMTSN,GMCKP,GMTSX
+2 NEW GMTSITE,GMTSINS,GMTSEVT,GMTSHIS,GMTSICL,GMTSLOC,GMTSELIG,X,GMTSVDF
+3 NEW GMTSCPTM,GMICL
+4 ;
+5 ; GMTSCPTM Component uses CPT Modifiers 1 yes 0 no
+6 SET GMTSCPTM=+($$CPT^GMTSU(+($GET(GMTSEGN))))
if $GET(GMPXCMOD)="N"
SET GMTSCPTM=0
+7 ; GMTSICL # of blank left columns for support data of a visit
+8 SET GMTSICL=14
+9 ; DIWL Used in TXTFMT call & to print returned data
+10 SET DIWL=0
+11 ; GMTAB Used to offset data from TXTFMT call after 1st line
+12 SET GMTAB=2
+13 ; GMTSOVT This is the set of Service Categories for AICTSORE
+14 ;
+15 ; A Ambulatory
+16 ; I Inpatient
+17 ; C Chart Review
+18 ; T Telecommunications
+19 ; S Day Surgery
+20 ; O Observation
+21 ; R Nursing Home Encounters
+22 ; E Event (Historical)
+23 ;
+24 ; Note: Hospitalization and Ancillary
+25 ; encounters are not included
+26 SET GMTSOVT="AICTSORE"
+27 ;
+28 DO VISIT^PXRHS01(DFN,GMTSEND,GMTSBEG,GMTSNDM,GMTSOVT,DTYPE,1)
+29 if '$DATA(^TMP("PXHSV",$JOB))
QUIT
+30 SET GMTSIVD=0
+31 FOR
SET GMTSIVD=$ORDER(^TMP("PXHSV",$JOB,GMTSIVD))
if GMTSIVD']""
QUIT
Begin DoDot:1
+32 SET GMTSVDF=0
+33 FOR
SET GMTSVDF=$ORDER(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF))
if GMTSVDF'>0
QUIT
Begin DoDot:2
+34 SET GMTSN=$GET(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,0))
+35 SET GMTSEVT=$PIECE(GMTSN,U,4)
SET GMTSHIS=$SELECT(GMTSEVT["HISTORICAL":1,1:0)
+36 SET X=$PIECE(GMTSN,U,1)
DO REGDT4^GMTSU
SET GMTSDAT=X
+37 SET GMTSDTU=0
SET (GMTSITE,GMTSLOC)=""
+38 SET GMTSINS=$SELECT($PIECE(GMTSN,U,3)]"":$EXTRACT($PIECE(GMTSN,U,3),1,10),$PIECE(GMTSN,U,8)]"":$EXTRACT($PIECE(GMTSN,U,8),1,10),1:"")
SET GMTSITE=GMTSINS
+39 IF $GET(GMPXHLOC)'="N"
SET GMTSLOC=$EXTRACT($PIECE(GMTSN,U,6),1,30)
+40 IF '$LENGTH(GMTSLOC)
SET GMTSLOC=$PIECE(GMTSN,U,9)
+41 SET GMTSELIG=$EXTRACT($PIECE(GMTSN,U,12),1,17)
+42 if GMTSITE=""&('GMTSHIS)
SET GMTSLOC=""
+43 IF GMTSHIS
Begin DoDot:3
+44 if GMTSLOC'=""&(GMTSITE'="")
SET GMTSLOC=GMTSLOC_" (Historical Event)"
+45 if GMTSLOC=""&(GMTSITE'="")
SET GMTSITE=GMTSITE_" (Historical Event)"
+46 if GMTSLOC'=""&(GMTSITE="")
SET GMTSITE=GMTSLOC_" (Historical Event)"
SET GMTSLOC=""
+47 if GMTSLOC=""&(GMTSITE="")
SET GMTSITE="Historical Event"
End DoDot:3
+48 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
DO DSPVIS
DO DSPPROV
if $DATA(GMTSQIT)
QUIT
+49 DO DSPPOV
if $DATA(GMTSQIT)
QUIT
DO DSPCPT
WRITE !
End DoDot:2
if $DATA(GMTSQIT)
QUIT
End DoDot:1
if $DATA(GMTSQIT)
QUIT
+50 KILL ^TMP("PXHSV",$JOB)
+51 QUIT
+52 ;
DSPPOV ; Display Purpose of visit
+1 if $ORDER(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"D",""))=""
QUIT
+2 if $GET(GMPXICDF)="N"&($GET(GMPXNARR)="N")
QUIT
+3 NEW GMTSN,GMTSMOD,GMTSICD,GMTSNARR,GMTSPDN,GMTS,GMTSQTY,GMTSPRI,COMMENT,GMTSICDT
+4 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
DO DSPVIS
WRITE ?3,"Diagnosis:"
+5 SET GMCKP=0
SET GMTSPDN=""
SET GMTSQTY=""
+6 FOR
SET GMTSPDN=$ORDER(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"D",GMTSPDN))
if GMTSPDN'>0
QUIT
Begin DoDot:1
+7 SET GMTSICDT=$PIECE(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,0),U)
+8 SET GMTSN=$GET(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"D",GMTSPDN))
+9 SET GMTSMOD=$PIECE(GMTSN,U,2)
+10 SET GMTSICD=$PIECE(GMTSN,U)
DO GETICDDX^GMTSPXU1(.GMTSICD,$GET(GMPXICDF),GMTSMOD,GMTSICDT,"DIAG")
+11 SET GMTSNARR=""
+12 if $GET(GMPXNARR)'="N"
SET GMTSNARR=$GET(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"D",GMTSPDN,"N"))
+13 IF $PIECE(GMTSICD,"-",2,10)=$GET(GMTSNARR)
SET GMTSNARR=""
+14 SET GMTSPRI=""
IF $PIECE(GMTSN,U,5)]""
IF $EXTRACT($PIECE(GMTSN,U,5),1)="P"
SET GMTSPRI=" (P)"
+15 SET GMTSICD=$PIECE(GMTSICD,"-",2,10)_" ("_$$GETICDCD^GMTSPXU1(GMTSICDT,"DIAG")_"-CM "_$PIECE(GMTSICD,"-",1)_")"
+16 DO TXTFMT^GMTSPXU1(GMTSICD,$GET(GMTSNARR),GMTSICL,GMTAB,DIWL,GMTSQTY,GMTSPRI)
+17 IF '$DATA(^UTILITY($JOB,"W"))
QUIT
+18 SET GMTSX=0
+19 FOR
SET GMTSX=$ORDER(^UTILITY($JOB,"W",DIWL,GMTSX))
if GMTSX'>0!$DATA(GMTSQIT)
QUIT
Begin DoDot:2
+20 IF GMCKP>0
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
DO DSPVIS
+21 SET GMCKP=1
+22 WRITE ?GMTSICL+$SELECT(GMTSX>1:GMTAB,1:0),$GET(^UTILITY($JOB,"W",DIWL,GMTSX,0)),!
End DoDot:2
+23 SET COMMENT=""
SET COMMENT=$PIECE($GET(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"D",GMTSPDN,"COM")),U)
+24 IF COMMENT]""
SET GMICL=20
SET GMTAB=2
DO FORMAT
IF $DATA(^UTILITY($JOB,"W"))
Begin DoDot:2
+25 FOR GMTSLN=1:1:^UTILITY($JOB,"W",DIWL)
DO LINE
if $DATA(GMTSQIT)
QUIT
End DoDot:2
End DoDot:1
if $DATA(GMTSQIT)
QUIT
+26 QUIT
DSPCPT ; Display Procedures performed during the visit
+1 if $ORDER(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"C",""))=""
QUIT
+2 NEW GMTSNARR,GMTSPDN,GMTSN,GMTSICD,GMTSNARR,GMTSCPT,GMTSQTY,GMTSPRIM,GMTSPRI,GMTSFLG,GMTSICDT
+3 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
DO DSPVIS
WRITE ?3,"Procedure:"
+4 SET GMCKP=0
SET GMTSPDN=""
SET GMTSPRI=""
+5 FOR
SET GMTSPDN=$ORDER(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"C",GMTSPDN))
if GMTSPDN'>0
QUIT
Begin DoDot:1
+6 SET GMTSICDT=$PIECE(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,0),U)
+7 SET GMTSN=$GET(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"C",GMTSPDN))
+8 SET GMTSNARR=$PIECE(GMTSN,U,2)
SET GMTSQTY=$PIECE(GMTSN,U,3)
SET GMTSPRIM=$PIECE(GMTSN,U,4)
+9 SET GMTSCPT=$$GETCPT^GMTSPXU1($PIECE(GMTSN,U))
IF $PIECE(GMTSCPT,"-",2,10)=GMTSNARR
SET GMTSNARR=""
+10 SET GMTSPRI=""
if $GET(GMTSQTY)]""
SET GMTSQTY=" ("_GMTSQTY_")"
if $GET(GMTSPRIM)="Y"
SET GMTSPRI="(P)"
+11 SET GMTSFLG=1
+12 DO TXTFMT^GMTSPXU1(GMTSCPT,GMTSNARR,GMTSICL,GMTAB,DIWL,GMTSQTY,GMTSPRI)
+13 if '$DATA(^UTILITY($JOB,"W"))
QUIT
DO DCPT
End DoDot:1
if $DATA(GMTSQIT)
QUIT
+14 QUIT
DCPT ; Display CPT Comments
+1 NEW GMTSLN,GMTSMOK,GMTSX
SET (GMTSMOK,GMTSX)=0
+2 FOR
SET GMTSX=$ORDER(^UTILITY($JOB,"W",DIWL,GMTSX))
if GMTSX'>0
QUIT
Begin DoDot:1
+3 IF GMCKP>0
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
DO DSPVIS
if $DATA(GMTSQIT)
QUIT
+4 SET (GMTSMOK,GMCKP)=1
WRITE ?GMTSICL+$SELECT(GMTSX>1:GMTAB,1:0)
+5 WRITE $GET(^UTILITY($JOB,"W",DIWL,GMTSX,0))
+6 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE !
End DoDot:1
if $DATA(GMTSQIT)
QUIT
+7 if DTYPE="DP"
QUIT
+8 SET COMMENT=$PIECE($GET(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"C",GMTSPDN,"COM")),U)
+9 IF COMMENT]""
SET GMICL=20
SET GMTAB=2
DO FORMAT
IF $DATA(^UTILITY($JOB,"W"))
Begin DoDot:1
+10 FOR GMTSLN=1:1:^UTILITY($JOB,"W",DIWL)
Begin DoDot:2
+11 IF GMTSFLG=1
WRITE !,?10,"Comments:"
SET GMTSFLG=0
+12 DO LINE
End DoDot:2
if $DATA(GMTSQIT)
QUIT
End DoDot:1
+13 if +($GET(GMTSCPTM))=0
SET GMTSMOK=0
if GMTSMOK
DO DMOD
+14 QUIT
DMOD ; Display CPT Modifier Comments
+1 NEW GMTSM
SET GMTSM=""
+2 WRITE !
+3 FOR
SET GMTSM=$ORDER(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"C",GMTSPDN,GMTSM))
if GMTSM=""
QUIT
Begin DoDot:1
+4 IF GMTSM="COM"
QUIT
+5 NEW COMMENT
SET COMMENT=$$FCM(GMTSM)
if '$LENGTH(COMMENT)
QUIT
+6 SET GMICL=26
SET GMTAB=2
DO FORMAT
IF $DATA(^UTILITY($JOB,"W"))
Begin DoDot:2
+7 FOR GMTSLN=1:1:^UTILITY($JOB,"W",DIWL)
DO LINE2
if $DATA(GMTSQIT)
QUIT
End DoDot:2
End DoDot:1
if $DATA(GMTSQIT)
QUIT
+8 QUIT
DSPPROV ; Display Providers for visit
+1 if $ORDER(^TMP("PXHSV",$JOB,GMTSIVD,GMTSVDF,"P",""))=""
QUIT
+2 NEW GMCNT,GMPROV
+3 DO ORDERPRO^GMTSPXU1(.GMPROV,20)
+4 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
DO DSPVIS
WRITE ?3," Provider:"
+5 SET GMCNT=0
+6 FOR
SET GMCNT=$ORDER(GMPROV(GMCNT))
if GMCNT'>0
QUIT
Begin DoDot:1
+7 IF GMCNT>1
DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
DO DSPVIS
+8 WRITE ?GMTSICL,GMPROV(GMCNT)
SET GMCNT=$ORDER(GMPROV(GMCNT))
if GMCNT'>0
QUIT
+9 WRITE ?37,GMPROV(GMCNT)
SET GMCNT=$ORDER(GMPROV(GMCNT))
if GMCNT'>0
QUIT
+10 WRITE ?60,GMPROV(GMCNT)
+11 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
if $ORDER(GMPROV(GMCNT))
WRITE !
End DoDot:1
if GMCNT'>0!$DATA(GMTSQIT)
QUIT
+12 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE !
+13 QUIT
DSPVIS ; Display outpatient visit data
+1 if GMTSNPG'>0&(GMTSDTU>0)
QUIT
if GMTSNPG
DO HDR
IF GMTSNPG!(+GMTSDTU'>0)
Begin DoDot:1
+2 WRITE GMTSDAT,?14,GMTSITE,?29,GMTSLOC,?61,GMTSELIG
+3 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE !
+4 SET GMTSDTU=1
End DoDot:1
+5 QUIT
HDR ; Display header
+1 WRITE ?3,"Date",?14,"Facility",?29,"Hospital Location",?61,"Encounter Elig.",!!
+2 QUIT
FORMAT ; Formats Diagnosis/Procedure line of text
+1 NEW DIWR,DIWF,X
SET DIWL=3
SET DIWR=80-(GMICL+GMTAB)
KILL ^UTILITY($JOB,"W")
SET X=COMMENT
DO ^DIWP
+2 QUIT
FCM(X) ; Format CPT Modifier comment
+1 NEW Y,%,%H,GMTSIEN,GMTSC,GMTSS,GMTST
SET GMTSIEN=$GET(X)
if GMTSIEN=""
QUIT ""
+2 if '$DATA(DT)!(+($GET(DT))=0)
SET DT=$$DT^XLFDT
+3 SET X=$$MOD^ICPTMOD(GMTSIEN,"E",)
if '$DATA(X)
QUIT
+4 SET GMTSC=$PIECE(X,"^",2)
SET GMTSS=$PIECE(X,"^",3)
+5 SET GMTST=$$EN2^GMTSUMX(GMTSS)
SET Y=""
+6 if $LENGTH(GMTST)&($LENGTH(GMTSC))
SET Y=GMTSC_"-"_GMTST
+7 if '$LENGTH(GMTST)&($LENGTH(GMTSS))&($LENGTH(GMTSC))
SET Y=GMTSC_"-"_GMTSS
+8 if '$LENGTH(GMTST)&('$LENGTH(GMTSS))&($LENGTH(GMTSC))
SET Y=GMTSC
+9 if Y["-"
SET Y="Modifier "_Y
SET X=Y
+10 QUIT X
LINE ; Writes formatted lines
+1 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
WRITE ?20,^UTILITY($JOB,"W",DIWL,GMTSLN,0),!
QUIT
LINE2 ; Writes indented formatted lines
+1 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
NEW GMTST
SET GMTST=20
if +($GET(GMTSLN))>1
SET GMTST=31
WRITE ?GMTST,^UTILITY($JOB,"W",DIWL,GMTSLN,0),!
QUIT
