- AGMSPFRM ; IHS/ASDS/EFG - PRINT MSP FORM ;
- ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
- ;
- ;THIS IS THE DRIVER FOR PRINTING THE MSP FORM.
- ;IF THE VARIABLE AG("MSPPRINT") IS PRESENT, THE OPTION
- ;TO PRINT THE PATIENT'S DATA MAPPED TO THE FORM WAS
- ;SELECTED.
- ;IF THE VARIABLE IS NOT PRESENT, THE OPTION TO PRINT
- ;A BLANK FORM WAS SELECTED.
- ;
- I '$D(AG("MSPPRINT")) G BLANK
- K DIC,Y,DD,DO
- S DIC="^AUPNMSP("
- S DIC(0)="AEMQZ"
- D ^DIC Q:Y=-1 S AG("DA")=+Y
- K DIC,Y,DD,DO
- Q:'$D(AG("DA"))
- D ^XBCLS
- G BLANK2
- BLANK D ^XBCLS
- D PTLK^AG
- Q:X[U
- S:'$G(DFN) DFN=""
- BLANK2 K DIC,Y,DD,DO
- S XBNS="AG;DFN",XBRP="PROCESS^AGMSPFRM" D ^XBDBQUE
- K AG("MSPPRINT")
- Q
- PROCESS ;
- K MSPRES
- K DIQ,DIQ(0),^UTILITY("DIQ1",$J)
- S:$G(AG("DA"))'="" DIC=9000037,DA=AG("DA"),DR=".01:.71;100",DIQ="MSPRES(" D EN^DIQ1
- S FORM=0
- D HDR,EN^AGMSP1
- S FORM=1
- D HDR,EN^AGMSP2
- D HDR,EN^AGMSP3
- D HDR,EN^AGMSP4
- D HDR,EN^AGMSP5
- D HDR,EN^AGMSP6
- D HDR,EN^AGMSP7
- K MSPRES
- Q
- HDR ;PRINT HEADER LINES
- W:FORM @IOF
- S:$G(DFN)'="" AGPAT=$P(^DPT(DFN,0),U)
- S:$G(DFN)'="" AGCHRT=$S($D(^AUPNPAT(DFN,41,DUZ(2),0)):$P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),1:"xxxxx")
- S Y=DT D DD^%DT S AG("TODAY")=Y
- S AGLINE("-")=$TR($J(" ",79)," ","-")
- S AGLINE("EQ")=$TR($J(" ",79)," ","=")
- S AGLINE("_")=$TR($J(" ",79)," ","_")
- W !,?10,"WARNING: Confidential Patient Information, Privacy Act Applies"
- W !,AGLINE("EQ")
- W !,?22,"MEDICARE SECONDARY PAYER QUESTIONNAIRE"
- W !,AGLINE("-")
- W:$G(DFN)'="" !,$G(AGPAT)," (",$G(AGCHRT),")"
- W !,?52,"REPORT DATE: "
- W:$G(DFN)'="" AG("TODAY")
- W !,AGLINE("EQ"),!
- Q
- AGMSPFRM ; IHS/ASDS/EFG - PRINT MSP FORM ;
- +1 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
- +2 ;
- +3 ;THIS IS THE DRIVER FOR PRINTING THE MSP FORM.
- +4 ;IF THE VARIABLE AG("MSPPRINT") IS PRESENT, THE OPTION
- +5 ;TO PRINT THE PATIENT'S DATA MAPPED TO THE FORM WAS
- +6 ;SELECTED.
- +7 ;IF THE VARIABLE IS NOT PRESENT, THE OPTION TO PRINT
- +8 ;A BLANK FORM WAS SELECTED.
- +9 ;
- +10 IF '$DATA(AG("MSPPRINT"))
- GOTO BLANK
- +11 KILL DIC,Y,DD,DO
- +12 SET DIC="^AUPNMSP("
- +13 SET DIC(0)="AEMQZ"
- +14 DO ^DIC
- IF Y=-1
- QUIT
- SET AG("DA")=+Y
- +15 KILL DIC,Y,DD,DO
- +16 IF '$DATA(AG("DA"))
- QUIT
- +17 DO ^XBCLS
- +18 GOTO BLANK2
- BLANK DO ^XBCLS
- +1 DO PTLK^AG
- +2 IF X[U
- QUIT
- +3 IF '$GET(DFN)
- SET DFN=""
- BLANK2 KILL DIC,Y,DD,DO
- +1 SET XBNS="AG;DFN"
- SET XBRP="PROCESS^AGMSPFRM"
- DO ^XBDBQUE
- +2 KILL AG("MSPPRINT")
- +3 QUIT
- PROCESS ;
- +1 KILL MSPRES
- +2 KILL DIQ,DIQ(0),^UTILITY("DIQ1",$JOB)
- +3 IF $GET(AG("DA"))'=""
- SET DIC=9000037
- SET DA=AG("DA")
- SET DR=".01:.71;100"
- SET DIQ="MSPRES("
- DO EN^DIQ1
- +4 SET FORM=0
- +5 DO HDR
- DO EN^AGMSP1
- +6 SET FORM=1
- +7 DO HDR
- DO EN^AGMSP2
- +8 DO HDR
- DO EN^AGMSP3
- +9 DO HDR
- DO EN^AGMSP4
- +10 DO HDR
- DO EN^AGMSP5
- +11 DO HDR
- DO EN^AGMSP6
- +12 DO HDR
- DO EN^AGMSP7
- +13 KILL MSPRES
- +14 QUIT
- HDR ;PRINT HEADER LINES
- +1 IF FORM
- WRITE @IOF
- +2 IF $GET(DFN)'=""
- SET AGPAT=$PIECE(^DPT(DFN,0),U)
- +3 IF $GET(DFN)'=""
- SET AGCHRT=$SELECT($DATA(^AUPNPAT(DFN,41,DUZ(2),0)):$PIECE(^AUPNPAT(DFN,41,DUZ(2),0),U,2),1:"xxxxx")
- +4 SET Y=DT
- DO DD^%DT
- SET AG("TODAY")=Y
- +5 SET AGLINE("-")=$TRANSLATE($JUSTIFY(" ",79)," ","-")
- +6 SET AGLINE("EQ")=$TRANSLATE($JUSTIFY(" ",79)," ","=")
- +7 SET AGLINE("_")=$TRANSLATE($JUSTIFY(" ",79)," ","_")
- +8 WRITE !,?10,"WARNING: Confidential Patient Information, Privacy Act Applies"
- +9 WRITE !,AGLINE("EQ")
- +10 WRITE !,?22,"MEDICARE SECONDARY PAYER QUESTIONNAIRE"
- +11 WRITE !,AGLINE("-")
- +12 IF $GET(DFN)'=""
- WRITE !,$GET(AGPAT)," (",$GET(AGCHRT),")"
- +13 WRITE !,?52,"REPORT DATE: "
- +14 IF $GET(DFN)'=""
- WRITE AG("TODAY")
- +15 WRITE !,AGLINE("EQ"),!
- +16 QUIT
