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

AQAOYP3.m

Go to the documentation of this file. 
  1. AQAOYP3 ; IHS/ORDC/LJF - PATCH #3 DRIVER ;
  1.  ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
  1.  ;
  1.  W !!?20,"QAI PATCH 3 DRIVER"
  1.  W !! K DIR S DIR(0)="Y",DIR("B")="NO"
  1.  S DIR("A")="Are you READY to proceed with this update"
  1.  D ^DIR G EXIT:Y'=1
  1.  ;
  1. START ; -- Start of process to install patch #3
  1.  ; -- install 3 print templates & 4 input templates
  1.  W !!,"First I need to run an init to install some templates:"
  1.  W !?5,"Print templates: AQAO ACTION LIST"
  1.  W !?5,"                 AQAO FINDINGS LIST"
  1.  W !?5,"                 AQAO WORKSHEET"
  1.  W !?5,"Input template:  AQAO RATE REVIEW"
  1.  W !?5,"                 AQAO PROV ACTION EDIT"
  1.  W !?5,"                 AQAO PROV ACTION ADD"
  1.  W !?5,"                 AQAO PROV LEVEL ADD"
  1.  W !,"And the Help Frames detailing the QAI patches",!!
  1.  D ^AQAXINIT
  1.  ;
  1.  ; -- delete temp entry in package file
  1.  W !!,"I will now delete the temporary entry in the PACKAGE file"
  1.  W !,"used to install these templates and help frames.  .  ."
  1.  S DA=$O(^DIC(9.4,"C","AQAX",0)) I DA="" W !,"No entry to DELETE!!"
  1.  I DA]"" S DIK="^DIC(9.4," D ^DIK W !,"Entry DELETED.",!
  1.  K DA,DIK
  1.  ;
  1.  ; -- update entry/exit actions for 2 options from patch 2
  1.  D CUMP2^AQAOYP2
  1.  ;
  1.  ; -- update
  1.  D CUMP3
  1.  ;
  1.  ; -- inform users patch has been installed
  1.  D MAIL
  1.  ;
  1.  ;
  1. EXIT ; -- eoj
  1.  W !!,"PATCH #3 INSTALLED!",!
  1.  Q
  1.  ;
  1. CUMP3 ;EP -- to be called by future patches
  1.  D 1,2
  1.  Q
  1. 1 ; -- SUBRTN edit qi data entry option
  1.  W !!,"Updating QI Data Entry so provider add function works"
  1.  W !,"during review process.",!
  1.  NEW X,DIC,Y,DIE,DA,DR
  1.  S X="AQAO ACTION LEVEL",DIC="^AQAQX(",DIC(0)="" D ^DIC Q:Y=-1
  1.  S DIE="^AQAQX(",DA=+Y,DR=".01///AQAO PROVIDER;.02///PROVIDER ADD"
  1.  D ^DIE
  1.  S DA(1)=DA,DA=1,DIE="^AQAQX("_DA(1)_",""PG"","
  1.  S DR=".03///UPDATE PROVIDER LIST;.12///[AQAO PROVIDER" D ^DIE
  1.  Q
  1.  ;
  1. 2 ; -- SUBRTN to edit help text on inactive fields
  1.  W !!,"Fixing help text on Inactive fields.",!
  1.  NEW AQAOI,AQAO,X,Y,Z
  1.  S AQAO("ACTIVATE")="REACTIVATE",AQAO("activate")="REACTIVATE"
  1.  F AQAOI=1:1:3 D
  1.  . S Y=$P($T(FILE+AQAOI),";;",2),Z=$P($T(FILE+AQAOI),";;",3)
  1.  . S X=^DD(Y,Z,3),^DD(Y,Z,3)=$$REPLACE^XLFSTR(X,.AQAO)
  1.  Q
  1.  ;
  1. MAIL ; -- SUBRTN to send mail message
  1.  NEW AQAOI,AQAO,XMTEXT,XMSUB,XMY
  1.  S XMSUB="QAI PATCH #3 INSTALLED",XMTEXT="AQAO("
  1.  F AQAOI=1:1:8 S AQAO(AQAOI)=$P($T(MSG+AQAOI),";;",2)
  1.  S X=0
  1.  F  S X=$O(^XUSEC("AQAOZMENU",X)) Q:X=""  S XMY(X)="",XMY(X,1)="I"
  1.  D ^XMD W !!,"Mail message sent to all QAI users.",!
  1.  Q
  1.  ;
  1. FILE ;;
  1.  ;;9002168.6;;.05;;QI ACTION file INACTIVE field
  1.  ;;9002168.8;;.04;;QI FINDINGS file INACTIVE field
  1.  ;;9002169.3;;.03;;QI LEVEL file INACTIVE field
  1.  ;
  1. MSG ;;
  1.  ;;*****************************************************************
  1.  ;;                   Congratulations!
  1.  ;;The QAI PATCH #3 has just been installed on your computer system!
  1.  ;;*****************************************************************
  1.  ;;
  1.  ;;For your convenience all the changes are documented on-line for 
  1.  ;;you. Use the option "HELP on Using QAI Package" and select choice
  1.  ;;#2 for PATCHES. It will tell you what has been fixed.  Have fun!