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

PSOERX1.m

Go to the documentation of this file.
  1. PSOERX1 ;ALB/BWF - eRx Utilities/RPC's ;Aug 14, 2020@12:43:34
  1. ;;7.0;OUTPATIENT PHARMACY;**467,520,527,508,551,581,635,617,700,746**;DEC 1997;Build 106
  1. ;
  1. EN(PSOIEN) ; -- main entry point for PSO ERX HOLDING QUEUE
  1. D EN^PSOERSE1(PSOIEN)
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="eRx Patient: "_$$GET1^DIQ(52.49,PSOIEN,.04,"E")
  1. S VALMHDR(2)="eRx Reference #: "_$$GET1^DIQ(52.49,PSOIEN,.01,"E")
  1. I $$GET1^DIQ(52.49,PSOIEN,10.5,"I")=2 D
  1. . S VALMHDR(2)=VALMHDR(2)_" "_IORVON_"ERX HAS DO NOT FILL INDICATOR PER PROVIDER"_IORVOFF
  1. S VALMHDR(3)=$$BHW^PSOERXIU(PSOIEN)
  1. I $G(VALMBCK)="R" K @VALMAR S VALMBCK="" D INIT
  1. Q
  1. ;
  1. INIT ;
  1. Q:'$G(PSOIEN)
  1. ; - Resetting list to NORMAL video attributes
  1. D RESET^PSOERUT0()
  1. D INIT^PSOERX1G
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K @VALMAR
  1. ; PSO*7*527 - set VALMBCK and PSOREFSH to force refresh when returning to list view
  1. S VALMBCK="R",PSOREFSH=1
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q