Changeset 588 for ccr/trunk


Ignore:
Timestamp:
Oct 30, 2009, 8:51:43 AM (15 years ago)
Author:
Christopher Edwards
Message:

Fix test if a MRN exists for the patient actor

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CACTOR.m

    r561 r588  
    1 C0CACTOR        ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
     1C0CACTOR  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
    22 ;;1.0;C0C;;May 19, 2009;
    33 ;Copyright 2008,2009 George Lilly, University of Minnesota.
     
    2727 ; 0.4 Patient data rouine refactored; adjustments here--SMH
    2828 ;
    29 EXTRACT(IPXML,ALST,AXML)        ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
     29EXTRACT(IPXML,ALST,AXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
    3030 ; IPXML is the Input Actor Template into which we  substitute values
    3131 ; This is straight XML. Values to be substituted are in @@VAL@@ format.
     
    8383 Q
    8484 ;
    85 PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
     85PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
    8686 I DEBUG W "PROCESSING ACTOR PATIENT ",AIEN,!
    8787 ;GPL SEPARATED EXTRACT FROM MAP FOR PROCESSING PATIENTS - TO MAKE
     
    109109 X ^%ZOSF("TEST") ; TEST TO SEE IF THE ROUTINE EXISTS
    110110 I $T S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
    111  I $D(MRN) D  ; IF MRN IS PRESENT
     111 I MRN'="" D  ; IF MRN IS PRESENT
    112112 . S @AMAP@("ACTORSSN")=MRN
    113113 . S @AMAP@("ACTORSSNTEXT")="MRN"
     
    154154 Q
    155155 ;
    156 SYSTEM(INXML,AIEN,AOID,OUTXML)  ; PROCESS A SYSTEM ACTOR
     156SYSTEM(INXML,AIEN,AOID,OUTXML) ; PROCESS A SYSTEM ACTOR
    157157     ;
    158158     ; N AMAP
     
    166166     Q
    167167     ;
    168 NOK(INXML,AIEN,AOID,OUTXML)     ; PROCESS A NEXT OF KIN TYPE ACTOR
     168NOK(INXML,AIEN,AOID,OUTXML) ; PROCESS A NEXT OF KIN TYPE ACTOR
    169169     ;
    170170     ; N AMAP
     
    179179     Q
    180180     ;
    181 ORG(INXML,AIEN,AOID,OUTXML)     ; PROCESS AN ORGANIZATION TYPE ACTOR
     181ORG(INXML,AIEN,AOID,OUTXML) ; PROCESS AN ORGANIZATION TYPE ACTOR
    182182     ;
    183183     ; N AMAP
     
    190190     Q
    191191     ;
    192 PROVIDER(INXML,AIEN,AOID,OUTXML)        ; PROCESS A PROVIDER TYPE ACTOR
     192PROVIDER(INXML,AIEN,AOID,OUTXML) ; PROCESS A PROVIDER TYPE ACTOR
    193193     ;
    194194     ; N AMAP
Note: See TracChangeset for help on using the changeset viewer.