AZXAPTN.m

AZXAPTN ; IHS/PHXAO/TMJ - ROI CUMMULATIVE PATIENT HX FOR CHART ;

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

 ;

SERVICE ;PICK PATIENT NAME ENTRY

 W !!!

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

 G END:Y<1 S AZXAPTN=+Y

 I AZXAPTN="" Q

PRINT ;PRINT CUMMULATIVE PATIENT RECORD OF ALL DISCLOSURES

 W !

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

 S FR=AZXAPTN,TO=AZXAPTN

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K AZXAPTN,X,DD0,B Q

AZXAPTN   ; IHS/PHXAO/TMJ - ROI CUMMULATIVE PATIENT HX FOR CHART ;

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

 +2       ;

SERVICE   ;PICK PATIENT NAME ENTRY

 +1        WRITE !!!

 +2        SET DIC=2

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

           SET DIC(0)="AEMIQO"

           DO ^DIC

 +3        IF Y<1

               GOTO END

           SET AZXAPTN=+Y

 +4        IF AZXAPTN=""

               QUIT 

PRINT     ;PRINT CUMMULATIVE PATIENT RECORD OF ALL DISCLOSURES

 +1        WRITE !

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

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

           SET DIC="^AZXAREC("

           SET L=0

 +3        SET FR=AZXAPTN

           SET TO=AZXAPTN

 +4        KILL DHIT,DIOEND,DIOBEG

 +5        DO EN1^DIP

END       ;

 +1        KILL AZXAPTN,X,DD0,B

           QUIT