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

MAGDHOWS.m

Go to the documentation of this file. 
  1. MAGDHOWS ;WOIFO/PMK,DAC - Capture Consult/GMRC data ;07 Jun 2018 2:35 PM
  1.  ;;3.0;IMAGING;**138,174,208**;Mar 19, 2002;Build 6
  1.  ;; Per VHA Directive 2004-038, this routine should not be modified.
  1.  ;; +---------------------------------------------------------------+
  1.  ;; | Property of the US Government.                                |
  1.  ;; | No permission to copy or redistribute this software is given. |
  1.  ;; | Use of unreleased versions of this software requires the user |
  1.  ;; | to execute a written test agreement with the VistA Imaging    |
  1.  ;; | Development Office of the Department of Veterans Affairs,     |
  1.  ;; | telephone (301) 734-0100.                                     |
  1.  ;; | The Food and Drug Administration classifies this software as  |
  1.  ;; | a medical device.  As such, it may not be changed in any way. |
  1.  ;; | Modifications to this software may result in an adulterated   |
  1.  ;; | medical device under 21CFR820, the use of which is considered |
  1.  ;; | to be a violation of US Federal Statutes.                     |
  1.  ;; +---------------------------------------------------------------+
  1.  ;;
  1.  ; Supported IA #2056 reference $$GET1^DIQ function call
  1.  ; Supported IA #10103 reference $$HTFN^XLFDT function call
  1.  ; Supported IA #10103 reference $$NOW^XLFDT function call
  1.  ; Controlled IA #4110 to read REQUEST/CONSULTATION file (#123)
  1.  ; Supported IA #10040 to read HOSPITAL LOCATION file (#44)
  1.  ;
  1.  ; Called from PROTOCOL called MAGD APPOINTMENT (^ORD(101,...))
  1.  ; through the scheduling package
  1.  ;
  1.  N %,AFTERSTS,APTSCHED,CLINIC,CONSULTM,CUTOFF,DATETIME
  1.  N DFN,FILLER2,FMDATE,FMDATETM
  1.  N GMRCIEN,HIT,I,IREQ,MSGTYPE
  1.  N ORCTRL,ORSTATUS,SDAMDFN,SENDIT,SERVICE,SS,STATUS,UNKNOWN,X,Y,Z
  1.  ;
  1.  Q:$P($G(SDATA("AFTER","STATUS")),"^",3)=""  ; Not a valid appointment
  1.  ;
  1.  ;
  1.  S FMDATETM=$$NOW^XLFDT(),FMDATE=FMDATETM\1
  1.  S CUTOFF=$$HTFM^XLFDT($H-90) ; cutoff date is 90 days ago
  1.  S DFN=$P(SDATA,"^",2),DATETIME=$P(SDATA,"^",3),CLINIC=$P(SDATA,"^",4)
  1.  S APTSCHED("CLINIC IEN")=CLINIC,APTSCHED("FM DATETIME")=DATETIME
  1.  S APTSCHED("CLINIC NAME")=$S(CLINIC:$$GET1^DIQ(44,CLINIC,.01),1:"")
  1.  S AFTERSTS=SDATA("AFTER","STATUS"),X=$P(AFTERSTS,"^",3)
  1.  ; appointment management transactions from ^SD(409.63)
  1.  S FILLER2="" D  Q:FILLER2=""
  1.  . I X["CHECK IN" S FILLER2="SDAM-CHECKIN" Q
  1.  . I X["CHECKED IN" S FILLER2="SDAM-CHECKIN" Q
  1.  . I X["CHECK OUT" S FILLER2="SDAM-CHECKOUT" Q
  1.  . I X["CHECKED OUT" S FILLER2="SDAM-CHECKOUT" Q
  1.  . I X["AUTO RE-" S FILLER2="SDAM-SCHEDULED" Q
  1.  . I X["AUTO-RE" S FILLER2="SDAM-SCHEDULED" Q
  1.  . I X["ACTION REQUIRED" S FILLER2="SDAM-SCHEDULED" Q
  1.  . I X["ACT REQ" S FILLER2="SDAM-SCHEDULED" Q
  1.  . I X["NON-COUNT" S FILLER2="SDAM-SCHEDULED" Q
  1.  . I X["CANCELLED" S FILLER2="SDAM-CANCELLED" Q
  1.  . I X["NO-SHOW" S FILLER2="SDAM-CANCELLED" Q
  1.  . I X["DELETED" S FILLER2="SDAM-CANCELLED" Q
  1.  . I X["FUTURE" S FILLER2="SDAM-FUTURE" Q
  1.  . I X["NO ACTION TAKEN" S FILLER2="SDAM-SCHEDULED" Q
  1.  . I X["NO ACT TAKN" S FILLER2="SDAM-SCHEDULED" Q
  1.  . I X["INPATIENT" S FILLER2="SDAM-SCHEDULED" Q
  1.  . ;
  1.  . W !!,"Unexpected Status: """,X,""" in protocol MAGD APPOINTMENT."
  1.  . W !,"Please notify Customer Support"
  1.  . W !!,"Press <Enter> to continue: " R X:$G(DTIME,300)
  1.  . Q
  1.  ;
  1.  ; find the associated consult or procedure request using SD*5.3*478
  1.  S GMRCIEN="" F I=1:1 D  Q:GMRCIEN  Q:'SDAMDFN
  1.  . S SS=I_","_DATETIME_","_CLINIC
  1.  . S SDAMDFN=$$GET1^DIQ(44.003,SS,.01,"I")
  1.  . I SDAMDFN=DFN S GMRCIEN=$$GET1^DIQ(44.003,SS,688,"I")
  1.  . Q
  1.  ;
  1.  I GMRCIEN D  ; consult linked to appointment
  1.  . N GMRCSTATUS ; P174 DAC - link appointments only to active consults, ignore the rest
  1.  . N CPINVOCATION ; P208 PMK 4/18/2018
  1.  . I $$CPORDER^MAGDHOWP(GMRCIEN)="2,UNFINISHED" Q  ; don't generate HL7 for new CP orders - P208 PMK 4/24/18
  1.  . S CPINVOCATION=0 ; Clinical Procedures exam HL7 flag (set to 1 in MAGDHOWP) P208 PMK 4/18/18
  1.  . S GMRCSTATUS=$$GET1^DIQ(123,GMRCIEN,8,"E")
  1.  . I "^ACTIVE^PENDING^RENEWED^SCHEDULED^"[("^"_GMRCSTATUS_"^") D
  1.  . . S SERVICE=$$GET1^DIQ(123,GMRCIEN,1,"I")
  1.  . . D MSGSETUP^MAGDHOW1(GMRCIEN,SERVICE,"XO","SC",.APTSCHED)
  1.  . . Q
  1.  . Q
  1.  Q