Changeset 636 for FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXSCLD.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/DSS_EXTRACTS-ECX/ECXSCLD.m
r628 r636 1 ECXSCLD ;BIR/DMA,CML-Enter, Print and Edit Entries in 728.44 ; 5/24/07 3:49pm2 ;;3.0;DSS EXTRACTS;**2,8,24,30,71,80 ,105**;Dec 22, 1997;Build 701 ECXSCLD ;BIR/DMA,CML-Enter, Print and Edit Entries in 728.44 ; 9/21/04 7:33am 2 ;;3.0;DSS EXTRACTS;**2,8,24,30,71,80**;Dec 22, 1997 3 3 EN ;entry point from option 4 4 ;load entries … … 60 60 E W !,"(NEVER REVIEWED)" 61 61 W ! 62 W !!,?1,"CLINIC",? 31,"STOP",?38,"CREDIT",?47,"DSS",?54,"DSS",?63,"ACTION",?71,"NAT'L"63 W !,? 31,"CODE",?38,"STOP",?47,"STOP",?54,"CREDIT",?71,"CODE",!,?1,"(* - currently inactive)",?38,"CODE",?47,"CODE",?54,"CODE",!,LN Q62 W !!,?1,"CLINIC",?27,"STOP",?34,"CREDIT",?43,"DSS",?50,"DSS",?59,"ACTION",?67,"NAT'L",?74,"DSS" 63 W !,?27,"CODE",?34,"STOP",?43,"STOP",?50,"CREDIT",?67,"CODE",?74,"DEPT",!,?1,"(* - currently inactive)",?34,"CODE",?43,"CODE",?50,"CODE",!,LN Q 64 64 ; 65 65 SHOWEM ; list clinics for worksheet 66 66 I $Y+4>IOSL D HEAD Q:QFLG 67 W !!,$E(ECSC,1, 31) W:$P(ECD,U,9)]"" "*" F J=1:1:5 W ?$P("31,38,47,54,66",",",J),$S($P(ECD,U,J):$P(ECD,U,J),J<3:"",1:"_____")68 S ECN=$P($G(^ECX(728.441,+$P(ECD,U,7),0)),U) W ? 71,$S(ECN]"":ECN,1:"____")67 W !!,$E(ECSC,1,25) W:$P(ECD,U,9)]"" "*" F J=1:1:5 W ?$P("27,34,43,50,62",",",J),$S($P(ECD,U,J):$P(ECD,U,J),J<3:"",1:"_____") 68 S ECN=$P($G(^ECX(728.441,+$P(ECD,U,7),0)),U) W ?67,$S(ECN]"":ECN,1:"____"),?74,$S($P(ECD,U,10)'="":$P(ECD,U,10),1:"___") 69 69 Q 70 70 SS ;SCROLL STOPS
Note:
See TracChangeset
for help on using the changeset viewer.