MHVXRXR.m

MHVXRXR ;WAS/GPM - Prescription refill request ; [12/12/07 11:38pm]

 ;;1.0;My HealtheVet;**2**;Aug 23, 2005;Build 22

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 Q

 ;

REQUEST(QRY,ERR,DATAROOT) ; Entry point to request refills

 ; Walks list of prescriptions calling a pharmacy api AP1^PSOPRA to

 ; add the prescription to the internet refill request queue in the

 ; PRESCRIPTION REFILL REQUEST file #52.43.  The status of the api

 ; call is returned in DATAROOT.

 ;

 ;  Integration Agreements:

 ;         3768 : AP1^PSOPRA

 ;

 ;  Input:

 ;       QRY - Query array

 ;          QRY(DFN) - (required) Pointer to PATIENT (#2) file

 ;  DATAROOT - Root of array to hold extract data

 ;

 ;  Output:

 ;  DATAROOT - Populated data array, includes # of hits

 ;       ERR - Errors during extraction

 ;

 N CNT,RX,PORDERN,ORDERTM,STATUS,DIV,DFN,U

 ;

 D LOG^MHVUL2("MHVXRXR","BEGIN","S","TRACE")

 S U="^"

 S ERR=0

 K @DATAROOT

 S DFN=$G(QRY("DFN"))

 ;

 F CNT=1:1 Q:'$D(QRY("RX",CNT))  D

 . S RX=$G(QRY("RX",CNT))

 . S PORDERN=$P(RX,"^",2)

 . S ORDERTM=$P(RX,"^",3)

 . S RX=$P(RX,"^")

 . S STATUS=$$AP1^PSOPRA(DFN,RX)

 . S @DATAROOT@(CNT)=RX_U_STATUS_U_PORDERN_U_ORDERTM

 . Q

 ;

 S @DATAROOT=CNT-1

 D LOG^MHVUL2("MHVXRXR","END","S","TRACE")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MHVXRXR   1299     printed  Apr 09, 2024@21:18:15                                                                                                                                                                                                     Page 2

MHVXRXR   ;WAS/GPM - Prescription refill request ; [12/12/07 11:38pm]

 +1       ;;1.0;My HealtheVet;**2**;Aug 23, 2005;Build 22

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

REQUEST(QRY,ERR,DATAROOT) ; Entry point to request refills

 +1       ; Walks list of prescriptions calling a pharmacy api AP1^PSOPRA to

 +2       ; add the prescription to the internet refill request queue in the

 +3       ; PRESCRIPTION REFILL REQUEST file #52.43.  The status of the api

 +4       ; call is returned in DATAROOT.

 +5       ;

 +6       ;  Integration Agreements:

 +7       ;         3768 : AP1^PSOPRA

 +8       ;

 +9       ;  Input:

 +10      ;       QRY - Query array

 +11      ;          QRY(DFN) - (required) Pointer to PATIENT (#2) file

 +12      ;  DATAROOT - Root of array to hold extract data

 +13      ;

 +14      ;  Output:

 +15      ;  DATAROOT - Populated data array, includes # of hits

 +16      ;       ERR - Errors during extraction

 +17      ;

 +18       NEW CNT,RX,PORDERN,ORDERTM,STATUS,DIV,DFN,U

 +19      ;

 +20       DO LOG^MHVUL2("MHVXRXR","BEGIN","S","TRACE")

 +21       SET U="^"

 +22       SET ERR=0

 +23       KILL @DATAROOT

 +24       SET DFN=$GET(QRY("DFN"))

 +25      ;

 +26       FOR CNT=1:1

               if '$DATA(QRY("RX",CNT))

                   QUIT 

               Begin DoDot:1

 +27               SET RX=$GET(QRY("RX",CNT))

 +28               SET PORDERN=$PIECE(RX,"^",2)

 +29               SET ORDERTM=$PIECE(RX,"^",3)

 +30               SET RX=$PIECE(RX,"^")

 +31               SET STATUS=$$AP1^PSOPRA(DFN,RX)

 +32               SET @DATAROOT@(CNT)=RX_U_STATUS_U_PORDERN_U_ORDERTM

 +33               QUIT 

               End DoDot:1

 +34      ;

 +35       SET @DATAROOT=CNT-1

 +36       DO LOG^MHVUL2("MHVXRXR","END","S","TRACE")

 +37       QUIT