Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSO327PI

PSO327PI.m

Go to the documentation of this file.
  1. PSO327PI ;VGH-CARRIAGE RETURNS IN HL7 RECORDS - RESEND ;3/11/09
  1. ;;7.0;OUTPATIENT PHARMACY;**327**;MAR 2009;Build 4
  1. ;THIS ROUTINE WILL ALLOW USERS TO ENTER THE PRESCRIPTION NUMBER THAT NEEDS TO BE RESENT TO THE HDR.
  1. EN ;
  1. D INIT
  1. S PSODONE=0
  1. F D PROMPT Q:PSODONE
  1. Q
  1. PROMPT ;DIC READ
  1. W !!
  1. K DIC,X,Y
  1. S DIC=52,DIC(0)="AEQXZ"
  1. D ^DIC
  1. I Y<1 S PSODONE=1 Q
  1. S PSORXIEN=$P(Y,"^"),PSORX=$P(Y,"^",2)
  1. S PSOPAT=$P(Y(0),"^",2)
  1. S PSODPT=$G(^DPT(PSOPAT,0))
  1. S PSOPAT=$P(PSODPT,"^")
  1. S PSOSSN=$E($P(PSODPT,"^",9),6,9)
  1. W !,"Rx IEN: "_PSORXIEN
  1. W !,"Patient: "_PSOPAT_" ("_PSOSSN_")",!
  1. K DIR S DIR("A")="Is this Correct? "
  1. S DIR(0)="SA^1:YES;0:NO"
  1. S DIR("?")="Enter Y to resend the Prescription to the HDR"
  1. D ^DIR
  1. I Y<1 Q
  1. D RESEND
  1. W " ... SENT"
  1. Q
  1. RESEND ;RESEND PRESCRIPTION BACK TO HDR
  1. D EN^PSOHDR("PRES",PSORXIEN)
  1. Q
  1. INIT ;INITIALIZE VARIABLES
  1. K PSORX,PSORXIEN,PSOPAT,PSODONE,PSOSSN,PSODPT
  1. K DIR,DIC,X,Y
  1. Q