Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCMCPT2.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/SCHEDULING-SD-SC/SCMCPT2.m
r628 r636 1 SCMCPT2 ; GENERATED FROM 'SCMC INCONSISTENT' PRINT TEMPLATE (#14 48) ; 12/27/06 ; (FILE 404.57, MARGIN=132)1 SCMCPT2 ; GENERATED FROM 'SCMC INCONSISTENT' PRINT TEMPLATE (#1467) ; 12/25/06 ; (FILE 404.57, MARGIN=132) 2 2 G BEGIN 3 3 N W ! … … 12 12 BEGIN ; 13 13 S:'$D(DN) DN=1 S DISTP=$G(DISTP),DILCT=$G(DILCT) 14 I $D(DXS)<9 M DXS=^DIPT(14 48,"DXS")14 I $D(DXS)<9 M DXS=^DIPT(1467,"DXS") 15 15 S I(0)="^SCTM(404.57,",J(0)=404.57 16 16 W ?0 S X=$P($$GETPRTP^SCAPMCU2(D0,DT),U,2) W $E(X,1,8) K Y(404.57,304)
Note:
See TracChangeset
for help on using the changeset viewer.