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

BTIUU1.m

Go to the documentation of this file.
  1. BTIUU1 ; IHS/ITSC/LJF - MORE IHS UTILITY CALLS ;
  1. ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004
  1. ;
  1. VST(DA) ;EP -- returns visit date for document
  1. Q $$GET1^DIQ(8925,DA,.03)
  1. ;
  1. IVST(DA) ;EP; -- returns ien for visit for document
  1. Q $$GET1^DIQ(8925,DA,.03,"I")
  1. ;
  1. CAT(DA) ;EP -- returns visit ser cat for document
  1. NEW X S X=$$IVST(DA) I X="" Q ""
  1. Q $$GET1^DIQ(9000010,X,.07,"I")
  1. ;
  1. PAT(DA) ;EP -- returns patient name for document
  1. Q $$GET1^DIQ(8925,DA,.02)
  1. ;
  1. IPAT(DA) ;EP; -- returns ien for patient for document
  1. Q $$GET1^DIQ(8925,DA,.02,"I")
  1. ;
  1. PMV(VST,DFN) ;EP; -- returns pat move ien for visit
  1. NEW X,Y,Z
  1. S X=+$G(^AUPNVSIT(VST,0)) I X=0 Q ""
  1. S Y=$O(^DGPM("APTT1",DFN,(X-.0001))) I Y="" Q ""
  1. S Z=$O(^DGPM("APTT1",DFN,Y,0)) I Z="" Q ""
  1. I VST=$$GET1^DIQ(405,Z,.27,"I") Q Z
  1. Q ""
  1. ;
  1. VNOTFIX(TIUDA) ;EP; -- updates visit pointer in v note if changed
  1. NEW X,Y,Z,DA,DR,DIE
  1. S X=$O(^AUPNVNOT("B",+TIUDA,0)) Q:X=""
  1. S Y=$P($G(^AUPNVNOT(X,0)),U,3) Q:Y=""
  1. S Z=$P($G(^TIU(8925,+TIUDA,0)),U,3) Q:Z="" Q:Y=Z
  1. S DIE="^AUPNVNOT(",DA=X,DR=".03////"_Z D ^DIE
  1. Q
  1. ;
  1. VA ;EP -- called to view a user's alerts
  1. NEW TIUSER,BTIU,DIR
  1. S TIUSER=$$READ^TIUU("PO^200:EMZQ") Q:+TIUSER<1
  1. K BTIU D USER^XQALERT("BTIU",+TIUSER)
  1. I $G(BTIU)=0 D G VA
  1. . D MSG^BTIUU("No alerts found for "_$P(TIUSER,U,2),3,0,0)
  1. . D PAUSE^BTIUU
  1. D MSG^BTIUU(BTIU_" alerts found for "_$P(TIUSER,U,2)_":",3,0,0)
  1. S X=0 F S X=$O(BTIU(X)) Q:'X D
  1. . D MSG^BTIUU($J(X,3)_$E($P(BTIU(X),U),1,75),1,0,0)
  1. . I X#21=0 D PAUSE^BTIUU
  1. D PAUSE^BTIUU G VA
  1. Q
  1. ;
  1. ; -- archive copies of PAD and SP subrtns
  1. PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
  1. Q $E(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)
  1. ;
  1. SP(NUM) ; -- SUBRTN to pad spaces
  1. Q $$PAD(" ",NUM)