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

IVM20P3.m

Go to the documentation of this file.
  1. IVM20P3 ;ALB/CPM - IVM V2.0 POST INIT, UPDATE ^XUTL("XQORM" ; 18-JUL-94
  1. ;;Version 2.0 ; INCOME VERIFICATION MATCH ;; 21-OCT-94
  1. ;
  1. PROT ; Update ^XUTL("XQORM" for two protocols.
  1. W !
  1. F IVMX="IBAMTV REV PATIENT","IBAMTV REV IND CHARGES" D
  1. .S DIC="^ORD(101,",DIC(0)="F",X=IVMX D ^DIC K DIC S IVMY=+Y
  1. .I IVMY>0 D
  1. ..W !,">>> Rebuilding ^XUTL(""XQORM"" for protocol '",IVMX,"' ..."
  1. ..S XQORM=IVMY_";ORD(101," D XREF^XQORM
  1. K IVMX,IVMY,ORULT,X,XQORM,Y
  1. Q