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

APSEPOST.m

Go to the documentation of this file.
  1. APSEPOST ; IHS/DSD/ENM - ADD PMI OPTIONS TO PSO MENU'S ; [ 06/11/2001 1:29 PM ]
  1. ;;6.1;IHS PHARMACY MODIFICATIONS;**1**;04/11/01
  1. EP ;
  1. W !!,"Now, I'm going to add the following menu options to the 'PSO RX'",!,"Menu Option",!,?10,"PRINT DRUG MEDICATION SHEET (APSE PMI DRUG)"
  1. W !,?10,"PRINT PATIENT MEDICATION SHEET (APSP PMI PATIENT)",!,"........One moment please!",!! H 3
  1. S M1="PSO RX"
  1. ;APSP PATIENT INSTRUCTIONS
  1. S DIC("P")=$P(^DD(19,10,0),"^",2) ;GET MENU SUB FILE NBR
  1. S DA=$O(^DIC(19,"B","APSE PMI DRUG",0)) ;item rec nbr
  1. S DIC("DR")="2///DPMI" ;synonym
  1. S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
  1. D PT1
  1. ;APSP INFORMATION MENU
  1. S DIC("P")=$P(^DD(19,10,0),"^",2) ;GET MENU SUB FILE NBR
  1. S DA=$O(^DIC(19,"B","APSP PMI PATIENT",0)) ;item rec nbr
  1. S DIC("DR")="2///PMI" ;synonym
  1. S DA(1)=$O(^DIC(19,"B","PSO RX",0)) ;main option nbr
  1. D PT1
  1. W !!,"OK, I'm done!",!!
  1. Q
  1. PT1 S APSPN=$P(^DIC(19,DA,0),"^",1) ;name of item option
  1. I 'DA(1) W !!,*7,*7,"*** The "_APSPN_" option has not been added to vthe"_M1_" menu",!," because the "_M1_" menu does not exist on your system. Install"
  1. I W !," the "_M1_" menu then rerun this routine again." G EX
  1. S THERE=$O(^DIC(19,DA(1),10,"B",DA,0))
  1. I THERE W !,*7,*7,"The "_APSPN_" option has already been added to the "_M1_" menu.",!! G EX
  1. S X=DA,DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="LMZ" K DD,DO D FILE^DICN K DIC
  1. W !,APSPN_" Option added to "_M1_" menu!"
  1. EX K DA,THERE,X,Y,APSPN Q
  1. Q