source: FOIAVistA/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCREQM.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 717 bytes
Line 
1DVBCREQM ;ALB ISC/THM-DIAGNOSTIC TEST ORDER SHEET, GENERIC ; 6/28/91 7:08 AM
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;
4EN K DVBCXX,DVBCDASH,DVBCBX,DVBCULN
5 S DVBCXX="C&P Diagnostic Test Order Record",$P(DVBCDASH,"-",79)="-",$P(DVBCULIN,"_",70)="_",DVBCBX=" | | | | "
6 S DVBCXHD="S DVBCCNTR=1 W !?35,""Order"",!?8,""Test"",?22,""Order #"",?35,""Date"",?45,""Initials"",?64,""Remarks"",!,DVBCDASH,! F DVBC=1:1:6 W ?($S(DVBCCNTR>9:0,1:1)),DVBCCNTR,""."",?12,DVBCBX,!,DVBCDASH,! S DVBCCNTR=DVBCCNTR+1"
7 W @IOF,!,?(80-$L(DVBCXX)\2),DVBCXX,!!,"Name: ",PNAM,?40,RQ,!," SSN: ",SSN F DVBCYX="Laboratory:","Radiology:","Other:" W !!,DVBCYX,! X DVBCXHD
8 K DVBCXX,DVBCDASH,DVBCBX,DVBCULN,DVBCCNTR
9 Q
Note: See TracBrowser for help on using the repository browser.