- ORY133 ;SLC/MKB - Postinit for patch OR*3*133 ;1/18/02 12:20
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**133**;Dec 17, 1997
- ;
- POST ; -- postinit
- S ^ORD(101.42,99,0)="DONE^ZD",^ORD(101.42,"C","ZD",99)="" ;+abbreviation
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY133 225 printed Jan 18, 2025@03:39:36 Page 2
- ORY133 ;SLC/MKB - Postinit for patch OR*3*133 ;1/18/02 12:20
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**133**;Dec 17, 1997
- +2 ;
- POST ; -- postinit
- +1 ;+abbreviation
- SET ^ORD(101.42,99,0)="DONE^ZD"
- SET ^ORD(101.42,"C","ZD",99)=""
- +2 QUIT