Changeset 636 for FOIAVistA/tag/r/DSS_EXTRACTS-ECX/ECXDIVIV.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/ECXDIVIV.m
r628 r636 1 ECXDIVIV ;BIR/CML-Enter/Edit and Print IV Room Division ; 3/13/07 10:48am2 ;;3.0;DSS EXTRACTS;**8 ,105**;Dec 22, 1997;Build 701 ECXDIVIV ;BIR/CML-Enter/Edit and Print IV Room Division ; [ 11/15/96 11:12 AM ] 2 ;;3.0;DSS EXTRACTS;**8**;Dec 22, 1997 3 3 ; 4 4 ED ;enter/edit division field for iv rooms … … 25 25 .W !,"NO DEVICE SELECTED OR REPORT PRINTED!!" 26 26 .D PAUSE 27 K ^TMP($J,"ECXDSS")28 27 Q 29 28 ; … … 31 30 N CHKFLG,DIV,DIVNM,INACT,IV,IVRM,JJ,LN1,LN2,PDT,PG,QFLG,SS,X,Y 32 31 I '$D(DT) S DT=$$HTFM^XLFDT(+$H) 33 K ^TMP("ECXDIVIV",$J),^TMP($J,"ECXDSS") S QFLG=0,IV=0 34 ;call pharmacy encapsulation api and return all iv rooms information 35 D ALL^PSJ59P5(,"??","ECXDSS") 36 F S IV=$O(^TMP($J,"ECXDSS",IV)) Q:'IV D 37 .S IVRM=$G(^TMP($J,"ECXDSS",IV,.01)),DIV=$P($G(^(.02)),U) 32 K ^TMP("ECXDIVIV",$J) S QFLG=0,IV=0 33 F S IV=$O(^PS(59.5,IV)) Q:'IV I $D(^PS(59.5,IV,0)) D 34 .S IVRM=$E($P(^PS(59.5,IV,0),U),1,30),DIV=$P(^(0),U,4) 38 35 .S DIVNM=$S(DIV="":"ZZZ",1:$E($P(^DG(40.8,DIV,0),U),1,30)) 39 .K INACT I $P($G(^ TMP($J,"ECXDSS",IV,19)),U)]"" S INACT=$P(^(19),U,2)36 .K INACT I $P($G(^PS(59.5,IV,"I")),U)]"" S INACT=$$FMTE^XLFDT($P(^PS(59.5,IV,"I"),U),1) 40 37 .S ^TMP("ECXDIVIV",$J,DIVNM,IVRM)=$S($D(INACT):INACT,1:"") 41 38 ;print report … … 67 64 CHK ;check for existence of necessary files for division functionality 68 65 S CHKFLG=0 69 D ALL^PSJ59P5(,"??","ECXIV") 70 I '$O(^TMP($J,"ECXIV",0)) D I CHKFLG D EXIT Q 66 I '$O(^PS(59.5,0)) D Q:CHKFLG 71 67 .W !,"The IV Room file (#59.5) does not exist!" 72 68 .S CHKFLG=1 D PAUSE 73 I '$D(^ECX(728.113,0)) D I CHKFLG D EXIT Q69 I '$D(^ECX(728.113,0)) D Q:CHKFLG 74 70 .W $C(7),!!,"Your facility appears to be running a version of Inpatient Medications prior to" 75 71 .W !,"version 4.5 which is necessary to use this option." 76 72 .S CHKFLG=1 D PAUSE 77 I '$D(^TMP($J,"ECXIV",$O(^TMP($J,"ECXIV",0)),.02)) D 73 K TEST1 D FIELD^DID(59.5,.02,"","TYPE","TEST1") 74 I '$D(TEST1) D 78 75 .W $C(7),!!,"The Inpatient Medications Patch PSJ*4.5*27 has not yet been installed!" 79 76 .W !,"It must be loaded before you can proceed with this option." 80 77 .S CHKFLG=1 D PAUSE 81 EXIT K ^TMP($J,"ECXIV")82 78 Q 83 79 ;
Note:
See TracChangeset
for help on using the changeset viewer.