Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (14 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
17 edited
1 copied

Legend:

Unmodified
Added
Removed

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRACMR4.m

    r628 r636  
    1 GMRACMR4 ;HIRMFO/WAA-PATIENT NOT ASKED ABOUT ALLERGIES ;10/1/92
    2  ;;4.0;Adverse Reaction Tracking;**33**;Mar 29, 1996;Build 5
     1GMRACMR4 ;HIRMFO/WAA-PATIENT NOT ASKED ABOUT ALLERGIES ; 10/1/92
     2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
    33EN1 ;This is the main entry point for this program
    44 D EN1^GMRACMR G:GMRAOUT EXIT
    5 DEV ; *** Select output device, force queuing
     5DEV ; *** Select output device, force queueing
    66 S GMRAZIS=""
    77 S:GMRASEL'="1," GMRAZIS="Q"
    … …  
    3131 .S GMRACNT=0
    3232 .S GMRADATE=0 F  S GMRADATE=$O(^TMP($J,"GMRAWC",GMRAX,GMRADATE))  Q:GMRADATE=""  S (GMRAFLG,GMRADFN)=0 F  S GMRADFN=$O(^TMP($J,"GMRAWC",GMRAX,GMRADATE,GMRADFN)) Q:GMRADFN<1  D  Q:GMRAOUT
    33  ..Q:'$$PRDTST^GMRAUTL1(GMRADFN)  ;GMRA*4*33 Exclude test patient from report if production or legacy environment.
    3433 ..S GMRAI=0 F  S GMRAI=$O(^GMR(120.8,"B",GMRADFN,GMRAI)) Q:GMRAI<1  D  Q:GMRAOUT
    3534 ...Q:'$D(^GMR(120.8,GMRAI,0))  Q:$P($G(^GMR(120.86,GMRADFN,0)),U,2)'=1

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRADSP5.m

    r628 r636  
    1 GMRADSP5 ;HIRMFO/YMP,RM,WAA-LISTING OF ALLERGIES TO SIGNED OFF ALLERGIES ;8/16/92
    2  ;;4.0;Adverse Reaction Tracking;**33**;Mar 29, 1996;Build 5
     1GMRADSP5 ;HIRMFO/YMP,RM,WAA-LISTING OF ALLERGIES TO SIGNED OFF ALLERGIES ; 8/16/92
     2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
    33EN1 ; Entry to PATIENT ALLERGIES NOT SIGNED OFF option
    44 S GMRAOUT=0
    … …  
    1414EN2A S GMRATEMP=$G(^GMR(120.8,GMRAREC,0)) Q:GMRATEMP=""
    1515 I '$D(^XUSEC("GMRA-ALLERGY VERIFY",DUZ)) Q:$P(GMRATEMP,U,5)'=DUZ
    16  Q:'$$PRDTST^GMRAUTL1($P(GMRATEMP,U))  ;GMRA*4*33 Exclude test patient if production or legacy environment.
    1716 S DFN=$P(GMRATEMP,U) D PID^VADPT6 S GMRASSN=VA("BID") D KVA^VADPT
    1817 I $P(GMRATEMP,U,5)'="" S ^TMP($J,"GMRADSP",$P(^VA(200,$P(GMRATEMP,U,5),0),U),$P(GMRATEMP,U,5),$P(GMRATEMP,U,4),$P(GMRATEMP,U),GMRAREC)=$P(GMRATEMP,U,2)_U_$E($P(^DPT($P(GMRATEMP,U),0),U),1,14)_"("_GMRASSN_")"

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAEF2.m

    r628 r636  
    11GMRAEF2 ;HIRMFO/WAA-FDA EXCEPTION REPORT ;11/29/95  15:01
    2  ;;4.0;Adverse Reaction Tracking;**33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
    33EN1 ; Entry to PRINT ALL FDA EXCEPTIONS WITHIN A D/T RANGE option
    44 S GMRAOUT=0 K DIR
    … …  
    2121 .I $$CMPFDA^GMRAEF1(GMRAIEN) Q
    2222 .S GMRDFN=$P(GMRA(0),U)
    23  .Q:'$$PRDTST^GMRAUTL1(GMRDFN)  ;GMRA*4*33 Exclude test patient from report if production or legacy environment.
    2423 .S ^TMP($J,"GMRAEF",GMRDFN,GMRABGDT)=GMRAIEN
    2524 .Q

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAFDA3.m

    r628 r636  
    11GMRAFDA3 ;HIRMFO/WAA-DISPLAY FDA REPORT OVER DT RANGE ;12/1/95  11:34
    2  ;;4.0;Adverse Reaction Tracking;**33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
    33EN1 ; Entry for PRINT ALL FDA EVENTS WITHIN D/T RANGE option
    44 S GMRAOUT=0 K DIR
    … …  
    4141 .S GMRAPA(0)=$G(^GMR(120.8,$P(GMRAPA1(0),U,15),0)) Q:GMRAPA(0)=""
    4242 .S DFN=$P(GMRAPA(0),U) D PID^VADPT6
    43  .Q:'$$PRDTST^GMRAUTL1(DFN)  ;GMRA*4*33  Exclude test patient from report if production or legacy environment.
    4443 .S GMRACNT=GMRACNT+1
    4544 .W !,$E($P(^DPT(DFN,0),U),1,23)," (",VA("PID"),")" K VA,DFN

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPFT.m

    r628 r636  
    11GMRAPFT ;HIRMFO/WAA- PRINT FDA REACTION BY DATE ENTERED/TRACKED ;4/10/97  09:30
    2  ;;4.0;Adverse Reaction Tracking;**7,33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996
    33EN1 ; This routine will loop through the ADT entry point to get all
    44 ; the entries in that date range.
    … …  
    3131 ..S (GMRAPID,GMRANAME,GMRALOC)=""
    3232 ..S GMRADFN=$P(GMRAPA1(0),U,2),GMRADDT=$P(GMRAPA1(0),U)
    33  ..Q:'$$PRDTST^GMRAUTL1(GMRADFN)  ;GMRA*4*33 Exclude test patient from report if production or legacy system.
    3433 ..D VAD^GMRAUTL1(GMRADFN,GMRADDT,.GMRALOC,.GMRANAME,"",.GMRAPID)
    3534 ..I GMRALOC="" S GMRALOC="OUT PATIENT"
    … …  
    4746 ..W ?49,$E($G(GMRARAC(2)),1,30) ; The 2nd reaction that is listed
    4847 ..W !,"Loc: ",GMRALOC
    49  ..W ?32,"-------------" ; Separator
     48 ..W ?32,"-------------" ; Seperator
    5049 ..W ?49,$E($G(GMRARAC(3)),1,30) ; The 3rd reaction that is listed
    5150 ..W !,"Obs: ",$P($G(^VA(200,$P(GMRAPA1(0),U,19),0)),U) ; User entered

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPL.m

    r628 r636  
    11GMRAPL ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION ;5/2/97  14:13
    2  ;;4.0;Adverse Reaction Tracking;**7,33**;Mar 29, 1996;Build 5
    3 EN1 ; This routine will loop through the GMRA patient allergy file
    4  ; to find all patient within the date range that meet the criteria
     2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996
     3EN1 ; This routine will loop thourgh the GMRA patient allergy file
     4 ; to find all patient within the date range that meet the critera
    55 ; and then display all the data for those patients first by location
    66 ; then by date/time range of the reaction.
    … …  
    3232 ..S GMRATYP=$P(GMRAPA(0),U,20) ; Get the reaction types FDO
    3333 ..S (GMRANAM,GMRALOC,GMRAVIP)=""
    34  ..Q:'$$PRDTST^GMRAUTL1($P($G(GMRAPA(0)),U))  ;GMRA*4*33 Exclude test patient from report if production or legacy environment
    3534 ..D VAD^GMRAUTL1($P(GMRAPA(0),U),$P(GMRAPA(0),U,4),.GMRALOC,.GMRANAM,"","","","",.GMRAVIP)
    3635 ..I GMRALOC'="",+$G(^DIC(42,GMRALOC,44)) S GMRALOC=$P($G(^SC(+$G(^DIC(42,GMRALOC,44)),0)),U)

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPNA.m

    r628 r636  
    11GMRAPNA ;HIRMFO/WAA-PATIENT NOT ASKED ABOUT ALLERGIES ;12/1/95  14:15
    2  ;;4.0;Adverse Reaction Tracking;**30,33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;**30**;Mar 29, 1996
    33EN1 ; Entry for LIST BY LOCATION OF UNDOCUMENTED ALLERGIES option
    44 D EN1^GMRACMR G:GMRAOUT EXIT
    … …  
    66 D EXIT
    77 Q
    8 DEV ; *** Select output device, force queuing
     8DEV ; *** Select output device, force queueing
    99 ;***** NOTE: CHECKS TO SEE IF VALID DEVICE IS SELECTED THEN ALL I HAVE TO DO IS RUN TASK MAN.
    1010 S GMRAZIS="" S:GMRASEL'="1," GMRAZIS="Q"
    … …  
    3737 ..Q:'$D(^DPT(GMRADFN,0))
    3838 ..Q:$$DECEASED^GMRAFX(GMRADFN)  ;GMRA*4*30 Prevent deceased patients from appearing on this report.
    39  ..Q:'$$PRDTST^GMRAUTL1(GMRADFN)  ;GMRA*4*33 Exclude test patient from report if production or legacy environment.
    4039 ..S GMRACNT=GMRACNT+1
    4140 ..W !,$P(^DPT(GMRADFN,0),U) S DFN=GMRADFN,VAINDT=$S(GMRADATE="CURRENT":DT,1:GMRADATE) D 1^VADPT W ?30,VA("PID") W:GMRA'="C" ?45,$P(VAIN(2),U,2)

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPST1.m

    r628 r636  
    11GMRAPST1 ;HIRMFO/WAA- PRINT LISTING OF FATAL REACTIONS ;3/5/97  14:45
    2  ;;4.0;Adverse Reaction Tracking;**7,33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996
    33EN1 ; This routine will loop through the ADT entry point to get all
    44 ; the entries where the patient has died.
    … …  
    3131 ..Q:$P(GMRAPA1(0),U,3)'="y"  ; If patient did not die of the reaction
    3232 ..S GMRADFN=$P(GMRAPA1(0),U,2),GMRADDT=$P(GMRAPA1(0),U) ; reaction date
    33  ..Q:'$$PRDTST^GMRAUTL1(GMRADFN)  ;GMRA*4*33 Exclude test patient from report in production or legacy environments.
    3433 ..S (GMRAPID,GMRANAME)=""
    3534 ..D VAD^GMRAUTL1(GMRADFN,GMRADDT,"",.GMRANAME,"",.GMRAPID)
    … …  
    6867 D CLOSE^GMRAUTL
    6968 Q
    70  ;has the patient died within the date
     69 ;has the patient died with inthe dat
    7170HEAD ; Print header information
    7271 I GMRAPG'=1  Q:$Y<(IOSL-4)

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPST2.m

    r628 r636  
    11GMRAPST2 ;HIRMFO/WAA- PRINT SUM LISTING OF OUT COMES ;3/5/97  14:50
    2  ;;4.0;Adverse Reaction Tracking;**7,33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996
    33EN1 ; This routine will loop through the ADT entry point to get all
    44 ; the entries in that date range.
    … …  
    2828 ..S GMRAPA1(0)=$G(^GMR(120.85,GMRAPA1,0)) Q:GMRAPA1(0)=""  ;Bad Node
    2929 ..Q:+$G(^GMR(120.8,$P(GMRAPA1(0),U,15),"ER"))  ;Entered in Error data
    30  ..Q:'$$PRDTST^GMRAUTL1($P(GMRAPA1(0),U,2))  ;GMRA*4*33 Exclude test patient from report if production or legacy environment.
    3130 ..S GMRATOT=GMRATOT+1
    3231 ..F GMRALAB=1:1 S GMRALINE=$T(TEXT+GMRALAB) Q:$P(GMRALINE,";",3)=""  D
    … …  
    5857 D CLOSE^GMRAUTL
    5958 Q
    60  ;has the patient died within the date
     59 ;has the patient died with inthe dat
    6160HEAD ; Print header information
    6261 I GMRAPG'=1  Q:$Y<(IOSL-4)
    … …  
    7877 I $D(ZTQUEUED) S:$$STPCK^GMRAUTL1 GMRAOUT=1 ; Check if stopped by user
    7978 Q
    80 TEXT ;;these are the labels that will denote the field data
     79TEXT ;;these are the labeles that will denote the field data
    8180 ;;Patients that Died: ;3
    8281 ;;Reactions treated with RX drugs: ;4

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPST3.m

    r628 r636  
    11GMRAPST3 ;HIRMFO/WAA- PRINT FREQUENCY OF DIST OVR DT BY REACT ;3/5/97  15:14
    2  ;;4.0;Adverse Reaction Tracking;**7,33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996
    33EN1 ; This routine will loop through the ADT entry point to get all
    44 ; the entries in that date range.
    … …  
    3131 ..S GMRAPA1(0)=$G(^GMR(120.85,GMRAPA1,0)) Q:GMRAPA1(0)=""  ;Bad Node
    3232 ..Q:+$G(^GMR(120.8,$P(GMRAPA1(0),U,15),"ER"))  ;Entered in error data
    33  ..Q:'$$PRDTST^GMRAUTL1($P(GMRAPA1(0),U,2))  ;GMRA*4*33 Exclude test patient from report if production or legacy environment.
    3433 ..S GMRATOT=GMRATOT+1
    3534 ..S GMRAPA=$P(GMRAPA1(0),U,15) Q:'GMRAPA
    … …  
    6059 D CLOSE^GMRAUTL
    6160 Q
    62  ;has the patient died within the date
     61 ;has the patient died with inthe dat
    6362HEAD ; Print header information
    6463 I GMRAPG'=1  Q:$Y<(IOSL-4)

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPST4.m

    r628 r636  
    11GMRAPST4 ;HIRMFO/WAA- PRINT FREQUENCY OF DIST OVR DT BY DC ;3/5/97  15:15
    2  ;;4.0;Adverse Reaction Tracking;**7,33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996
    33EN1 ; This routine will loop through the ADT entry point to get all
    44 ; the entries in that date range.
    … …  
    3030 ..S GMRAPA1(0)=$G(^GMR(120.85,GMRAPA1,0)) Q:GMRAPA1(0)=""  ;Bad Node
    3131 ..Q:+$G(^GMR(120.8,$P(GMRAPA1(0),U,15),"ER"))  ;Entered in error data
    32  ..Q:'$$PRDTST^GMRAUTL1($P(GMRAPA1(0),U,2))  ;GMRA*4*33  Exclude test patient from report if production or legacy environment.
    3332 ..S GMRATOT=GMRATOT+1
    3433 ..S GMRAPA=$P(GMRAPA1(0),U,15) Q:'GMRAPA

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPST5.m

    r628 r636  
    11GMRAPST5 ;HIRMFO/WAA- PRINT TOTAL NUMBER OF REPORTED REACTION ;3/5/97  15:16
    2  ;;4.0;Adverse Reaction Tracking;**7,33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996
    33EN1 ; This routine will loop through the ADT entry point to get all
    44 ; the entries in that date range.
    … …  
    2828 ..S GMRAPA1(0)=$G(^GMR(120.85,GMRAPA1,0)) Q:GMRAPA1(0)=""  ;Bad Node
    2929 ..Q:+$G(^GMR(120.8,$P(GMRAPA1(0),U,15),"ER"))  ;Entered in Error Data
    30  ..Q:'$$PRDTST^GMRAUTL1($P(GMRAPA1(0),U,2))  ;GMRA*4*33  Exclude test patient from report if production or legacy environment.
    3130 ..S GMRATOT=GMRATOT+1
    3231 ..Q
    … …  
    3837 D CLOSE^GMRAUTL
    3938 Q
    40  ;has the patient died within the date
     39 ;has the patient died with inthe dat
    4140HEAD ; Print header information
    4241 I GMRAPG'=1  Q:$Y<(IOSL-4)

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPST6.m

    r628 r636  
    11GMRAPST6 ;HIRMFO/WAA- ADR OUTCOME REPORT ;3/5/97  15:16
    2  ;;4.0;Adverse Reaction Tracking;**7,33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996
    33EN1 ; This routine will loop through the ADT entry point to get all
    44 ; the entries in that date range.
    … …  
    3434 ..S GMRACA=$P(GMRAPA(0),U,2) ; Causative Agent
    3535 ..S DFN=$P(GMRAPA(0),U),GMRACA=$E(GMRACA,1,22)_"-"_$E($P(^DPT(DFN,0),U),1)_$E($P(^(0),U,9),6,9)
    36  ..Q:'$$PRDTST^GMRAUTL1(DFN)  ;GMRA*4*33 Exclude test patients if production or legacy environment.
    3736 ..S ^TMP($J,"GMRAPST6",GMRADDT,GMRACA,GMRAPA1)=""
    3837 ..Q

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPST7.m

    r628 r636  
    11GMRAPST7 ;HIRMFO/WAA- ADVERSE DRUG REACTION REPORT ;3/5/97  15:17
    2  ;;4.0;Adverse Reaction Tracking;**7,33**;Mar 29, 1996;Build 5
     2 ;;4.0;Adverse Reaction Tracking;**7**;Mar 29, 1996
    33EN1 ; This routine will loop through the ADT entry point to get all
    44 ; the entries in that date range.
    … …  
    3535 ..S GMRACA=$P(GMRAPA(0),U,2) ; Causative Agent
    3636 ..S DFN=$P(GMRAPA(0),U),GMRACA=$E(GMRACA,1,22)_"-"_$E($P(^DPT(DFN,0),U),1)_$E($P(^(0),U,9),6,9)
    37  ..Q:'$$PRDTST^GMRAUTL1(DFN)  ;GMRA*4*33 Exclude test patients from report if production or legacy environment.
    3837 ..S ^TMP($J,"GMRAPST7",GMRADDT,GMRACA,GMRAPA1)=GMRAPA
    3938 ..Q

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAPU.m

    r628 r636  
    1 GMRAPU ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION UNVERIFIED ;8/27/93
    2  ;;4.0;Adverse Reaction Tracking;**33**;Mar 29, 1996;Build 5
     1GMRAPU ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION UNVERIFIED ; 8/27/93
     2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
    33EN1 ; This routine will loop through the GMRA patient allergy file (120.8)
    44 ; to find all patients with unverified reactions
    … …  
    6767 .N GMRALOC,GMRANAM,GMALOC,GMRAPA
    6868 .S GMRANAM="",GMRALOC=""
    69  .Q:'$$PRDTST^GMRAUTL1(GMADFN)  ;GMRA*4*33 Exclude test patients if production or legacy environment.
    7069 .D VAD^GMRAUTL1(GMADFN,"",.GMRALOC,.GMRANAM,"","","") I GMRALOC="" S GMALOC="OUTPATIENT"
    7170 .E  S GMALOC=$P($G(^DIC(42,GMRALOC,0)),U)

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAUTL1.m

    r628 r636  
    1 GMRAUTL1 ;HIRMFO/WAA-ALLERGY UTILITIES ;12/04/92
    2  ;;4.0;Adverse Reaction Tracking;**33**;Mar 29, 1996;Build 5
    3  ;
    4  ; Reference to $$PROD^XUPROD supported by DBIA 4440
    5  ; Reference to $$TESTPAT^VADPT supported by DBIA 3744
    6  ;
     1GMRAUTL1 ;HIRMFO/WAA-ALLERGY UTILITIES ; 12/04/92
     2 ;;4.0;Adverse Reaction Tracking;;Mar 29, 1996
    73 Q
    84STPCK() ; This is to check to see if the user wanted to stop the print
    … …  
    4743 D CLOSE^GMRAUTL
    4844 Q
    49 PRDTST(GMRADFN) ; GMRA*4*33 - Remove Test Patients from Live Reports
    50  ; This function will return 0 if the patient should not print on the report, and 1 if the patient
    51  ; should appear on the report.  This function will allow all patients to print on the report if the
    52  ; report is run in a test environment.
    53  ;
    54  I GMRADFN="" Q 0  ;DFN not defined. Should never be the case.
    55  I '$$PROD^XUPROD() Q 1  ;Not a production or legacy environment.  Print all patients on report.
    56  I $$TESTPAT^VADPT(GMRADFN) Q 0  ;Production or legacy environment.  Test patient.  Do not print on report.
    57  Q 1  ;Production or legacy environment.  Not a test patient.  Print on report.
    58  ;
    5945VAD(DFN,DAT,LOC,NAM,SEX,SSN,RB,PRO,PID) ; Call to VADPT
    6046 ; This call is a generic call to 1^VADPT

  • FOIAVistA/tag/r/ADVERSE_REACTION_TRACKING-GMRA-GMA/GMRAVFY.m

    r628 r636  
    1 GMRAVFY ;HIRMFO/WAA,PWC-VERIFY AND SIGN OFF AN AGENT ; 5/23/07 10:32am
    2  ;;4.0;Adverse Reaction Tracking;**2,33**;Mar 29, 1996;Build 5
     1GMRAVFY ;HIRMFO/WAA-VERIFY AND SIGN OFF AN AGENT ;12/1/95  16:06
     2 ;;4.0;Adverse Reaction Tracking;**2**;Mar 29, 1996
    33EN1 ;This is the main entry point for the verifier option.
    44 S GMRAVER=0,GMRADRUG=0
    … …  
    2727 S GMRAPA(0)=$G(^GMR(120.8,GMRAPA,0)),GMRATYPE=$P(GMRAPA(0),U,20)
    2828 S DA=GMRAPA,DIE="^GMR(120.8,",DR="19////1;20///N;21////"_DUZ D ^DIE D:'GMRAVER EN1^GMRAVAB S GMRAPA(0)=$S($D(^GMR(120.8,GMRAPA,0)):^(0),1:"")
    29  I $G(GMRANEW) D  ;send NOTIFICATION bulletin if this is new -- GMRA*4*33
    30  . I $P(GMRAPA(0),U,6)="o",GMRATYPE["D" D PTBUL^GMRAROBS
     29 I $P(GMRAPA(0),U,6)="o",GMRATYPE["D" D PTBUL^GMRAROBS
    3130 I GMRAVER D EN1^GMRAPET0($P(GMRAPA(0),U),GMRAPA,"V",.GMRAOUT) I GMRAOUT S GMRAOUT=0
    3231Q1 D UNLOCK^GMRAUTL(120.8,GMRAPA)
Note: See TracChangeset for help on using the changeset viewer.