- 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/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DID1.m
r628 r636 1 DID1 ;SFISC/XAK,JLT-STD DD LIST ; 9APR20072 ;;22.0;VA FileMan;**7,76,105 ,152**;Mar 30, 1999;Build 103 ;Per VHA Directive 2004-038, this routine should not be modified.1 DID1 ;SFISC/XAK,JLT-STD DD LIST ;1:53 PM 6 Mar 2002 2 ;;22.0;VA FileMan;**7,76,105**;Mar 30, 1999 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 S DJ(Z)=D0,DDL1=14,DDL2=32 G B 5 5 ; … … 9 9 D HD:$Y+6>IOSL Q:M=U W !!,F(Z),",",DJ(Z) 10 10 W ?(Z+Z+12),$P(N,U,1),?DDL2+4," "_$P(N,U,4) 11 S X=$P(N,U,2) 12 WP I X,$D(^DD(+X,.01,0)) S W=$P(^(0),U,2) I W["W" D 13 .S X="WORD-PROCESSING #"_+X D S X="(NOWRAP)" D:W["L" S X="(IGNORE ""|"")" D:W["X"!(W["x") S X="(UNEDITABLE)" D:W["I" S X="" 14 ..W:$L(X)+$X+5>IOM !?18 W " ",X 11 S X=$P(N,U,2) I X,$D(^DD(+X,.01,0)) S W=$P(^(0),U,2) I W["W" W " WORD-PROCESSING #",+X W:W["L" " (NOWRAP)" S X="" 15 12 F W="BOOLEAN","COMPUTED","FREE TEXT","SET","DATE","NUMBER","POINTER","K","VARIABLE POINTER","p" I X[$E(W) D VP^DIDX:$E(W)="V" S:W="K" W="MUMPS" S:W="p" W="POINTER" W ?40," "_W G ND:M=U 16 13 I +X S W=" Multiple" S W=W_" #"_+X D W G ND:M=U
Note:
See TracChangeset
for help on using the changeset viewer.