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

RMPFPRE.m

Go to the documentation of this file.
  1. RMPFPRE ;DDC/KAW-PRE-INIT FOR ROES V2.0 [ 06/16/95 3:06 PM ]
  1. ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995
  1. W !!,"ROES Version 2.0 PRE-INIT"
  1. S RMPFLG=$O(^DIC(9.4,"B","REMOTE ORDER/ENTRY SYSTEM",0)) G END:'RMPFLG
  1. CH0 W !!,"Changing menu name 'RMPF O/E STATION' to 'RMPF O/E STATION ASPS'."
  1. S DA=$O(^DIC(19,"B","RMPF O/E STATION",0)) G CH1:'DA
  1. S X="RMPF O/E STATION ASPS",DIE="^DIC(19,",DR=".01////"_X D ^DIE
  1. CH1 W !!,"Changing mail group name 'RMPF ROES UPDATES' to 'RMPF ROES UPDATES (ASPS)'."
  1. S DA=$O(^XMB(3.8,"B","RMPF ROES UPDATES",0)) G CH6:'DA
  1. S X="RMPF ROES UPDATES (ASPS)",DIE="^XMB(3.8,",DR=".01////"_X D ^DIE
  1. CH6 W !!,"Changing bulletin name 'RMPFMESSAGE' to 'RMPFMESSAGE (ASPS)'."
  1. S DA=$O(^XMB(3.6,"B","RMPFMESSAGE",0))
  1. G CH2:'DA
  1. S X="RMPFMESSAGE (ASPS)",DIE="^XMB(3.6,",DR=".01////"_X D ^DIE
  1. CH2 W !!,"Changing order type name 'STOCK H.A. ORDER' to 'STOCK HEARING AID ORDER'"
  1. S DA=$O(^RMPF(791810.1,"B","STOCK H.A. ORDER",0))
  1. G CH21:'DA
  1. S X="STOCK HEARING AID ORDER",DIE="^RMPF(791810.1,"
  1. S DR=".01////"_X D ^DIE
  1. CH21 W !!,"Changing order type name 'H.A. REGISTRATION' to 'HEARING AID REGISTRATION'."
  1. S DA=$O(^RMPF(791810.1,"B","H.A. REGISTRATION",0))
  1. G CH22:'DA
  1. S X="HEARING AID REGISTRATION",DIE="^RMPF(791810.1,"
  1. S DR=".01////"_X D ^DIE
  1. CH22 W !!,"Changing order type name 'CUSTOM H.A. ORDER' to 'CUSTOM HEARING AID ORDER'."
  1. S DA=$O(^RMPF(791810.1,"B","CUSTOM H.A. ORDER",0)) G CH23:'DA
  1. S X="CUSTOM HEARING AID ORDER",DIE="^RMPF(791810.1,"
  1. S DR=".01////"_X D ^DIE
  1. CH23 W !!,"Changing order type name 'LOST AID REPORT' to 'LOST HEARING AID REPORT'."
  1. S DA=$O(^RMPF(791810.1,"B","LOST AID REPORT",0)) G CH24:'DA
  1. S X="LOST HEARING AID REPORT",DIE="^RMPF(791810.1,"
  1. S DR=".01////"_X D ^DIE
  1. CH24 W !!,"Changing order type name 'UNFILL AN ORDER' to 'CANCEL ORDER'."
  1. S DA=$O(^RMPF(791810.1,"B","UNFILL AN ORDER",0)) G CH25:'DA
  1. S X="CANCEL ORDER",DIE="^RMPF(791810.1,"
  1. S DR=".01////"_X D ^DIE
  1. CH25 W !!,"Changing order type name 'MISSING AID REPORT' to 'MISSING HEARING AID REPORT'."
  1. S DA=$O(^RMPF(791810.1,"B","MISSING AID REPORT",0)) G CH3:'DA
  1. S X="MISSING HEARING AID REPORT",DIE="^RMPF(791810.1,"
  1. S DR=".01////"_X D ^DIE
  1. CH3 W !!,"Changing order type name 'ISSUE DATE/ORDER COMPLETION' to",!," 'CUSTOM HEARING AID ISSUE'"
  1. S DA=$O(^RMPF(791810.1,"B","ISSUE DATE/ORDER COMPLETION",0))
  1. G CH4:'DA
  1. S X="CUSTOM HEARING AID ISSUE",DIE="^RMPF(791810.1,"
  1. S DR=".01////"_X D ^DIE
  1. CH4 W !!,"Changing the order type name 'CANCEL PATIENT ORDER' to 'CANCEL CUSTOM HEARING AID ORDER'."
  1. S DA=$O(^RMPF(791810.1,"B","CANCEL PATIENT ORDER",0))
  1. G CH41:'DA
  1. S X="CANCEL CUSTOM HEARING AID ORDER",DIE="^RMPF(791810.1,",DR=".01////"_X D ^DIE
  1. CH41 S DA=$O(^RMPF(791810.1,"B","CANCEL CHA ORDER",0)) G CH61:'DA
  1. S X="CANCEL CUSTOM HEARING AID ORDER",DIE="^RMPF(791810.1,",DR=".01////"_X D ^DIE
  1. CH61 D ^RMPFPRE2
  1. CH7 W !!,"Removing disability conditions '5163' and '6016'."
  1. S DA=$O(^RMPF(791810.4,"B",5163,0)) G CH71:'DA
  1. S DIK="^RMPF(791810.4," D ^DIK
  1. CH71 S DA=$O(^RMPF(791810.4,"B",6016,0)) G EXIT:'DA
  1. S DIK="^RMPF(791810.4," D ^DIK
  1. EXIT F X=0:0 S X=$O(^DD(791810,.01,1,X)) Q:'X D
  1. .K:$G(^DD(791810,.01,1,X,0))="791810^AD^MUMPS" ^DD(791810,.01,1,X)
  1. K ^DD(791810,0,"IX","AD",791810,.01)
  1. K ^RMPF(791810,"AD")
  1. K ^DD(791810.0101,.02,12),^DD(791810.0101,.02,12.1)
  1. W !!,"Deleting old order type edit fields."
  1. S X=0 F S X=$O(^RMPF(791810.1,X)) Q:'X K ^RMPF(791810.1,X,100)
  1. W !!,"Setting up ORDER DELAY REASONS."
  1. G EXIT1:'$D(^RMPF(791810.6,0)) S DA=0
  1. F DA=1:1:7 S K=$T(REASON+DA),X=$P(K,";;",2) S RMPF(X)=""
  1. S X="" F DA=1:1:7 S X=$O(RMPF(X)) I X'="" S DIE="^RMPF(791810.6,",DR=".01////"_X D ^DIE
  1. EXIT1 D ^RMPFPRE1
  1. W !!!?10,"*** PRE-INIT COMPLETE ***"
  1. END K DIC,DR,DA,X,Y,DIK,FX,D,D0,DI,DIE,DQ Q
  1. READ K RMPFOUT,RMPFQUT
  1. R Y:DTIME I '$T W $C(7) R Y:5 G READ:Y="." S:'$T Y=U
  1. I Y?1"^".E S (RMPFOUT,Y)="" Q
  1. S:Y?1"?".E (RMPFQUT,Y)=""
  1. Q
  1. REASON ;;Reasons for delay in order
  1. ;;MODIFICATION OF CIRCUITRY REQUIRED
  1. ;;PATIENT FAILED TO REPORT FOR APPOINTMENT
  1. ;;OTHER
  1. ;;HEARING AID DEFECTIVE FROM MANUFACTURER
  1. ;;PATIENT REQUESTED DELAY OR RESCHEDULED ORIGINAL APPT
  1. ;;CLINIC RESCHEDULED ORIGINAL APPOINTMENT
  1. ;;HEARING AID NOT RECEIVED IN TIME FOR HAE
  1. ;;NO AVAILABLE APPOINTMENT W/I 40 WORKING DAYS
  1. ;;MEDICAL CLEARANCE REQUIRED