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 ---[H[J[2J[HPSO7P370 674 printed Dec 13, 2024@02:23:48 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
