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

TIUP328.m

Go to the documentation of this file.
  1. TIUP328 ;SPFO/AJB - Prescription Drug Monitoring Program ;May 26, 2020@08:16:11
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**328**;Jun 20, 1997;Build 35
  1. ;
  1. ; $$FIND1^DIC ICR#2051 UPDATE^DIE ICR#2053
  1. ; $$GET1^DIQ ICR#2056 $$NOW^XLFDT ICR#10103
  1. ; $$UP^XLFSTR ICR#10104 MES^XPDUTL ICR#10141
  1. Q
  1. POST ;
  1. N CL,DC,DOC,EST,SCR,TIUFPRIV S TIUFPRIV=1
  1. S SCR="I $P(^(0),U,4)=""CL""" ; screen for the class
  1. S EST=$$LU(8926.1,"MEDICATION MGT NOTE")
  1. I '+EST D Q
  1. . D MES^XPDUTL(""),MES^XPDUTL("Installation Error: Enterprise Standard Title not found"),MES^XPDUTL("")
  1. S CL=$$LU(8925.1,"PROGRESS NOTES","X",SCR)
  1. I '+CL D Q
  1. . D MES^XPDUTL(""),MES^XPDUTL("Installation Error: PROGRESS NOTES Class not found"),MES^XPDUTL("")
  1. S DC=$$CRDD^TIUCRDD("PDMP TITLES","DC",11,CL) I '+DC D
  1. . D MES^XPDUTL($P(DC,U,2)),MES^XPDUTL("")
  1. S DOC=$$CRDD^TIUCRDD("STATE PRESCRIPTION DRUG MONITORING PROGRAM","DOC",11,DC,$G(EST)) I '+DOC D
  1. . D MES^XPDUTL($P(DOC,U,2)),MES^XPDUTL("")
  1. Q
  1. LU(FILE,NAME,FLAGS,SCREEN,INDEXES) ;
  1. Q $$FIND1^DIC(FILE,"",$G(FLAGS),NAME,$G(INDEXES),$G(SCREEN),"ERR")