Changeset 636 for FOIAVistA/tag/r/DRUG_ACCOUNTABILITY-PSA/PSAORDP1.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/DRUG_ACCOUNTABILITY-PSA/PSAORDP1.m
r628 r636 1 1 PSAORDP1 ;BIR/JMB-Print Orders - CONT'D ;9/19/97 2 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**3,12,21,61,65 ,67**; 10/24/97;Build 152 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**3,12,21,61,65**; 10/24/97;Build 2 3 3 ;This routine prints invoices. 4 4 ; … … 124 124 .W:+$P($G(^PSD(58.811,PSAORD,1,PSAINV,1,PSALN,2)),"^",2)'=0 !?9,"REORDER LEVEL: "_$FN(+$P(^PSD(58.811,PSAORD,1,PSAINV,1,PSALN,2),"^",2),",") 125 125 .; 126 .;BGN 67127 .D DISP2^PSAP67128 .;END 67129 126 .I $Y+5>IOSL D:$E(IOST,1,2)="C-" SCREEN^PSAORDP2 Q:PSAOUT D HEADER^PSAORDP2 D LINEHDR^PSAORDP2 130 127 .D ^PSAORDP2 Q:PSAOUT
Note:
See TracChangeset
for help on using the changeset viewer.