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

PSJPST50.m

Go to the documentation of this file.
  1. PSJPST50 ;BIR/MV-POE POST INIT ;6 DEC 00 / 3:11 PM
  1. ;;5.0; INPATIENT MEDICATIONS ;**50**;16 DEC 97
  1. ;
  1. POE ;Queue IV conversion to re-allign OI
  1. Q:$$PATCH^XPDUTL("PSJ*5.0*50")
  1. S ZTDTH=$H,ZTRTN="CNIV^PSJUTL1()",ZTIO="",ZTDESC="Inpatient medications order conversion"
  1. D ^%ZTLOAD
  1. Q