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

DGPREP2.m

Go to the documentation of this file.
  1. DGPREP2 ;ALB/SCK - Pre-Registration Cont. ; 12/31/96
  1. ;;5.3;Registration;**109**;Aug 13, 1993
  1. Q
  1. ;
  1. EN ; -- main entry point for the DGPRE HIST protocol
  1. I '$D(^DGS(41.43,"C",PTIFN)) Q
  1. D EN^VALM("DGPRE HIST")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="Calling History for "_$P(^DPT(PTIFN,0),U)
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. ; Variables
  1. ; DGPDT - Formatted date from Call Log, #41.43
  1. ; DGPDD - Status entries from the DD for #41.43
  1. ; DGPNR - No. of entries, index for LM IDX global
  1. ; DGPN1 - Local Var for $O
  1. ; DGPDATA - 0 node from Call Log file, #41.43
  1. ;
  1. N DGPN1,DGPNR,DGPNDX,DGPDD,DGPDT,DGPDATA
  1. ;
  1. K ^TMP($J)
  1. K ^TMP("DGPPR2",$J)
  1. S DGPN1=0 F S DGPN1=$O(^DGS(41.43,"C",PTIFN,DGPN1)) Q:'DGPN1 D
  1. . S ^TMP($J,$P(^DGS(41.43,DGPN1,0),U))=DGPN1
  1. S DGPNR=1
  1. S DGPDD=$P(^DD(41.43,3,0),U,3)
  1. S DGPN1=1 F Q:$P(DGPDD,";",DGPN1)']"" S DGPT($P($P(DGPDD,";",DGPN1),":"))=$P($P(DGPDD,";",DGPN1),":",2),DGPN1=DGPN1+1
  1. S DGPN1=9999999.999999 F S DGPN1=$O(^TMP($J,DGPN1),-1) Q:'DGPN1 D
  1. . S DGPDATA=^DGS(41.43,^TMP($J,DGPN1),0)
  1. . S DGPDT=$$FMTE^XLFDT($P(DGPDATA,U),1)
  1. . S X=$$SETFLD^VALM1(DGPNR,"","INDEX")
  1. . S X=$$SETFLD^VALM1(DGPDT,X,"DATE/TIME")
  1. . I $P(DGPDATA,U,3)]"" S X=$$SETFLD^VALM1($P(^VA(200,$P(DGPDATA,U,3),0),U),X,"CALLED BY")
  1. . I $P(DGPDATA,U,4)]"" S X=$$SETFLD^VALM1(DGPT($P(DGPDATA,U,4)),X,"STATUS")
  1. . S ^TMP("DGPPR2",$J,DGPNR,0)=X
  1. . S ^TMP("DGPPR2",$J,"IEN",DGPNR,^TMP($J,DGPN1))=""
  1. . S ^TMP("DGPPR2",$J,"IDX",DGPNR,DGPNR)=""
  1. . S DGPNR=DGPNR+1
  1. S VALMCNT=DGPNR-1
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K ^TMP("DGPPR2",$J)
  1. K DGPDATA
  1. D FULL^VALM1
  1. D CLEAN^VALM10
  1. Q
  1. ;
  1. EXPND ; -- expand on the selected call log entry
  1. ; Variables
  1. ; DGPIEN - IEN of selected patient
  1. ; DGPCM - Comments from the Call Log, displayed 1 line at a time
  1. ; DGPN1-3 - Loacal Var's for $O
  1. ;
  1. N DGPN1,DGPIEN,DGPN2,DGPN3,DGPCM,VALMI,VALMAT,VALMY
  1. ;
  1. D FULL^VALM1
  1. D EN^VALM2(XQORNOD(0),"S") S VALMI=0
  1. I '$D(VALMY) S VALMBCK="R" Q
  1. ;
  1. S DGPN1="",DGPN2=$O(VALMY(DGPN1))
  1. S DGPIEN="",DGPIEN=$O(^TMP("DGPPR2",$J,"IEN",DGPN2,DGPIEN))
  1. ;
  1. S DGPN3=""
  1. F S DGPN3=$O(^DGS(41.43,DGPIEN,1,DGPN3)) Q:DGPN3']"" D
  1. . S DGPCM=$G(^DGS(41.43,DGPIEN,1,DGPN3,0))
  1. . I DGPCM]"" W !,DGPCM
  1. D PAUSE^VALM1
  1. Q
  1. ;
  1. INQ ; Entry point for patient Inquiry
  1. ;
  1. N DGPRFLG
  1. S DGPRFLG=1
  1. D ^DGRPD
  1. Q
  1. ;
  1. PTINQ ; Patient inquiry protocol
  1. N DGPN1,DGPN2,DFN,DGPRFLG
  1. ;
  1. D FULL^VALM1
  1. D EN^VALM2(XQORNOD(0),"S") S VALMI=0
  1. ;
  1. I '$D(VALMY) S VALMBCK="R" Q
  1. S DGPN1="",DGPN2=$O(VALMY(DGPN1))
  1. S DFN="",DFN=$O(^TMP("DGPRERG",$J,"DFN",DGPN2,DFN))
  1. ;
  1. ; *** Force check for Sensitive patient
  1. S DIC=2,DIC(0)="ENQ",X=DFN D ^DIC K DIC
  1. Q:Y<0
  1. ;
  1. S DGPRFLG=1
  1. D EN^DGRPD
  1. D PAUSE^VALM1
  1. Q