IBTASHLT.m

IBTASHLT ;ASF/HALF - HEALTH CHECK RPC ;4/26/18

 ;;2.0;INTEGRATED BILLING;**623**;26-APR-18;Build 70

 ;;Per VA Directive 6402, this routine should not be modified.

 Q

 ;DBIA#2098

 ;

HEALTH(RESULT,ARG) ;

 ;

 N G,STATION,SNUMB,TMP

 S DUZ(0)="@" D DTNOLF^DICRW  ;DBIA#2098

 S G=$$SITE^VASITE,STATION=$P(G,U,2),SNUMB=$P(G,U,3)

 S TMP("HEALTH")="OK"

 S TMP("STATION")=STATION

 S TMP("STATION NUMBER")=SNUMB

 D ENCODE^XLFJSONE("TMP","RESULT")

 S RESULT(1)="["_RESULT(1)_"]"

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBTASHLT   491     printed  Apr 09, 2024@21:14:44                                                                                                                                                                                                     Page 2

IBTASHLT  ;ASF/HALF - HEALTH CHECK RPC ;4/26/18

 +1       ;;2.0;INTEGRATED BILLING;**623**;26-APR-18;Build 70

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3        QUIT 

 +4       ;DBIA#2098

 +5       ;

HEALTH(RESULT,ARG) ;

 +1       ;

 +2        NEW G,STATION,SNUMB,TMP

 +3       ;DBIA#2098

           SET DUZ(0)="@"

           DO DTNOLF^DICRW

 +4        SET G=$$SITE^VASITE

           SET STATION=$PIECE(G,U,2)

           SET SNUMB=$PIECE(G,U,3)

 +5        SET TMP("HEALTH")="OK"

 +6        SET TMP("STATION")=STATION

 +7        SET TMP("STATION NUMBER")=SNUMB

 +8        DO ENCODE^XLFJSONE("TMP","RESULT")

 +9        SET RESULT(1)="["_RESULT(1)_"]"

 +10       QUIT 

 +11      ;