PSJ0253.m

PSJ0253 ;BIR/JCH - Remove ON CALL Cross Reference in Schedule Type (#7) field in Non-Verified Orders (#53.1) file ;23 Mar 11 / 7:30 AM

 ;;5.0;INPATIENT MEDICATIONS ;**253**;16 DEC 97;Build 31

 ;

 ;Reference to ^DDMOD is supported by DBIA# 2916.

 ;

 Q

 ;

EN ; Delete the ON CALL Cross Reference from the Schedule Type field in file ^PS(53.1.

 ;

 N PSJFIL,PSJFLD,PSJXREF

 S PSJFIL=53.1,PSJFLD=7,PSJXREF=1

 D DELIX^DDMOD(PSJFIL,PSJFLD,PSJXREF)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSJ0253   457     printed  Mar 13, 2025@21:10:32                                                                                                                                                                                                      Page 2

PSJ0253   ;BIR/JCH - Remove ON CALL Cross Reference in Schedule Type (#7) field in Non-Verified Orders (#53.1) file ;23 Mar 11 / 7:30 AM

 +1       ;;5.0;INPATIENT MEDICATIONS ;**253**;16 DEC 97;Build 31

 +2       ;

 +3       ;Reference to ^DDMOD is supported by DBIA# 2916.

 +4       ;

 +5        QUIT 

 +6       ;

EN        ; Delete the ON CALL Cross Reference from the Schedule Type field in file ^PS(53.1.

 +1       ;

 +2        NEW PSJFIL,PSJFLD,PSJXREF

 +3        SET PSJFIL=53.1

           SET PSJFLD=7

           SET PSJXREF=1

 +4        DO DELIX^DDMOD(PSJFIL,PSJFLD,PSJXREF)

 +5        QUIT