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

PXCEEXP.m

Go to the documentation of this file.
  1. PXCEEXP ;ISL/dee - Main routine for the List Manager display for encounter profile of a visit and related v-files ;6/20/96
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**172**;Aug 12, 1996
  1. ;;
  1. Q
  1. EN ; -- main entry point for PXCE ENCOUNTER PROFILE
  1. N PXCEVIEN,PXCEQUIT
  1. I PXCEVIEW["V" D
  1. . D GETVIEN^PXCEAE
  1. E I PXCEVIEW["A" D
  1. . S PXCEVIEN=$$SELAPPM^PXCESDAM
  1. . S:'PXCEVIEN PXCEVIEN=0
  1. E Q
  1. EN1 ;
  1. I $G(PXCEVIEN)'>0 D G QUIT
  1. . W !!,"There is no data stored in PCE to display."
  1. . D WAIT^PXCEHELP
  1. N PXCEAEVW
  1. I '$D(PXCEPAT) N PXCEKPAT D
  1. . S PXCEKPAT=1
  1. . S PXCEPAT=$P($G(^AUPNVSIT(PXCEVIEN,0)),"^",5)
  1. . D PATINFO^PXCEPAT(.PXCEPAT)
  1. S PXCEAEVW="D"
  1. ; next 3 lines added per PX*1.0*172
  1. N PXPTSSN,PXREC,PXDUZ S PXDUZ=DUZ,PXPTSSN=$TR($G(PXCEPAT("SSN")),"-")
  1. D SEC(.PXREC,PXDUZ,PXPTSSN)
  1. I PXREC W !!,"Security regulations prohibit computer access to your own medical record." H 3 G QUIT
  1. D EN^VALM("PXCE ENCOUNTER PROFILE")
  1. QUIT ;
  1. D MAKELIST^PXCENEW,DONE^PXCE
  1. Q
  1. ;
  1. SEC(PXREC,PXDUZ,PXPTSSN) ; added per PX*1.0*172
  1. N PXNPSSN S PXREC=0
  1. S PXNPSSN=$$GET1^DIQ(200,PXDUZ_",",9,"I","","PXNPERR")
  1. I PXNPSSN=PXPTSSN S PXREC=1
  1. Q
  1. ;
  1. HDR ; -- header code
  1. K VALMHDR
  1. N VISIT0
  1. ;
  1. ;PATIENT
  1. S VISIT0=^AUPNVSIT(PXCEVIEN,0)
  1. S VALMHDR(1)=$E(PXCEPAT("NAME"),1,26)
  1. S VALMHDR(1)=$E(VALMHDR(1)_$E(" ",1,(27-$L(VALMHDR(1))))_PXCEPAT("SSN")_" ",1,40)
  1. S VALMHDR(1)=VALMHDR(1)_"Clinic: "_$S($P(VISIT0,"^",22)>0:$P(^SC($P(VISIT0,"^",22),0),"^"),1:"")
  1. ;
  1. ;DATE
  1. S VALMHDR(2)=$E("Encounter Date "_$S($P(VISIT0,"^",1)>0:$$DATE^PXCEDATE($P(VISIT0,"^",1)),1:"")_" ",1,40)
  1. S VALMHDR(2)=VALMHDR(2)_"Clinic Stop: "_$S($P(VISIT0,"^",8)>0:$$DISPLY08^PXCECSTP($P(VISIT0,"^",8)),1:"")
  1. ;
  1. S VALMSG="+ Next Screen - Prev Screen ?? More Actions"
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. D BUILD^PXCEAE1(PXCEVIEN,PXCEAEVW,"^TMP(""PXCEAE"",$J)","^TMP(""PXCEAEIX"",$J)")
  1. I '$D(VALMBCK) K VALMHDR S VALMBCK="R"
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. D CLEAN^VALM10
  1. K ^TMP("PXCEAE",$J),^TMP("PXCEAEIX",$J)
  1. D:$D(PXCEKPAT) PATKILL^PXCEPAT
  1. K PXCEVIEN
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. S VALMBG=1
  1. S PXCEAEVW=$S(PXCEAEVW="D":"B",1:"D")
  1. D BUILD^PXCEAE1(PXCEVIEN,PXCEAEVW,"^TMP(""PXCEAE"",$J)","^TMP(""PXCEAEIX"",$J)")
  1. D DONE^PXCE
  1. Q
  1. ;