PSDWL.m

PSDWL ;BIR/LTL- MFI - WARD LOCATION Message builder for HL7 ; 9 Aug 95

 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 N D0,HLERR,HLEVN,HLNDAP,HLMTN,HLFS,HLECH,HLSDATA,HLSDT,HLSEC,HLCHAR,HLDA,HLDAN,HLDAP,HLDT,HLDT1,HLNDAP0,HLPID,HLQ,HLVER,PSD,X

 S HLNDAP="PSD-NDES" D INIT^HLTRANS I $D(HLERR) D KILL^HLTRANS Q

 S HLMTN="MFN",HLEVN=1,HLSDT=DT

MFI S ^TMP("HLS",$J,HLSDT,1)="MFI"_HLFS_42_$E(HLECH)_"WARD LOCATION"_HLFS_"PSD-CS"_HLFS_"UPD"_HLFS_HLDT1_HLFS_HLFS_"AL",PSD=0,PSD(1)=2

MFE F  S PSD=$O(^DIC(42,PSD)) Q:'PSD  S D0=PSD D WIN^DGPMDDCF S:'X ^TMP("HLS",$J,HLSDT,PSD(1))="MFE"_HLFS_"MUP"_HLFS_HLFS_HLFS_PSD_$E(HLECH)_$P($G(^DIC(42,PSD,0)),U),PSD(1)=PSD(1)+1

SEND D EN^HLTRANS Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSDWL   682     printed  Apr 09, 2024@20:50:39                                                                                                                                                                                                        Page 2

PSDWL     ;BIR/LTL- MFI - WARD LOCATION Message builder for HL7 ; 9 Aug 95

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 +2        NEW D0,HLERR,HLEVN,HLNDAP,HLMTN,HLFS,HLECH,HLSDATA,HLSDT,HLSEC,HLCHAR,HLDA,HLDAN,HLDAP,HLDT,HLDT1,HLNDAP0,HLPID,HLQ,HLVER,PSD,X

 +3        SET HLNDAP="PSD-NDES"

           DO INIT^HLTRANS

           IF $DATA(HLERR)

               DO KILL^HLTRANS

               QUIT 

 +4        SET HLMTN="MFN"

           SET HLEVN=1

           SET HLSDT=DT

MFI        SET ^TMP("HLS",$JOB,HLSDT,1)="MFI"_HLFS_42_$EXTRACT(HLECH)_"WARD LOCATION"_HLFS_"PSD-CS"_HLFS_"UPD"_HLFS_HLDT1_HLFS_HLFS_"AL"

           SET PSD=0

           SET PSD(1)=2

MFE        FOR 

               SET PSD=$ORDER(^DIC(42,PSD))

               if 'PSD

                   QUIT 

               SET D0=PSD

               DO WIN^DGPMDDCF

               if 'X

                   SET ^TMP("HLS",$JOB,HLSDT,PSD(1))="MFE"_HLFS_"MUP"_HLFS_HLFS_HLFS_PSD_$EXTRACT(HLECH)_$PIECE($GET(^DIC(42,PSD,0)),U)

                   SET PSD(1)=PSD(1)+1

SEND       DO EN^HLTRANS

           QUIT