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

RAMAIN3.m

Go to the documentation of this file.
  1. RAMAIN3 ;HISC/PW - UPDATE CPRS ORDERABLE ITEMS ;7/24/02 14:45
  1. ;;5.0;Radiology/Nuclear Medicine;**50**;Mar 16, 1998
  1. ;called by RAMAIN
  1. ORDITMS ;*50 |=> The message has been changed - task off a job to update
  1. ; the Orderable Items file 101.43
  1. Q:'$$ORQUIK^RAORDU()
  1. S RAMSG=DA N DA
  1. S ZTRTN="QORDITMS^RAMAIN3",ZTDESC="RA MESSAGE UPDATE:ORDERABLE ITEMS"
  1. N XX F XX="RAMLNB","RAMSG" S ZTSAVE(XX)=""
  1. S ZTDTH=DT,ZTIO=""
  1. D ^%ZTLOAD
  1. ;D QORDITMS^RAMAIN3
  1. W !!,"Since the PROCEDURE MESSAGE TEXT has been changed, all CPRS Orderable",!,"Items that have this TEXT will be updated by task job ",$G(ZTSK)," .",!
  1. Q
  1. QORDITMS ; loop procedures to locate message and then send to CPRS
  1. ;queued from RAMAIN w RAMSG,RAMLNB
  1. S ZTREQ="@"
  1. N RADA,RAINADT,RASTAT,RAFILE,RAY,RAENALL
  1. S RADA=0 F S RADA=$O(^RAMIS(71,RADA)) Q:RADA'>0 D
  1. . Q:'$D(^RAMIS(71,RADA,3,"B",RAMSG))
  1. . S RAINADT=+$G(^RAMIS(71,RADA,"I"))
  1. . I $L(RAMLNB),RAINADT,RAINADT<DT Q ;procedure will update CPRS when activated
  1. . I '$L(RAMLNB) D DELMESG
  1. . S RASTAT="1^1",RAENALL=0,RAY=RADA,RAFILE=71
  1. . D PROC^RAO7MFN(RAENALL,RAFILE,RASTAT,RAY) ;as found in RAMAIN2
  1. Q
  1. DELMESG ;Message was deleted from 71.4, need to delete from 71
  1. N DA K DIK
  1. S DA=$O(^RAMIS(71,RADA,3,"B",RAMSG,0)),DA(1)=RADA,DIK="^RAMIS(71,"_DA(1)_",3,"
  1. D ^DIK
  1. K DIK
  1. Q