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:
67 edited
1 copied

Legend:

Unmodified
Added
Removed

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOCMP8.m

    r628 r636  
    1 OCXOCMP8 ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Assemble Order Check Routines utilities) ;10/29/98  12:37
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
     1OCXOCMP8 ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Assemble Order Check Routines utilities) ;6:55 PM  24 Jan 2008
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997;Build 2
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
     4 ;
     5 ; Modified from FOIA VISTA,
     6 ; Copyright (C) 2007 WorldVistA
     7 ;
     8 ; This program is free software; you can redistribute it and/or modify
     9 ; it under the terms of the GNU General Public License as published by
     10 ; the Free Software Foundation; either version 2 of the License, or
     11 ; (at your option) any later version.
    412 ;
    513 Q
    … …  
    1018 S DIE="^TMP(""OCXCMP"",$J,""D CODE"","_RNUM_",",XCN=0,X=$$RNAM(RNUM)
    1119 X ^%ZOSF("SAVE")
    12  W:'$G(OCXAUTO) "  ...",XCM," lines filed."
    13  S OCXLCNT=$G(OCXLCNT)+XCM
     20 ;
     21 ; WVEHR/SO 01/24/08 ;Commented out next 2 lines
     22 ; W:'$G(OCXAUTO) "  ...",XCM," lines filed."
     23 ; S OCXLCNT=$G(OCXLCNT)+XCM
     24 ;
    1425 Q
    1526 ;

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ01.m

    r628 r636  
    1 OCXOZ01 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ01 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
    … …  
    1717 ;               Raw Data Logging: OFF
    1818 ; Compiler mode:  ON
    19  ;   Compiled by: HARVEY,JULIE S  (DUZ=1)
     19 ;   Compiled by: ORMSBY,SKIP  (DUZ=1)
    2020 Q
    2121 ;

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ02.m

    r628 r636  
    1 OCXOZ02 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ02 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ03.m

    r628 r636  
    1 OCXOZ03 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ03 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ04.m

    r628 r636  
    1 OCXOZ04 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ04 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ05.m

    r628 r636  
    1 OCXOZ05 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ05 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ06.m

    r628 r636  
    1 OCXOZ06 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ06 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ07.m

    r628 r636  
    1 OCXOZ07 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ07 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ08.m

    r628 r636  
    1 OCXOZ08 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ08 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ09.m

    r628 r636  
    1 OCXOZ09 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ09 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0A.m

    r628 r636  
    1 OCXOZ0A ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0A ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0B.m

    r628 r636  
    1 OCXOZ0B ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0B ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0C.m

    r628 r636  
    1 OCXOZ0C ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0C ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0D.m

    r628 r636  
    1 OCXOZ0D ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0D ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0E.m

    r628 r636  
    1 OCXOZ0E ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0E ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0F.m

    r628 r636  
    1 OCXOZ0F ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0F ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0G.m

    r628 r636  
    1 OCXOZ0G ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0G ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0H.m

    r628 r636  
    1 OCXOZ0H ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0H ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0I.m

    r628 r636  
    1 OCXOZ0I ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0I ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0J.m

    r628 r636  
    1 OCXOZ0J ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0J ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0K.m

    r628 r636  
    1 OCXOZ0K ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0K ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0L.m

    r628 r636  
    1 OCXOZ0L ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0L ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0M.m

    r628 r636  
    1 OCXOZ0M ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0M ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0N.m

    r628 r636  
    1 OCXOZ0N ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0N ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0O.m

    r628 r636  
    1 OCXOZ0O ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0O ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0P.m

    r628 r636  
    1 OCXOZ0P ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0P ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0Q.m

    r628 r636  
    1 OCXOZ0Q ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0Q ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0R.m

    r628 r636  
    1 OCXOZ0R ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0R ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0S.m

    r628 r636  
    1 OCXOZ0S ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0S ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0T.m

    r628 r636  
    1 OCXOZ0T ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0T ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0U.m

    r628 r636  
    1 OCXOZ0U ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0U ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0V.m

    r628 r636  
    1 OCXOZ0V ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0V ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0W.m

    r628 r636  
    1 OCXOZ0W ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0W ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0X.m

    r628 r636  
    1 OCXOZ0X ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0X ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0Y.m

    r628 r636  
    1 OCXOZ0Y ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0Y ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0Z.m

    r628 r636  
    1 OCXOZ0Z ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ0Z ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ10.m

    r628 r636  
    1 OCXOZ10 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ10 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ11.m

    r628 r636  
    1 OCXOZ11 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ11 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ12.m

    r628 r636  
    1 OCXOZ12 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ12 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ13.m

    r628 r636  
    1 OCXOZ13 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ13 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ14.m

    r628 r636  
    1 OCXOZ14 ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
     1OCXOZ14 ;SLC/RJS,CLA - Order Check Scan ;DEC 27,2007 at 06:00
    22 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
    33 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORCHTAB5.m

    r628 r636  
    11ORCHTAB5 ;SLC/dcm - Add item to tab listing ;4/17/97  11:08
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**25,263**;Dec 17, 1997;Build 9
    3  ;;Per VHA Directive 2004-038, this routine should not be modified.
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**25**;Dec 17, 1997
    43 ;
    54MED ; -- Medicine Summary of Patient Procedures
    65 K ^TMP("MCAR",$J)
    7  ;I '$D(^MCAR(690,"AC",+ORVP)) Q
     6 I '$D(^MCAR(690,"AC",+ORVP)) Q
    87 D EN^MCARPS2(+ORVP)
    98 N MCARID,J

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORCMEDIT.m

    r628 r636  
    11ORCMEDIT ;SLC/MKB-Menu Editor ;4/19/01  11:27
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**8,46,95,263**;Dec 17, 1997;Build 9
    3  ;;Per VHA Directive 2004-038, this routine should not be modified.
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**8,46,95**;Dec 17, 1997
    43EN ; -- start here
    54 S ORMENU=$$MENU D:ORMENU EN^VALM("OR MENU EDITOR")
    … …  
    2524 . M ^ORD(101.41,+ORNEW,2)=^ORD(101.41,+Y,2) ; description
    2625 . S:$D(^ORD(101.41,+Y,5)) ^ORD(101.41,+ORNEW,5)=^ORD(101.41,+Y,5)
    27  . S X=$P(Y(0),U,2),$P(^ORD(101.41,+ORNEW,0),U,2)=X S:X'="" ^ORD(101.41,"C",$$UP^XLFSTR(X),+ORNEW)="" ; display text
     26 . S X=$P(Y(0),U,2),$P(^ORD(101.41,+ORNEW,0),U,2)=X,^ORD(101.41,"C",$$UP^XLFSTR(X),+ORNEW)="" ; display text
    2827 . S DA(1)=+ORNEW,DIK="^ORD(101.41,"_+ORNEW_",10,",DIK(1)="2^AD" D ENALL^DIK
    2928 I $P(ORNEW,U,3) S DA=+ORNEW,DIE="^ORD(101.41,",DR="2;20;51;52;53"_$S($G(DUZ(0))="@":";30;40",1:"") D ^DIE

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD2.m

    r628 r636  
    1 ORD2 ; DRIVER FOR COMPILED XREFS FOR FILE #100 ; 12/11/06
     1ORD2 ; DRIVER FOR COMPILED XREFS FOR FILE #100 ; 12/25/06
    22 ;
    33 N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD21.m

    r628 r636  
    1 ORD21 ; COMPILED XREF FOR FILE #100 ; 12/11/06
     1ORD21 ; COMPILED XREF FOR FILE #100 ; 12/25/06
    22 ;
    33 S DIKZK=2

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD210.m

    r628 r636  
    1 ORD210 ; COMPILED XREF FOR FILE #100.001 ; 12/11/06
     1ORD210 ; COMPILED XREF FOR FILE #100.001 ; 12/25/06
    22 ;
    33 S DA(1)=DA S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD211.m

    r628 r636  
    1 ORD211 ; COMPILED XREF FOR FILE #100.002 ; 12/11/06
     1ORD211 ; COMPILED XREF FOR FILE #100.002 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD212.m

    r628 r636  
    1 ORD212 ; COMPILED XREF FOR FILE #100.008 ; 12/11/06
     1ORD212 ; COMPILED XREF FOR FILE #100.008 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD213.m

    r628 r636  
    1 ORD213 ; COMPILED XREF FOR FILE #100.04 ; 12/11/06
     1ORD213 ; COMPILED XREF FOR FILE #100.04 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD214.m

    r628 r636  
    1 ORD214 ; COMPILED XREF FOR FILE #100.045 ; 12/11/06
     1ORD214 ; COMPILED XREF FOR FILE #100.045 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD215.m

    r628 r636  
    1 ORD215 ; COMPILED XREF FOR FILE #100.051 ; 12/11/06
     1ORD215 ; COMPILED XREF FOR FILE #100.051 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD216.m

    r628 r636  
    1 ORD216 ; COMPILED XREF FOR FILE #100.09 ; 12/11/06
     1ORD216 ; COMPILED XREF FOR FILE #100.09 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD22.m

    r628 r636  
    1 ORD22 ; COMPILED XREF FOR FILE #100.001 ; 12/11/06
     1ORD22 ; COMPILED XREF FOR FILE #100.001 ; 12/25/06
    22 ;
    33 S DA(1)=DA S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD23.m

    r628 r636  
    1 ORD23 ; COMPILED XREF FOR FILE #100.002 ; 12/11/06
     1ORD23 ; COMPILED XREF FOR FILE #100.002 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD24.m

    r628 r636  
    1 ORD24 ; COMPILED XREF FOR FILE #100.008 ; 12/11/06
     1ORD24 ; COMPILED XREF FOR FILE #100.008 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD25.m

    r628 r636  
    1 ORD25 ; COMPILED XREF FOR FILE #100.04 ; 12/11/06
     1ORD25 ; COMPILED XREF FOR FILE #100.04 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD26.m

    r628 r636  
    1 ORD26 ; COMPILED XREF FOR FILE #100.045 ; 12/11/06
     1ORD26 ; COMPILED XREF FOR FILE #100.045 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD27.m

    r628 r636  
    1 ORD27 ; COMPILED XREF FOR FILE #100.051 ; 12/11/06
     1ORD27 ; COMPILED XREF FOR FILE #100.051 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD28.m

    r628 r636  
    1 ORD28 ; COMPILED XREF FOR FILE #100.09 ; 12/11/06
     1ORD28 ; COMPILED XREF FOR FILE #100.09 ; 12/25/06
    22 ;
    33 S DA=0

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORD29.m

    r628 r636  
    1 ORD29 ; COMPILED XREF FOR FILE #100 ; 12/11/06
     1ORD29 ; COMPILED XREF FOR FILE #100 ; 12/25/06
    22 ;
    33 S DIKZK=1

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORDV04.m

    r628 r636  
    11ORDV04 ; SLC/DAN - OE/RR ;7/21/04  15:32
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,148,160,208,195,241,215,274,256**;Dec 17,1997;Build 5
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,148,160,208,195,241,215,274**;Dec 17,1997;Build 20
    33 ;OE/RR COMPONENT
    44 ;
    … …  
    7272 ;   STATUS = "ALL" to produce all problems
    7373 ;
    74  I $L($T(GCPR^OMGCOAS1)) D  Q  ; Call if FHIE station 200
    75  . D GCPR^OMGCOAS1(DFN,"PLL",ORDBEG,ORDEND,ORMAX)
    76  . S ROOT=$NA(^TMP("ORDATA",$J))
    7774 N ORPROBNO,ORXREC0,ORLOC,I,K,X,ORSITE,SITE,ORMORE
    7875 S ORSITE=$$SITE^VASITE,ORSITE=$P(ORSITE,"^",2)_";"_$P(ORSITE,"^",3)

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORMEVNT.m

    r628 r636  
    11ORMEVNT ;SLC/MKB-Trigger HL7 msg off MAS events ;3/31/04  09:21
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**24,45,70,79,141,165,177,186,195,278**;Dec 17, 1997;Build 5
    3  ;;Per VHA Directive 2004-038, this routine should not be modified.
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**24,45,70,79,141,165,177,186,195**;Dec 17, 1997
    43 ;
    54EN1 ; -- tasked entry point
    … …  
    1615 Q:'$G(DFN)  Q:$D(DGPMPC)  Q:DGPMT=4!(DGPMT=5)
    1716 I '$G(DGPMP) S ^XTMP("OREVENT",DFN,DGPMDA,0)=DT_U_$$FMADD^XLFDT(DT,2)_U_"Event process flag" ;195
    18  I $G(DGPMP),$D(^XTMP("OREVENT",DFN,DGPMDA)) D EN1 Q  ;195 edits processed after new JEH
     17 I $G(DGPMP),$D(^XTMP("OREVENT",DFN,DGPMDA)) D EN1 ;195 edits processed after new
    1918 N XQORQUIT,XQORPOP,DTOUT,DUOUT,DIRUT,DIROUT ;protect protocol context
    2019 N VAIP,DONE,ORVP,ORWARD,ORTS,ORL,ORDIV,ORLAST,X,Y,I,ORCURRNT,OREVENT,ORDCRULE,ORACT,ORPRINT
    … …  
    2928 S ORLAST("TS")=$$PREVTS,X=+VAIP(15,4) F I="WD","LOC","DIV" S ORLAST(I)=""
    3029 S:X ORLAST("WD")=X,Y=+$G(^DIC(42,X,44)),ORLAST("LOC")=Y_";SC(",ORLAST("DIV")=$$DIV(Y)
    31  N OREVNTLK S OREVNTLK=""  ;JEH
    32  S ORCURRNT=$$CURRENT,OREVENT=$$PATEVT,ORACT=$S($G(DGPMP):"ED",1:"NW") ; Lock
     30 S ORCURRNT=$$CURRENT,OREVENT=$$PATEVT,ORACT=$S($G(DGPMP):"ED",1:"NW")
    3331 I OREVENT=-1 D EN1 Q  ;195 Can't lock, retry
    34  S OREVNTLK=OREVENT  ; save routine copy of ifn JEH
    35  I $G(DGPMP),$D(^ORE(100.2,"ADT",DGPMDA)) D   ;edited
     32 I $G(DGPMP),$D(^ORE(100.2,"ADT",DGPMDA)) D  Q:$G(DONE)  ;edited
    3633 . N LAST,OREVT,DA,X,I S LAST=+$O(^ORE(100.2,"ADT",DGPMDA,""),-1) Q:LAST<1
    3734 . S OREVT=+$O(^ORE(100.2,"ADT",DGPMDA,LAST,0)),DA=+$O(^(OREVT,0))
    … …  
    3936 . I $P(X,U,5)=+$G(VAIP(4)),$P(X,U,6)=+$G(VAIP(8)),$P(X,U,7)=+$G(VAIP(5)) S DONE=1 Q  ;no change
    4037 . I 'OREVENT D ACTLOG^OREVNTX(OREVT,"ED",$$TYPE(DGPMT),1) S DONE=1
    41  I $G(DONE) D FINISHED Q  ; unlock and clean up before quit IFNjeh
    4238B ;
    4339 I '$G(DGPMP),ORCURRNT D  ;new mvt - autoDC
    … …  
    6157 I DGPMT=3,ORCURRNT,'$G(DGPMP) D DISCH ;lapse remaining events
    6258 I '$G(DFN),$G(ORVP) S DFN=+ORVP ;just in case
    63 FINISHED  ; unlock and clean up JEH
    64  D:$G(OREVNTLK) UNLEVT^ORX2(OREVNTLK) K ^XTMP("OREVENT",DFN,DGPMDA) ;195
     59 D:$G(OREVENT) UNLEVT^ORX2(OREVENT) K ^XTMP("OREVENT",DFN,DGPMDA) ;195
    6560 Q
    6661 ;
    … …  
    177172 ;
    178173REINST ; -- Reinstate meds from observation
    179  I '$L($T(ENR^PSJOERI)) K ^XTMP("ORDCOBS-"_+ORVP) Q   ;DBIA 3598
     174 I '$L($T(ENR^PSJOERI)) K ^XTMP("ORDCOBS-"_+ORVP) Q
    180175 N ORIDT,ORLASTDC,X0,ORIFN,PSIFN
    181176 S ORIDT=+$O(^DGPM("ATID3",+ORVP,0)) S:DGPMT=2 ORIDT=$O(^DGPM("ATID3",+ORVP,ORIDT)) Q:ORIDT<1  S ORLASTDC=+$O(^(ORIDT,0)) ;186 If reinstating for transfer TO ASIH then skip pseudo discharge for WHILE ASIH
    182177 Q:$G(^XTMP("ORDCOBS-"_+ORVP,"DISCHARGE"))'=ORLASTDC  S X0=$G(^(0))
    183178 I $P(X0,U)<$$NOW^XLFDT K ^XTMP("ORDCOBS-"_+ORVP) Q  ;readmit after one hour 177
    184  S ORIFN=0 F  S ORIFN=+$O(^XTMP("ORDCOBS-"_+ORVP,ORIFN))  Q:ORIFN<1  S PSIFN=$G(^(ORIFN)) D:PSIFN ENR^PSJOERI(+ORVP,PSIFN,+ORWARD)  ;DBIA 3598
     179 S ORIFN=0 F  S ORIFN=+$O(^XTMP("ORDCOBS-"_+ORVP,ORIFN))  Q:ORIFN<1  S PSIFN=$G(^(ORIFN)) D:PSIFN ENR^PSJOERI(+ORVP,PSIFN,+ORWARD)
    185180 K ^XTMP("ORDCOBS-"_+ORVP)
    186181 Q

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORSNAST.m

    r628 r636  
    1 ORSNAST ;SLC/RAF - Policy order search  ;06/25/2007
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**50,263**;Dec 17, 1997;Build 9
    3  ;;Per VHA Directive 2004-038, this routine should not be modified.
     1ORSNAST ;SLC/RAF - Policy order search  ;10/20/00  14:10
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**50**;Dec 17, 1997
    43 ;
    54 ;this utility will allow the user to enter a date range to search
    … …  
    1110 S U="^" K ^TMP("ORNS",$J),^TMP("ORSERV",$J)
    1211 W @IOF,!!?18,"Nature of Order or Order Status Search.",!?15,"This report is formatted for 132 column output."
    13  N DASH,DATE,DFN,DIR,DTOUT,DUOUT,EDATE,FORMAT,HDR,HDR1,IEN
    14  N LOC,LONER,ORIGVIEW,PAGE,PNM,PROV,QUIT,REF,RPDT,SDATE,SER,SERVICE,STOP,TEXT,TEXTSUB
     12 N DASH,DATE,DFN,DIR,DTOUT,DUOUT,ED1,EDATE,FORMAT,HDR,HDR1,IEN
     13 N LOC,LONER,ORIGVIEW,PAGE,PNM,PROV,QUIT,REF,RPDT,SD1,SDATE,SER,SERVICE,STOP,TEXT,TEXTSUB
    1514 N SINGLE,SIGNED,SNAME,SSN,STATUS,SORT,SEARCH,SUB
    1615 N VA,VADM,WHEN,WHO,Y
    … …  
    2221 S DIR("A")="Select "_$S(SORT=1:"Nature of order: ",1:"Order Status: ")
    2322 D ^DIR S:+Y>0 SEARCH=+Y,SNAME=$P(Y,U,2) K DIR I $D(DTOUT)!($D(DUOUT)) G EXIT
    24  D SDATE I $D(DTOUT)!$D(DUOUT) G EXIT
    25  D EDATE I $D(DTOUT)!$D(DUOUT) G EXIT
    26  D CKDATE I $D(DTOUT)!$D(DUOUT) G EXIT
     23SDATE ;sets DIR call to ask the user for a starting date
     24 S DIR(0)="DA^::ETX"
     25 S DIR("A")="Enter a starting date: "
     26 S DIR("?")="Enter the date that you wish to start searching with. This date needs to be older than the ending date. For example: If you enter a start date of T-3, the Stop date should be T-2 or less. Enter an ^ to exit the option."
     27 D ^DIR S:+Y>0 (SDATE,SD1)=+Y K DIR I $D(DTOUT)!($D(DUOUT)) G EXIT
     28 I SDATE'["." S (SDATE,SD1)=SDATE_.2359
     29 I $D(DTOUT)!$D(DUOUT) G EXIT
     30EDATE ;sets DIR call to ask the user for an ending date (optional)
     31 S DIR(0)="DA^::ETX"
     32 S DIR("A")="Enter a ending date: "
     33 S DIR("?")="Enter the date that you would like the search to end with. This date needs to be more recent than the start date. For example: If you entered a T-3 for the start date, enter a T-2 or less here. Enter an ^ to exit the option."
     34 D ^DIR S:+Y>0 (EDATE,ED1)=+Y K DIR I $D(DTOUT)!($D(DUOUT)) G EXIT
     35 I EDATE'["." S (EDATE,ED1)=EDATE_.0001
     36 I $D(DTOUT)!$D(DUOUT) G EXIT
     37SWITCH ;takes the date input from the user and does a switcheroo so the program
     38 ;can work as intended
     39 I EDATE'>SDATE S EDATE=SD1,SDATE=ED1
    2740FORMAT ;allows choice of formats for evaluation purpose
    2841 S DIR(0)="SX^1:Detailed format;2:Columnar format"
    … …  
    6073 .D ^%ZTLOAD I $D(ZTSK) W !,?32,"REQUEST QUEUED"
    6174 U IO D EN^ORSNAST1
    62  G EXIT
    6375 ;
    64 SDATE ;sets DIR call to ask the user for a starting date
    65  S DIR(0)="DA^::ETX"
    66  S DIR("A")="Enter a starting date: "
    67  S DIR("?")="Enter the date that you wish to start searching with. This date needs to be older than the ending date. For example: If you enter a start date of T-3, the Stop date should be T-2 or less. Enter an ^ to exit the option."
    68  D ^DIR S:+Y>0 SDATE=+Y K DIR I $D(DTOUT)!($D(DUOUT)) Q
    69  I SDATE'["." S SDATE=SDATE_.0001
    70  Q
    71 EDATE ;sets DIR call to ask the user for an ending date (optional)
    72  S DIR(0)="DA^::ETX"
    73  S DIR("A")="Enter a ending date: "
    74  S DIR("?")="Enter the date that you would like the search to end with. This date needs to be more recent than the start date. For example: If you entered a T-3 for the start date, enter a T-2 or less here. Enter an ^ to exit the option."
    75  D ^DIR S:+Y>0 EDATE=+Y K DIR I $D(DTOUT)!($D(DUOUT)) Q
    76  I EDATE'["." S EDATE=EDATE_.2359
    77  Q
    78 CKDATE ; Make sure the end date is not older than the start date.
    79  I EDATE>SDATE Q
    80  W !!,?10,"The starting date must be older than the ending date.",!,?10,"Please re-enter start and end dates.",!!
    81  D SDATE I $D(DTOUT)!$D(DUOUT) Q
    82  D EDATE I $D(DTOUT)!$D(DUOUT) Q
    83  G CKDATE
    8476EXIT ;
    8577 K ^TMP("ORNS",$J),^TMP("ORSERV",$J)

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWDX.m

    r628 r636  
    1 ORWDX ; SLC/KCM/REV/JLI - Order dialog utilities ;11/09/2006
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,125,131,132,141,164,178,187,190,195,215,246**;Dec 17, 1997;Build 8
    3  ;Per VHA Directive 2004-038, this routine should not be modified.
     1ORWDX ; SLC/KCM/REV/JLI - Order dailog utilities ;4/21/07  19:18
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,125,131,132,141,164,178,187,190,195,215,269**;Dec 17, 1997;Build 28
     3 ; Modified from FOIA VISTA,
     4 ; Copyright (C) 2007 WorldVistA
     5 ;
     6 ; This program is free software; you can redistribute it and/or modify
     7 ; it under the terms of the GNU General Public License as published by
     8 ; the Free Software Foundation; either version 2 of the License, or
     9 ; (at your option) any later version.
     10 ;
     11NXT() ; -- Gets index in array
     12 S ILST=ILST+1
     13 Q ILST
    414 ;
    515ORDITM(Y,FROM,DIR,XREF) ; Subset of orderable items
    … …  
    3343 ;         X123456;1      = change order,  134      = quick dialog
    3444 N I,J,DLG,INST,ID,VAL,ILST,ROOT S ROOT=""
    35  I RSPID["-" S ROOT="^TMP(""ORWDXMQ"",$J,"""_RSPID_""")" G XROOT^ORWDX2
    36  I $E(RSPID)="X" S ROOT="^OR(100,"_+$P(RSPID,"X",2)_",4.5)"  G XROOT^ORWDX2
    37  I +RSPID=RSPID  S ROOT="^ORD(101.41,"_+RSPID_",6)" G XROOT^ORWDX2
     45 I RSPID["-" S ROOT="^TMP(""ORWDXMQ"",$J,"""_RSPID_""")" G XROOT
     46 I $E(RSPID)="X" S ROOT="^OR(100,"_+$P(RSPID,"X",2)_",4.5)"  G XROOT
     47 I +RSPID=RSPID  S ROOT="^ORD(101.41,"_+RSPID_",6)" G XROOT
    3848 Q:ROOT=""
    39  G XROOT^ORWDX2
     49XROOT S (ILST,I)=0 F  S I=$O(@ROOT@(I)) Q:I'>0  D
     50 . S DLG=$P(@ROOT@(I,0),U,2),INST=$P(^(0),U,3)
     51 . S ID=$P($G(^ORD(101.41,DLG,1)),U,3)
     52 . I '$L(ID) S ID="ID"_DLG
     53 . S VAL=$G(@ROOT@(I,1))
     54 . I $P($G(^ORD(101.41,DLG,0)),U)="OR GTX ADDITIVE" S ID="ADDITIVE"
     55 . I $E(RSPID)="C",(ID="START"),VAL Q  ; skip literal start time on copy
     56 . S LST($$NXT)="~"_DLG_U_INST_U_ID
     57 . I $L(VAL) D
     58 .. S LST($$NXT)="i"_VAL,LST($$NXT)="e"_$$EXTVAL(VAL,DLG)
     59 . I $D(@ROOT@(I,2))>1 D
     60 .. S J=0 F  S J=$O(@ROOT@(I,2,J)) Q:J'>0  D
     61 ... S LST($$NXT)="t"_$G(@ROOT@(I,2,J,0))
     62 I $E(ROOT,1,4)="^TMP" K ^TMP("ORWDXMQ",$J)
     63 Q
    4064SAVE(REC,ORVP,ORNP,ORL,DLG,ORDG,ORIT,ORIFN,ORDIALOG,ORDEA,ORAPPT,ORSRC,OREVTDF) ;
    4165 ; ORVP=DFN, ORNP=Provider, ORL=Location, DLG=Order Dialog,
    … …  
    5377 I $G(ORDIALOG("ORSLOG")) S ORLOG=ORDIALOG("ORSLOG") K ORDIALOG("ORSLOG")
    5478 I $D(ORDIALOG("OREVENT")) S OREVENT=ORDIALOG("OREVENT") K ORDIALOG("OREVENT")
    55  ;=====================================================
     79 ;=======
    5680 ; Changed for v26.27 (RV)
    5781 S ORCAT=$$INPT^ORCD,ORCAT=$S(ORCAT=1:"I",1:"O")
    … …  
    6286 ;. S ORCAT=$S(OREVTYPE="A":"I",OREVTYPE="T":"I",ONPASS=1:"O",1:"O")
    6387 ;E  S ORCAT=$S($L($P($G(^DPT(+ORVP,.1)),U)):"I",1:"O")
    64  ;=====================================================
     88 ;=======
    6589 I DLG="PS MEDS" S ORWP94=1 D
    6690 . I ORIT=$O(^ORD(101.41,"AB","PSO SUPPLY",0)) S DLG="PSO SUPPLY"
    … …  
    143167 .. N OK S OK=$$LOCK1^ORX2(ORDERID) I 'OK S ORWERR="1^"_$P(OK,U,2)
    144168 .. I OK D EN^ORCSEND(ORDERID,"",ORWSIG,ORWREL,ORWNATR,"",.ORWERR),UNLK1^ORX2(ORDERID)
     169 .. S PSOSITE=$G(^SC(+ORL,"AFRXSITE")) ;+ORL is hospital location from ORWDX
     170 .. Q:PSOSITE=""  ;Quits with no autofinish if File#44 does not point to File#59
     171 .. I $P($G(^PS(59,PSOSITE,"RXFIN")),"^",1)="Y",$$GET1^DIQ(100,+ORDERID_",",12)="OUTPATIENT PHARMACY" D EN^PSOAFIN ;vfam
    145172 . S ORWLST(ORWI)=ORDERID,X=""
    146173 . I $L(ORWERR) S ORWLST(ORWI)=ORWLST(ORWI)_"^E^"_ORWERR Q
    … …  
    150177 I $G(ORLAB) D BTS^ORMBLD(ORVP)
    151178 Q
     179EXTVAL(IVAL,DLG) ; External value given a dlg ptr
     180 N ORDIALOG
     181 S ORDIALOG(DLG,0)=$P($G(^ORD(101.41,DLG,1)),U,1,2)
     182 S ORDIALOG(DLG,1)=IVAL
     183 I $E(ORDIALOG(DLG,0))="R",(+IVAL'=IVAL) Q IVAL  ; free text date/time
     184 Q $$EXT^ORCD(DLG,1)  ; all others
    152185DLGID(VAL,ORIFN) ; return dlg IEN for order
    153186 S VAL=$P(^OR(100,+ORIFN,0),U,5)

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWPT.m

    r628 r636  
    1 ORWPT ; SLC/KCM/REV - Patient Lookup Functions ;3/18/05  10:50
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,132,149,206,187,190,215**;Dec 17, 1997
    3  ;
    4  ; Ref. to ^UTILITY via IA 10061
    5  ;
     1ORWPT ; SLC/KCM/REV - Patient Lookup Functions ;11/23/06  10:50
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,132,149,206,187,190,215,269**;Dec 17, 1997 LOCAL ;Build 28
     3 ; Modified from FOIA VISTA,
     4 ; Copyright (C) 2007 WorldVistA
     5 ;
     6 ; This program is free software; you can redistribute it and/or modify
     7 ; it under the terms of the GNU General Public License
     8 ;;VOE VWPT PACKAGE ENHANCEMENT UPDATES ADDED 11/14/06
     9 ;
     10 Q
    611IDINFO(REC,DFN) ; Return identifying information for a patient
     12 ;VWPT BELOW ADD HRN AND ALT HRN
     13 ; PID^DOB^SEX^VET^SC%^WARD^RM-BED^NAME^HRN^ALTHRN
    714 ; PID^DOB^SEX^VET^SC%^WARD^RM-BED^NAME
    815 N X0,X1,X101,X3,XV  ; name/dob/sex/ssn, ward, room-bed, sc%, vet
    916 S X0=$G(^DPT(DFN,0)),X1=$G(^(.1)),X101=$G(^(.101)),X3=$G(^(.3)),XV=$G(^("VET"))
    10  S REC=$$SSN^DPTLK1(DFN)_U_$$DOB^DPTLK1(DFN,2)_U_$P(X0,U,2)_U_$P(XV,U)_U_$P(X3,U,2)_U_$P(X1,U)_U_$P(X101,U)_U_$P(X0,U) ;DG249
    11  Q
     17 ;VWPT ENHANCED
     18 N HRN,ID
     19 S HRN=$$HRN^DGLBPID(DFN)
     20 S ID=$$ID^DGLBPID(DFN)
     21 I (ID=HRN)&(HRN'="") D
     22 .S REC=U_$$DOB^DPTLK1(DFN,2)_U_$P(X0,U,2)_U_$P(XV,U)_U_$P(X3,U,2)_U_$P(X1,U)_U_$P(X101,U)_U_$P(X0,U)_U_$$HRNRET(DFN)_U_$$ALTHRN^ORWPT2(DFN) ;DG249
     23 E  D
     24 .S REC=$$ID^DGLBPID(DFN)_U_$$DOB^DPTLK1(DFN,2)_U_$P(X0,U,2)_U_$P(XV,U)_U_$P(X3,U,2)_U_$P(X1,U)_U_$P(X101,U)_U_$P(X0,U)_U_$$HRNRET(DFN)_U_$$ALTHRN^ORWPT2(DFN) ;DG249
     25 ;S REC=$$SSN^DPTLK1(DFN)_U_$$DOB^DPTLK1(DFN,2)_U_$P(X0,U,2)_U_$P(XV,U)_U_$P(X3,U,2)_U_$P(X1,U)_U_$P(X101,U)_U_$P(X0,U) ;DG249
     26 ;END VWPT
     27 Q
     28 ;VWPT RETURN HRN .CHECK FOR "sensitive" patients
     29HRNRET(DFN) ;
     30 N IRET
     31 S IRET=$$HRN^DGLBPID(DFN) ;$$HRN^VWVOEDPT(DFN)
     32 ;I (IRET'="")&$$SCREEN^DPTLK1(DFN) Q "*SENSITIVE*"  ;"HRN SENSITIVE"
     33 I (IRET'="") Q "'"_IRET_"'" ;"HRN:"_"'"_IRET_"'"
     34 Q ""
     35 ; END VWPT
    1236PTINQ(REF,DFN) ; Return formatted pt inquiry report
    1337 K ^TMP("ORDATA",$J,1)
    … …  
    4367 ;  1    2   3   4    5      6    7    8       9       10      11  12
    4468 ; NAME^SEX^DOB^SSN^LOCIEN^LOCNM^RMBD^CWAD^SENSITIVE^ADMITTED^CONV^SC^
    45  ; 13  14  15  16
    46  ; SC%^ICN^AGE^TS
     69 ;VWPT HRN , ALTERNATE HRN
     70 ; 13  14  15  16  17  18
     71 ; SC%^ICN^AGE^TS^HRN^AltHRN
     72 ; ;
     73 ; ;end vwpt
     74 ;
    4775 ;
    4876 ; for CCOW (RV - 2/27/03)  name="-1", location=error message
    4977 I '$D(^DPT(DFN,0)) S REC="-1^^^^^Patient is unknown to CPRS." Q
    5078 ;
    51  N X
     79 N X,ID,HRN
    5280 K ^TMP("ORWPCE",$J) ; delete PCE 'cache' when switching patients
    53  S X=^DPT(DFN,0),REC=$P(X,U,1,3)_U_$P(X,U,9)_U_U_$G(^(.1))_U_$G(^(.101))
    54  S X=$P(REC,U,6) I $L(X) S $P(REC,U,5)=+$G(^DIC(42,+$O(^DIC(42,"B",X,0)),44))
    55  S $P(REC,U,8)=$$CWAD^ORQPT2(DFN)_U_$$EN1^ORQPT2(DFN)
    56  ; I $P(REC,U,9) D EN2^ORQPT2(DFN)  ;update DG security log ; DG249
    57  S X=$G(^DPT(DFN,.105)) I X S $P(REC,U,10)=$P($G(^DGPM(X,0)),U)
    58  S:'$D(IOST) IOST="P-OTHER"
    59  S $P(REC,U,11)=$$OTF^OR3CONV(DFN,1)
    60  D ELIG^VADPT S $P(REC,U,12)=$G(VAEL(3)) ;two pieces: SC^SC%
    61  I $L($T(GETICN^MPIF001)) S X=+$$GETICN^MPIF001(DFN) S:X>0 $P(REC,U,14)=X
     81 D VWPT1^ORWPT2 ;moved code to ORWPT2 to save space
    6282 S $P(REC,U,15)=$$AGE(DFN,$P(REC,U,3))
    6383 S $P(REC,U,16)=+$G(^DPT(DFN,.103)) ; treating specialty
    64  K VAEL,VAERR ;VADPT call to kill?
    65  S ^DISV(DUZ,"^DPT(")=DFN
     84 D VWPT2^ORWPT2
    6685 Q
    6786SHARE(VAL,IP,HWND,DFN) ; Set global to share DFN with other applications
    … …  
    83102 S (I,IEN)=0,XREF=$S($L(ID)=5:"BS5",1:"BS")
    84103 F  S IEN=$O(^DPT(XREF,ID,IEN)) Q:'IEN  D
    85  . S I=I+1,LST(I)=IEN_U_$P(^DPT(IEN,0),U)_U_$$DOB^DPTLK1(IEN,2)_U_$$SSN^DPTLK1(IEN)  ; DG249
     104 . S I=I+1,LST(I)=IEN_U_$P(^DPT(IEN,0),U)_U_$$DOB^DPTLK1(IEN,2)_U_$$ID^DGLBPID(IEN) ;$$SSN^DPTLK1(IEN)  ; DG249
    86105 Q
    87106 ;
    … …  
    98117 .I ((ORPIEN<0)!(ORPIEN="")) Q
    99118 .S ORCNT=ORCNT+1
    100  .S LST(ORCNT)=ORPIEN_U_$P(^DPT(ORPIEN,0),U)_U_$$DOB^DPTLK1(ORPIEN,2)_U_$$SSN^DPTLK1(ORPIEN) ; DG249.
     119 .S LST(ORCNT)=ORPIEN_U_$P(^DPT(ORPIEN,0),U)_U_$$DOB^DPTLK1(ORPIEN,2)_U_$$ID^DGLBPID(ORPIEN) ;$$SSN^DPTLK1(ORPIEN) ; DG249.
    101120 ;
    102121 Q
    … …  
    106125 S (I,IEN)=0
    107126 F  S IEN=$O(^DPT("SSN",ID,IEN)) Q:'IEN  D
    108  . S I=I+1,LST(I)=IEN_U_$P(^DPT(IEN,0),U)_U_$$DOB^DPTLK1(IEN,2)_U_$$SSN^DPTLK1(IEN)  ; DG249
     127 . S I=I+1,LST(I)=IEN_U_$P(^DPT(IEN,0),U)_U_$$DOB^DPTLK1(IEN,2)_U_$$ID^DGLBPID(IEN) ;$$SSN^DPTLK1(IEN)  ; DG249
    109128 Q
    110129 ;
    … …  
    124143 ..I (ORPIEN'=ORPT) Q
    125144 ..S ORCNT=ORCNT+1
    126  ..S LST(ORCNT)=ORPIEN_U_$P(^DPT(ORPIEN,0),U)_U_$$DOB^DPTLK1(ORPIEN,2)_U_$$SSN^DPTLK1(ORPIEN) ; DG249.
     145 ..S LST(ORCNT)=ORPIEN_U_$P(^DPT(ORPIEN,0),U)_U_$$DOB^DPTLK1(ORPIEN,2)_U_$$ID^DGLBPID(ORPIEN) ;SSN^DPTLK1(ORPIEN) ; DG249.
    127146 ;
    128147 Q
    … …  
    237256 ;NDBI(X) ; National Database Integration site 1 = yes  0 = no
    238257 ; N R,G S X="A7RDUP" X ^%ZOSF("TEST") S R=$T,G=$S($D(^A7RCP):1,1:0),X=R+G,X=$S(X=2:1,1:0) Q X
     258 ;

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWRP1.m

    r628 r636  
    1 ORWRP1 ; ALB/MJK,dcm Report Calls ;9/18/96  15:02
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,109,160,262**;Dec 17, 1997;Build 3
     1ORWRP1 ; ALB/MJK,dcm Report Calls ;7/20/07  14:43
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,109,160,262,269**;Dec 17, 1997;Build 28
    33 ;
    44AHS(ROOT,ORDFN,ORHS,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ; - get adhoc health summary report
    … …  
    9494VITALS(ROOT,ORDFN,ID,ALPHA,OMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE) ; -- get vitals report
    9595 D START^ORWRP(132,"VITALSB^ORWRP1(.ROOT,.ORDFN,.ID,.ALPHA,.OMEGA,.ORDTRNG,.REMOTE,.ORMAX,.ORFHIE)")
    96  Q
     96 D EN^GMRVPGC(ORDFN) Q
    9797VITALSB(ROOT,ORDFN,ID,ALPHA,OMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE) ; -- build vitals report
    9898 N ORVP,XQORNOD,ORSSTRT,ORSSTOP

  • FOIAVistA/tag/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWRPP1.m

    r628 r636  
    11ORWRPP1 ; slc/dcm - Background Report Prints (cont.) ; 12/05/02  11:02
    2  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,160,192,263**;Dec 17, 1997;Build 9
    3  ;;Per VHA Directive 2004-038, this routine should not be modified.
     2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,160,192**;Dec 17, 1997
    43MEDB(ROOT,ORDFN,OREXAMID,ORALPHA,OROMEGA,ORDTRNG,REMOTE,ORMAX,ORFHIE)  ;Print Medicine report
    54 K ^TMP("MCAR",$J)
    6  ;I '$D(^MCAR(690,"AC",ORDFN)) Q
     5 I '$D(^MCAR(690,"AC",ORDFN)) Q
    76 N ORHFS,%,%I,DA,DILCT,DISTP,S1,S2,S4,S6,TY,WH
    87 S ORHFS=1
Note: See TracChangeset for help on using the changeset viewer.