PXCEVIS.m

PXCEVIS ;BHM/ADM - Used to edit and display VIS ;06/29/2017

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**210,211**;Aug 12, 1996;Build 454

 ;;

 Q

EVIS ; add/edit VIS OFFERED/GIVEN TO PATIENT

 Q:'(+$G(PXCEFIEN)!+$G(PXVNEWDA))

 N DA,DIE,DR

 S DA=$S(+$G(PXCEFIEN):PXCEFIEN,1:PXVNEWDA)

 S DIE="^AUPNVIMM(",DR="2" D ^DIE

 Q

 ;

DISPVIS(PXCEINT,PXCEDT) ; display VIS name with EDITION DATE

 N PXCEDILF,PXCEEXT,PXV2,PXV3,PXVED,PXVDT

 S PXCEEXT=$$EXTERNAL^DILFD(9000010.112,.01,"",PXCEINT,"PXCEDILF")

 I PXCEINT D

 .S PXV2=$P($G(^AUTTIVIS(PXCEINT,0)),"^",2),PXVED=$$EXTERNAL^DILFD(920,.02,"",PXV2,"PXCEDILF")

 .S PXV3=$P($G(^AUPNVIMM(IEN,2,CNT,0)),"^",2),PXVDT=$$EXTERNAL^DILFD(9000010.112,.02,"",PXV3,"PXCEDILF")

 I $L(PXCEEXT) S PXCEEXT=PXCEEXT_" (Ed. "_PXVED_")"

 I $G(PXV3) S PXCEEXT=PXCEEXT_"  Offered/Given: "_PXVDT

 Q $S('$D(DIERR):PXCEEXT,1:PXCEINT)

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXCEVIS   863     printed  Apr 09, 2024@21:34:33                                                                                                                                                                                                      Page 2

PXCEVIS   ;BHM/ADM - Used to edit and display VIS ;06/29/2017

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**210,211**;Aug 12, 1996;Build 454

 +2       ;;

 +3        QUIT 

EVIS      ; add/edit VIS OFFERED/GIVEN TO PATIENT

 +1        if '(+$GET(PXCEFIEN)!+$GET(PXVNEWDA))

               QUIT 

 +2        NEW DA,DIE,DR

 +3        SET DA=$SELECT(+$GET(PXCEFIEN):PXCEFIEN,1:PXVNEWDA)

 +4        SET DIE="^AUPNVIMM("

           SET DR="2"

           DO ^DIE

 +5        QUIT 

 +6       ;

DISPVIS(PXCEINT,PXCEDT) ; display VIS name with EDITION DATE

 +1        NEW PXCEDILF,PXCEEXT,PXV2,PXV3,PXVED,PXVDT

 +2        SET PXCEEXT=$$EXTERNAL^DILFD(9000010.112,.01,"",PXCEINT,"PXCEDILF")

 +3        IF PXCEINT

               Begin DoDot:1

 +4                SET PXV2=$PIECE($GET(^AUTTIVIS(PXCEINT,0)),"^",2)

                   SET PXVED=$$EXTERNAL^DILFD(920,.02,"",PXV2,"PXCEDILF")

 +5                SET PXV3=$PIECE($GET(^AUPNVIMM(IEN,2,CNT,0)),"^",2)

                   SET PXVDT=$$EXTERNAL^DILFD(9000010.112,.02,"",PXV3,"PXCEDILF")

               End DoDot:1

 +6        IF $LENGTH(PXCEEXT)

               SET PXCEEXT=PXCEEXT_" (Ed. "_PXVED_")"

 +7        IF $GET(PXV3)

               SET PXCEEXT=PXCEEXT_"  Offered/Given: "_PXVDT

 +8        QUIT $SELECT('$DATA(DIERR):PXCEEXT,1:PXCEINT)

 +9       ;