Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG1010PA

DG1010PA.m

Go to the documentation of this file.
  1. DG1010PA ;ALB/REW - 1010 PRINT--INQUIRY PATIENT -ADDITIONL ; 28-MAY-93
  1. ;;5.3;Registration;**18,28,86,108,113,570,624**;Aug 13, 1993
  1. ;
  1. NOREG(DFN) ; DOES PROMPTS FOR 10/10 PRINT W/O REGISTRATION
  1. ;INPUT: DFN
  1. ;OUTPUT: VARIABLES NEEDED FOR DIFFERENT PRINTOUTS
  1. ; DGMTYPT - MT=1 Copay=2 None=0
  1. ; DGOPT - WHICH REPORTS TO PRINT
  1. ; DGPMDA - Admissions Report Info
  1. ; PRF - FLAG FOR RX PROFILE
  1. ; PSOINST - STATION NUMBER (INSTITUTION FILE) FOR ACTION PROFILE PRINT
  1. ; PSONOPG - USED FOR PRINTING ACTION PROFILE (SET TO 1)
  1. ; PSOPAR - PRINT BARCODES FOR ACTION PROFILE (SET TO 1)
  1. ; PSTYPE - TYPE OF DRUG PROFILE
  1. ; GMTSTYP - TYPE OF HEALTH SUMMARY
  1. ; EASMTIEN - Means Test IEN used for EZ/EZR
  1. ;
  1. ;
  1. N DG1,I,X,Y,FORM
  1. S FREE=+$P(^DG(43,1,0),U,8),DGOPT=""
  1. S PRF=0 G QTNOREG:'$D(^DG(43,1,0)) ;NEED MAS PARAMETERS TO CONTINUE
  1. I $$PROMPRN("THIRD") G:DG1<0 QTNOREG S DGOPT=DGOPT_3
  1. S FORM=$$SEL1010^DG1010P()
  1. S EASMTIEN=$$MTPRMPT^DG1010P(DFN,$G(DGMTI))
  1. I FORM<0 S DG1=-1 G QTNOREG
  1. I FORM="EZ" S DGOPT=DGOPT_0
  1. I FORM="EZR" S DGOPT=DGOPT_1
  1. I $$PROMPRN("HS") G:DG1<0 QTNOREG S DGOPT=DGOPT_8
  1. I $$PROMPRN("PRO") G:DG1<0 QTNOREG S DGOPT=DGOPT_5,PRF=1
  1. QTNOREG S:$G(DG1)<0 DGOPT=""
  1. Q
  1. PROMPRN(DGX) ; PROMPTS FOR PRINT
  1. ; RETURNS DGX [1=YES;0=NO;-1=DIRUT CONDITIONS]
  1. ; OUTPUT:DG1 VALUE
  1. S DG1=0
  1. I $$FAILCOND(DGX) S DG1=$S($D(DG1):DG1,1:2) G QTPROMP ;DEFAULT=NO
  1. F D Q:$G(DG1)
  1. .S DG1=$$ASK(DGX)
  1. .S:DG1=1 DG1=$$AFTERASK(DGX)
  1. QTPROMP Q $S(DG1=2:0,(DG1=1):1,1:DG1)
  1. ASK(DGX) ; PROMPTS FOR PRINT
  1. ;
  1. ; RETURNS DGX [2=NO,1=YES;0=?,-1=DIRUT CONDITIONS]
  1. W !,"PRINT "
  1. W $S(DGX="THIRD":"ERROR",(DGX="HS"):"HEALTH SUMMARY",(DGX="PRO"):"DRUG PROFILE",(DGX="EF"):"ENCOUNTER FORMS",1:"ERROR")
  1. S %=1 D YN^DICN I '% W !,"ENTER 'Y'ES TO PRINT A ",DGX,". OTHERWISE ENTER 'N'O."
  1. Q $G(%)
  1. FAILCOND(DGX) ;CHECKS IF PROMPT SHOULD BE ASKED
  1. ;
  1. ; DGI: 2=NO;1=YES;-1=DIRUT
  1. ;RETURNS 1=DON'T ASK AND SKIP TO NEXT;0=ASK
  1. ;
  1. N DGFAIL
  1. S DGFAIL=0
  1. I DGX=1010 G QTFAIL
  1. I DGX="THIRD" F D Q:$G(%) G QTFAIL
  1. .N DGNOQ,DGDEF
  1. .D ADM
  1. .S DGFAIL=1
  1. .I DGPMDA>0!$D(^DGS(41.1,"B",DFN)) D
  1. ..S (DGNOQ,DGDEF)=1 D ASK^DGBLRV
  1. ..S DG1=%
  1. I DGX="HS" S DGFAIL=1 D G QTFAIL
  1. .S X="GMTSDVR" X ^%ZOSF("TEST") I $T D
  1. ..S:$T(ENXQ^GMTSDVR)]""&($P(^DG(43,1,0),U,42)) DGFAIL=0
  1. I DGX="PRO" S DGFAIL=1 D G QTFAIL
  1. .S X="PSOSD1" X ^%ZOSF("TEST") I '$T Q
  1. .I '$P(^DG(43,1,0),U,17) Q
  1. .S DGFAIL=0
  1. I DGX="EF" D G QTFAIL
  1. .I $P(^DG(43,1,0),U,47)'=1 S DGFAIL=1 Q
  1. QTFAIL Q DGFAIL
  1. AFTERASK(DGX) ;ACTIONS AFTER REPONSE OF YES TO PRINT
  1. ;NOTE: Reports removed from DG REGISTRATION 10/10 REPRINT option are
  1. ; remaining to support any outside integrations.
  1. ;
  1. ; RETURNS DGGO[2=DON'T PRINT,1=PRINT,-1=ABORT]
  1. ; SETS PRINT-SETUP VARIABLES
  1. ; PSOINST - STATION NUMBER (INSTITUTION FILE) FOR ACTION PROFILE PRINT
  1. ; PSONOPG - USED FOR PRINTING ACTION PROFILE (SET TO 1)
  1. ; PSOPAR - PRINT BARCODES FOR ACTION PROFILE (SET TO 1)
  1. ; PSTYPE = DRUG PROFILE TYPE
  1. ; GMTSTYP = POINTER TO HEALTH SUMMARY TYPE
  1. ;
  1. N DGGO,DIR,X,Y
  1. S DGGO=1
  1. I DGX="HS" D ;HEALTH SUMMARY
  1. .S X=$P($G(^DG(43,1,0)),U,43),DIC=142,DIC(0)="NX"
  1. .D ^DIC K DIC
  1. .S:+Y DIR("B")=$P(Y,U,2)
  1. .S DIR(0)="PO^142:QAMEZ"
  1. .D ^DIR
  1. .I Y'>0 W !,*7,"No Type Selected. HS will not print" S DGGO=2 K DIR,DIRUT,DUOUT Q
  1. .S GMTSTYP=+Y
  1. I DGX="PRO" D ;DRUG PROFILE
  1. .S DGGO=0
  1. .N DGDEF
  1. .S DGDEF=$P(^DG(43,1,0),U,45)
  1. .I $P(^DG(43,1,0),U,44) D
  1. ..S:DGDEF]"" DIR("B")=$S(DGDEF="A":"ACTION",(DGDEF="I"):"INFORMATIONAL",1:"")
  1. ..S DIR(0)="SM^A:ACTION;I:INFORMATIONAL"
  1. ..S DIR("A")="Select type of Drug Profile"
  1. ..D ^DIR
  1. ..S DGDEF=Y
  1. .I '$D(DIRUT) D
  1. ..S (PSOPAR,PSTYPE)=$S(DGDEF="A":1,(DGDEF="I"):0,1:0),(DGGO,PSONOPG)=1
  1. ..S PSOINST=+$P($G(^DIC(4,+$P($G(^XMB(1,1,"XUS")),U,17),99)),U)
  1. Q DGGO
  1. ADM K DGPMDA I $D(^DGPM("ATID1",DFN)) F I=0:0 S I=$O(^DGPM("ATID1",DFN,I)) Q:'I!(I>(DFN1+.9999)) S DGPMDA=$O(^(I,0))
  1. S DGPMDA=$S($D(DGPMDA):DGPMDA,1:0)
  1. Q