From 1d687495254ac0e309d969280a6699b93a5eb442 Mon Sep 17 00:00:00 2001
From: inportb <inportb@gmail.com>
Date: Mon, 24 Apr 2023 21:23:35 -0400
Subject: [PATCH] Patient visits page

---
 htdocs/App.vue                |  2 +
 htdocs/Navbar.vue             |  5 +++
 htdocs/RoutePatientVisits.vue | 77 +++++++++++++++++++++++++++++++++++
 htdocs/ViewVisits.vue         | 54 ++++++++++++++++++++++++
 htdocs/vistax.mjs             |  2 +
 5 files changed, 140 insertions(+)
 create mode 100644 htdocs/RoutePatientVisits.vue
 create mode 100644 htdocs/ViewVisits.vue

diff --git a/htdocs/App.vue b/htdocs/App.vue
index 7c3b3bc..ce3aa40 100644
--- a/htdocs/App.vue
+++ b/htdocs/App.vue
@@ -14,6 +14,7 @@
 	import RouteSchedule from './RouteSchedule.vue';
 	import RoutePatientLookup from './RoutePatientLookup.vue';
 	import RoutePatientDetail from './RoutePatientDetail.vue';
+	import RoutePatientVisits from './RoutePatientVisits.vue';
 	import RouteScheduleOverview from './RouteScheduleOverview.vue';
 	import RouteRecall from './RouteRecall.vue';
 
@@ -42,6 +43,7 @@
 						{ path: '/', component: RouteSchedule },
 						{ path: '/patient', component: RoutePatientLookup },
 						{ path: '/patient/:id', component: RoutePatientDetail },
+						{ path: '/patient/:id/visits', component: RoutePatientVisits },
 						{ path: '/overview', component: RouteScheduleOverview },
 						{ path: '/recall', component: RouteRecall },
 					].forEach(route => this.$root.$router.addRoute(route));
diff --git a/htdocs/Navbar.vue b/htdocs/Navbar.vue
index 411d78a..0464a0a 100644
--- a/htdocs/Navbar.vue
+++ b/htdocs/Navbar.vue
@@ -13,6 +13,11 @@
 					<li class="nav-item">
 						<router-link class="nav-link" to="/patient">Patient</router-link>
 					</li>
+					<template v-if="($route.matched.length > 0) && ($route.matched[0].path == '/patient/:id')">
+						<li class="nav-item">
+							<router-link class="nav-link" :to="'/patient/' + $route.params.id + '/visits'">Visits</router-link>
+						</li>
+					</template>
 					<li class="nav-item">
 						<router-link class="nav-link" to="/overview">Overview</router-link>
 					</li>
diff --git a/htdocs/RoutePatientVisits.vue b/htdocs/RoutePatientVisits.vue
new file mode 100644
index 0000000..7e5a074
--- /dev/null
+++ b/htdocs/RoutePatientVisits.vue
@@ -0,0 +1,77 @@
+<template>
+	<div v-if="(sensitive) && (!info)" class="alert alert-danger text-center mb-3 shadow" role="alert">
+		<h1>Warning: Restricted Record</h1>
+		<p>This record is protected by the Privacy Act of 1974 and the Health Insurance Portability and Accountability Act of 1996. If you elect to proceed, you will be required to prove you have a need to know. Accessing this patient is tracked, and your station Security Officer will contact you for your justification.</p>
+		<router-link class="btn btn-danger" :to="'/patient/' + dfn + '/orders?viewsensitive'">Proceed</router-link>
+	</div>
+	<div v-if="info">
+		<div class="card mb-3 shadow">
+			<div class="card-header">{{info.name}} <span :title="info.pid">{{info.pid.slice(-4)}}</span> #{{dfn}}</div>
+			<div class="card-body row" style="font-family: monospace;">
+				<div class="col" v-if="info.dob"><strong>DOB:</strong> {{strptime_vista(info.dob).toLocaleDateString('sv-SE')}}</div>
+				<div class="col" v-if="info.age"><strong>Age:</strong> {{info.age}}</div>
+				<div class="col" v-if="info.sex"><strong>Sex:</strong> {{info.sex}}</div>
+				<div class="col" v-if="info.sc_percentage"><strong>SC%:</strong> {{info.sc_percentage}}</div>
+				<div class="col" v-if="info.type"><strong>Type:</strong> {{info.type}}</div>
+				<div class="col" v-if="info.ward"><strong>Ward:</strong> {{info.ward}}</div>
+				<div class="col" v-if="info.room_bed"><strong>Room/bed:</strong> {{info.room_bed}}</div>
+			</div>
+		</div>
+		<div class="card mb-3 shadow">
+			<div class="card-header d-flex justify-content-between align-items-center">
+				<span>Visits</span>
+				<DateRangePicker range="6M" direction="-1" v-model:date="visits_date" v-model:date_end="visits_date_begin" />
+			</div>
+			<div class="card-body"><ViewVisits :client="client" :dfn="dfn" :date_begin="visits_date_begin" :date_end="visits_date" /></div>
+		</div>
+	</div>
+</template>
+
+<script>
+	import { strptime_vista } from './util.mjs';
+
+	import DateRangePicker from './DateRangePicker.vue';
+	import OrderFilterPicker from './OrderFilterPicker.vue';
+	import ViewVisits from './ViewVisits.vue';
+
+	var now = new Date();
+
+	export default {
+		components: {
+			DateRangePicker, OrderFilterPicker, ViewVisits
+		},
+		props: {
+			client: Object
+		},
+		data() {
+			return {
+				dfn: null,
+				sensitive: false,
+				info: null,
+				orders_filter: 2,
+				visits_date: now,
+				visits_date_begin: now
+			};
+		},
+		watch: {
+			info(value) {
+				if((value) && (value.name)) document.title = value.name;
+			}
+		},
+		methods: {
+			strptime_vista,
+			async loadinfo(dfn, viewsensitive) {
+				this.dfn = dfn;
+				this.sensitive = viewsensitive ? false : await this.client.ORWPT_SELCHK(dfn);
+				this.info = this.sensitive ? null : await this.client.ORWPT16_ID_INFO(dfn);
+			}
+		},
+		async mounted() {
+			this.loadinfo(this.$route.params.id, this.$route.query.hasOwnProperty('viewsensitive'));
+		},
+		async beforeRouteUpdate(to, from, next) {
+			this.loadinfo(to.params.id, to.query.hasOwnProperty('viewsensitive'));
+			next();
+		}
+	};
+</script>
diff --git a/htdocs/ViewVisits.vue b/htdocs/ViewVisits.vue
new file mode 100644
index 0000000..f8d3bf4
--- /dev/null
+++ b/htdocs/ViewVisits.vue
@@ -0,0 +1,54 @@
+<template>
+	<table v-if="resultset.length > 0" class="table table-striped">
+		<thead>
+			<tr>
+				<th>Date/Time</th>
+				<th>Location</th>
+				<th style="text-align: right;">Status</th>
+			</tr>
+		</thead>
+		<tbody>
+			<tr v-for="item in resultset">
+				<td>{{item.timestr}} {{item.datestr}}</td>
+				<td>{{item.location}}</td>
+				<td style="text-align: right;">{{item.status}}</td>
+			</tr>
+		</tbody>
+	</table>
+</template>
+
+<script>
+	import { strftime_vista, strptime_vista } from './util.mjs';
+
+	export default {
+		props: {
+			client: Object,
+			dfn: String,
+			date_begin: Date,
+			date_end: Date
+		},
+		data() {
+			return {
+				resultset: []
+			};
+		},
+		computed: {
+			params() {
+				return { dfn: this.dfn, date_begin: strftime_vista(this.date_begin), date_end: strftime_vista(this.date_end) };
+			}
+		},
+		watch: {
+			async params(value) {
+				try {
+					this.resultset = (await this.client.ORWCV_VST(value.dfn, value.date_begin, value.date_end, '')).map(item => Object.assign({
+						datestr: strptime_vista(item.datetime).toLocaleDateString('sv-SE'),
+						timestr: strptime_vista(item.datetime).toLocaleTimeString('en-GB')
+					}, item));
+				} catch(ex) {
+					this.resultset = [];
+					console.warn(ex);
+				}
+			}
+		}
+	};
+</script>
diff --git a/htdocs/vistax.mjs b/htdocs/vistax.mjs
index d6440a5..4957e14 100644
--- a/htdocs/vistax.mjs
+++ b/htdocs/vistax.mjs
@@ -209,6 +209,8 @@ export function Client(cid, secret) {
 	this.TIU_TEMPLATE_LOCK = unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_LOCK', ...args), 'TIU_TEMPLATE_LOCK'));
 	this.TIU_TEMPLATE_UNLOCK = unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_UNLOCK', ...args), 'TIU_TEMPLATE_UNLOCK'));
 
+	this.ORWCV_VST = memoized(caretseparated(unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'ORWCV_VST', ...args), 'ORWCV_VST')), ['apptinfo', 'datetime', 'location', 'status']));
+
 	return this;
 }
 Client._registry = {};