PSGDCCM.m

PSGDCCM ;BIR/CML3-DRUG COST EDIT MESSAGE ;01 MAY 97 / 10:58 AM

 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

 ;

 K ^TMP($J) S XMSUB="UNIT DOSE COST DATA CHANGED",XMTEXT="^TMP($J,",X(1)=$$ENNPN^PSGMI(DUZ)_" has changed the cost data for the drug "_DRGN_"." F X="SD1","FD" S @X=$E($$ENDTC^PSGMI(@X),1,8)

 S X(2)="The cost was changed to "_NC_" for "_SD1_" through "_FD_".",M=1,^TMP($J,1,0)=""

 F X=1,2 S ^(0)=^TMP($J,M,0)_"  " F Q=1:1 S P=$P(X(X)," ",Q) Q:$P(X(X)," ",Q,99)=""  S:$L(^TMP($J,M,0))+$L(P)>73 M=M+1,^TMP($J,M,0)="" S ^(0)=^TMP($J,M,0)_P_" "

 K XMY F Q=0:0 S Q=$O(^XUSEC("PSJU MGR",Q)) Q:'Q  S XMY(Q)=0

 I '$D(XMY) F Q=0:0 S Q=$O(^XUSEC("PSJ RPHARM",Q)) Q:'Q  S XMY(Q)=0

 S XMY(+DUZ)=1,XMDUZ="MEDICATIONS,UNIT DOSE"

 D ^XMD K ^TMP($J),FDN,PSGID,PSGOD,SD1N,XMDUZ,XMSUB,XMTEXT,XMY Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSGDCCM   797     printed  Apr 09, 2024@21:06:02                                                                                                                                                                                                      Page 2

PSGDCCM   ;BIR/CML3-DRUG COST EDIT MESSAGE ;01 MAY 97 / 10:58 AM

 +1       ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97

 +2       ;

 +3        KILL ^TMP($JOB)

           SET XMSUB="UNIT DOSE COST DATA CHANGED"

           SET XMTEXT="^TMP($J,"

           SET X(1)=$$ENNPN^PSGMI(DUZ)_" has changed the cost data for the drug "_DRGN_"."

           FOR X="SD1","FD"

               SET @X=$EXTRACT($$ENDTC^PSGMI(@X),1,8)

 +4        SET X(2)="The cost was changed to "_NC_" for "_SD1_" through "_FD_"."

           SET M=1

           SET ^TMP($JOB,1,0)=""

 +5        FOR X=1,2

               SET ^(0)=^TMP($JOB,M,0)_"  "

               FOR Q=1:1

                   SET P=$PIECE(X(X)," ",Q)

                   if $PIECE(X(X)," ",Q,99)=""

                       QUIT 

                   if $LENGTH(^TMP($JOB,M,0))+$LENGTH(P)>73

                       SET M=M+1

                       SET ^TMP($JOB,M,0)=""

                   SET ^(0)=^TMP($JOB,M,0)_P_" "

 +6        KILL XMY

           FOR Q=0:0

               SET Q=$ORDER(^XUSEC("PSJU MGR",Q))

               if 'Q

                   QUIT 

               SET XMY(Q)=0

 +7        IF '$DATA(XMY)

               FOR Q=0:0

                   SET Q=$ORDER(^XUSEC("PSJ RPHARM",Q))

                   if 'Q

                       QUIT 

                   SET XMY(Q)=0

 +8        SET XMY(+DUZ)=1

           SET XMDUZ="MEDICATIONS,UNIT DOSE"

 +9        DO ^XMD

           KILL ^TMP($JOB),FDN,PSGID,PSGOD,SD1N,XMDUZ,XMSUB,XMTEXT,XMY

           QUIT