AZXASERV.m

AZXASERV ; IHS/PHXAO/TMJ - INQUIRY FOR DISCLOSURE DISPLAY - PT SPECIFIC ; 

 ;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002

 ;

SERVICE ;PICK SERVICE ENTRY

 W !!!

 S DIC=2 S DIC("A")="Enter a Patient Name: " S DIC(0)="AEMIQO" D ^DIC

 S ACMSERV=+Y

 I ACMSERV="" Q

 ;

 ;S ACMSERV=$P(^DPT(ACMSERV,0),U)

PRINT ;PRINT RESOURCE RECORD FOR SERVICE PICKED

 W !

 ;S DIC="^AZXAREC(" S BY="@PATIENT" S L=0 S FR=ACMSERV S TO=ACMSERV S FLDS="[AZXA GS ACCOUNTING RECORD]" D EN1^DIP

 S FLDS="[AZXA GS ACCOUNTING RECORD]",BY="@INTERNAL(#.03)",DIC="^AZXAREC(",L=0

 S FR=ACMSERV,TO=ACMSERV

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K ACMSERV,X,DD0,B Q

AZXASERV  ; IHS/PHXAO/TMJ - INQUIRY FOR DISCLOSURE DISPLAY - PT SPECIFIC ; 

 +1       ;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002

 +2       ;

SERVICE   ;PICK SERVICE ENTRY

 +1        WRITE !!!

 +2        SET DIC=2

           SET DIC("A")="Enter a Patient Name: "

           SET DIC(0)="AEMIQO"

           DO ^DIC

 +3        SET ACMSERV=+Y

 +4        IF ACMSERV=""

               QUIT 

 +5       ;

 +6       ;S ACMSERV=$P(^DPT(ACMSERV,0),U)

PRINT     ;PRINT RESOURCE RECORD FOR SERVICE PICKED

 +1        WRITE !

 +2       ;S DIC="^AZXAREC(" S BY="@PATIENT" S L=0 S FR=ACMSERV S TO=ACMSERV S FLDS="[AZXA GS ACCOUNTING RECORD]" D EN1^DIP

 +3        SET FLDS="[AZXA GS ACCOUNTING RECORD]"

           SET BY="@INTERNAL(#.03)"

           SET DIC="^AZXAREC("

           SET L=0

 +4        SET FR=ACMSERV

           SET TO=ACMSERV

 +5        KILL DHIT,DIOEND,DIOBEG

 +6        DO EN1^DIP

END       ;

 +1        KILL ACMSERV,X,DD0,B

           QUIT