PSO7P370.m

PSO7P370 ;VGH - Patch 370 Post Install routine;4/1/2014

 ;;7.0;OUTPATIENT PHARMACY;**370**;DEC 1997;Build 14

 ;

 ;External reference ^DD(52 supported by DBIA 6034

 ;

 Q

 ;

RH ;Remove HELP-PROMPT for LABEL DATE/TIME - Since this is a multiple, it should not have help text

 ;^DD(52,32,3)="Enter date/time when and if medication was returned to inventory due not being icked up or mailed to the patient."

 S X1=DT,X2=+30 D C^%DTC

 S ^XTMP("PSO7P370",0)=$G(X)_"^"_DT_"^HELP-PROMPT DELETION^"

 S ^XTMP("PSO7P370",1)="^DD(52,32,3)=Enter date/time when and if medication was returned to inventory due not being icked up or mailed to the patient."

 K ^DD(52,32,3)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSO7P370   674     printed  Apr 09, 2024@21:26:59                                                                                                                                                                                                     Page 2

PSO7P370  ;VGH - Patch 370 Post Install routine;4/1/2014

 +1       ;;7.0;OUTPATIENT PHARMACY;**370**;DEC 1997;Build 14

 +2       ;

 +3       ;External reference ^DD(52 supported by DBIA 6034

 +4       ;

 +5        QUIT 

 +6       ;

RH        ;Remove HELP-PROMPT for LABEL DATE/TIME - Since this is a multiple, it should not have help text

 +1       ;^DD(52,32,3)="Enter date/time when and if medication was returned to inventory due not being icked up or mailed to the patient."

 +2        SET X1=DT

           SET X2=+30

           DO C^%DTC

 +3        SET ^XTMP("PSO7P370",0)=$GET(X)_"^"_DT_"^HELP-PROMPT DELETION^"

 +4        SET ^XTMP("PSO7P370",1)="^DD(52,32,3)=Enter date/time when and if medication was returned to inventory due not being icked up or mailed to the patient."

 +5        KILL ^DD(52,32,3)

 +6        QUIT