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

IBY757PO.m

Go to the documentation of this file.
  1. IBY757PO ;YMG/EDE - IB*2.0*757 POST INSTALL;APR 23 2024
  1. ;;2.0;Integrated Billing;**757**;21-MAR-94;Build 4
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. EN ; entry point
  1. D BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*757")
  1. D NEWCANC
  1. D BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*757")
  1. Q
  1. ;
  1. NEWCANC ; add new cancellation reasons to file 350.3
  1. N FDA,IBCNNM,IBDATA,IBREAS,IENS,Z
  1. D MES^XPDUTL(" -> Adding new Cancellation Reasons to file 350.3...")
  1. F Z=1:1 S IBDATA=$T(REASDAT+Z),IBCNNM=$P(IBDATA,";",3) Q:IBCNNM="END" D
  1. .S IBREAS=+$$FIND1^DIC(350.3,,"X",IBCNNM,"B"),IENS=$S(IBREAS>0:IBREAS_",",1:"+1,")
  1. .S FDA(350.3,IENS,.01)=IBCNNM ; name
  1. .S FDA(350.3,IENS,.02)=$P(IBDATA,";",4) ; abbreviation
  1. .S FDA(350.3,IENS,.03)=$P(IBDATA,";",5) ; limit
  1. .S FDA(350.3,IENS,.04)=$P(IBDATA,";",6) ; can cancel UC
  1. .S FDA(350.3,IENS,.05)=$P(IBDATA,";",7) ; UC visit processing
  1. .S FDA(350.3,IENS,.07)=$P(IBDATA,";",8) ; MH visit processing
  1. .S FDA(350.3,IENS,.08)=$P(IBDATA,";",9) ; Can cancel MH Visit
  1. .I IBREAS D FILE^DIE("","FDA")
  1. .I 'IBREAS D UPDATE^DIE("","FDA")
  1. .K FDA
  1. D MES^XPDUTL(" Done.")
  1. Q
  1. ;
  1. REASDAT ; New cancellation reasons (350.3)
  1. ;;FITTING/ADJUSTMENT;F/A;3
  1. ;;PATIENT NOT SEEN;PNS;3;1;1;1;1
  1. ;;TEST ACCOUNT;TEST;3;1;1;1;1
  1. ;;INELIGIBLE;INEL;3;1;1;1;1
  1. ;;ACTIVE DUTY;AD;3;;;1;1
  1. ;;CAMP LEJEUNE;CL;3;;;2;1
  1. ;;VACCINE;VAC;3
  1. ;;OBSERVATION STAY;OS;3;1;2;2;1
  1. ;;TELEPHONE ENCOUNTER;TE;3;;;2;1
  1. ;;END
  1. Q