BIPCC.m

BIPCC ;IHS/CMI/MWR - DISPLAY PCC LINK INFO; MAY 10, 2010

 ;;8.5;IMMUNIZATION;;SEP 01,2011

 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 ;;  DISPLAY PCC LINK DIAGNOSTIC INFO.

 ;

 ;---> *** THIS IS ONLY CALLED IF SET BITEST=1 AT VISIT+64^BIVISIT

 ;---> *** AND VFILE+40.

 ;---> *** PROGRAMMER USE ONLY.

 ;

 ;

 ;----------

DISPLAY1 ;EP

 ;---> DISPLAY VISIT IEN.

 I $D(APCDALVR("APCDVSIT")) D

 .W !,"APCDVSIT DEFINED: ",APCDALVR("APCDVSIT")

 I $D(APCDALVR("APCDVSIT","NEW")) D

 .W !,"NEW VISIT: ",APCDALVR("APCDVSIT","NEW")

 ;---> SHOW FLAG IF VISIT WAS NOT CREATED.

 I $D(APCDALVR("APCDAFLG")) D

 .W !,"APCDAFLG DEFINED, FAILED: ",APCDALVR("APCDAFLG")

 D DIRZ^BIUTL3()

 Q

 ;

 ;

 ;----------

DISPLAY2 ;EP

 ;---> DISPLAY V FILE IEN.

 I $D(APCDALVR("APCDADFN")) D

 .W !,"APCDADFN DEFINED: ",APCDALVR("APCDADFN")

 ;---> SHOW FLAG IF VISIT WAS NOT CREATED.

 I $D(APCDALVR("APCDAFLG")) D

 .W !,"APCDAFLG DEFINED, FAILED: ",APCDALVR("APCDAFLG")

 D DIRZ^BIUTL3()

 Q

 ;

 ;

 ;----------

DISPLAY3 ;EP

 ;---> DISPLAY VISIT AND V FILE GLOBAL NODES AND FILE#70 IENS.

 W !!,"VISIT FILE: "

 S N=APCDALVR("APCDVSIT")-3 S:N<0 N=0

 F  S N=$O(^AUPNVSIT(N)) Q:'N  D

 .W !,N,": ",^AUPNVSIT(N,0)

 ;

 W !!,"V FILE: "

 S BIVGBL=^DIC(BIVFIL,0,"GL")

 S N=APCDALVR("APCDADFN")-3,M=N+10 S:N<0 N=0

 F  S N=$O(@(BIVGBL_"N)")) Q:'N  Q:N>M  D

 .W !,N,": ",@(BIVGBL_"N,0)")

 D DIRZ^BIUTL3()

 Q

BIPCC     ;IHS/CMI/MWR - DISPLAY PCC LINK INFO; MAY 10, 2010

 +1       ;;8.5;IMMUNIZATION;;SEP 01,2011

 +2       ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 +3       ;;  DISPLAY PCC LINK DIAGNOSTIC INFO.

 +4       ;

 +5       ;---> *** THIS IS ONLY CALLED IF SET BITEST=1 AT VISIT+64^BIVISIT

 +6       ;---> *** AND VFILE+40.

 +7       ;---> *** PROGRAMMER USE ONLY.

 +8       ;

 +9       ;

 +10      ;----------

DISPLAY1  ;EP

 +1       ;---> DISPLAY VISIT IEN.

 +2        IF $DATA(APCDALVR("APCDVSIT"))

               Begin DoDot:1

 +3                WRITE !,"APCDVSIT DEFINED: ",APCDALVR("APCDVSIT")

               End DoDot:1

 +4        IF $DATA(APCDALVR("APCDVSIT","NEW"))

               Begin DoDot:1

 +5                WRITE !,"NEW VISIT: ",APCDALVR("APCDVSIT","NEW")

               End DoDot:1

 +6       ;---> SHOW FLAG IF VISIT WAS NOT CREATED.

 +7        IF $DATA(APCDALVR("APCDAFLG"))

               Begin DoDot:1

 +8                WRITE !,"APCDAFLG DEFINED, FAILED: ",APCDALVR("APCDAFLG")

               End DoDot:1

 +9        DO DIRZ^BIUTL3()

 +10       QUIT 

 +11      ;

 +12      ;

 +13      ;----------

DISPLAY2  ;EP

 +1       ;---> DISPLAY V FILE IEN.

 +2        IF $DATA(APCDALVR("APCDADFN"))

               Begin DoDot:1

 +3                WRITE !,"APCDADFN DEFINED: ",APCDALVR("APCDADFN")

               End DoDot:1

 +4       ;---> SHOW FLAG IF VISIT WAS NOT CREATED.

 +5        IF $DATA(APCDALVR("APCDAFLG"))

               Begin DoDot:1

 +6                WRITE !,"APCDAFLG DEFINED, FAILED: ",APCDALVR("APCDAFLG")

               End DoDot:1

 +7        DO DIRZ^BIUTL3()

 +8        QUIT 

 +9       ;

 +10      ;

 +11      ;----------

DISPLAY3  ;EP

 +1       ;---> DISPLAY VISIT AND V FILE GLOBAL NODES AND FILE#70 IENS.

 +2        WRITE !!,"VISIT FILE: "

 +3        SET N=APCDALVR("APCDVSIT")-3

           IF N<0

               SET N=0

 +4        FOR 

               SET N=$ORDER(^AUPNVSIT(N))

               IF 'N

                   QUIT 

               Begin DoDot:1

 +5                WRITE !,N,": ",^AUPNVSIT(N,0)

               End DoDot:1

 +6       ;

 +7        WRITE !!,"V FILE: "

 +8        SET BIVGBL=^DIC(BIVFIL,0,"GL")

 +9        SET N=APCDALVR("APCDADFN")-3

           SET M=N+10

           IF N<0

               SET N=0

 +10       FOR 

               SET N=$ORDER(@(BIVGBL_"N)"))

               IF 'N

                   QUIT 

               IF N>M

                   QUIT 

               Begin DoDot:1

 +11               WRITE !,N,": ",@(BIVGBL_"N,0)")

               End DoDot:1

 +12       DO DIRZ^BIUTL3()

 +13       QUIT