PSBUTL ;BIRMINGHAM/EFC-BCMA UTILITIES ;03/06/16 3:06pm
Source file <PSBUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DIWP(X,Y,PSB,PSBARGN) | ;
|
|
| SATURDAY(X,PSBDISP) | ;
|
|
| SUNDAY(X,PSBDISP) | ;
|
|
| CLOCK(RESULTS,X) | ; Verify Client/Server Date/Times are close enough
|
|
| DIFF(X,X1) | ; Difference in minutes between 2 FM dates
; Code copied from Fileman Function MINUTES |
|
| DRUGINQ | ; Drug File Inquiry
|
|
| DPTSET | ; Set Logic for pt-merge x-ref on patient field in file 53.79
|
|
| DPTKILL | ; Kill Logic for pt-merge x-ref on patient field in file 53.79
|
|
| TIMEIN | ;
|
|
| TIMEOUT(X) | ;
|
|
| HFSOPEN(HANDLE) | ;
|
|
| HFSCLOSE(HANDLE) | ;
|
|
| AUDIT(PSBREC,PSBDD,PSBFLD,PSBDATA,PSBSK) | ; Med Log Audit
; used by cross references to 53.79 to track changes to fields in Med Log file ; xref AU05, AU06, AU09, AU16, AU21, AU22 pass the value 53.79 as PSBDD ; xref AU303, AU304 pass the value 53.795 as PSBDD ; xref AU603, AU604 pass the value 53.796 as PSBDD ; xref AU703, AU704 pass the value 53.797 as PSBDD |
|
| CHECK(RESULTS,PSBWHAT,PSBDATA) | ; Checks for KIDS Patch or Build
; Module added in Patch PSB*1.0*3 DP/TOPEKA 22-DEC-1999 11:51:22 ; PSBWHAT: B = Returns Build Version for packages by Namespace ; P = Returns if Patch is installed ; PSBDATA: Build/Package namespace (i.e. PSB) or Patch Number ; (i.e. PSB*1.0*1) |
|
| VERSION() | ; [Extrinsic]
; Returns V#.# for display purposes |
|
| RESETADM | ;
|
|
| SCRNPTCH | ;
|
|
| GIVEPTCH | ;
|
|
| VALGIV() | ;Validate Give, variance time set during a Trigger call *83
|
|
| VALREM() | ;Validate Remove, variance time set during a Trigger call *83
|
|
| REMSTR(A,D,TY,SP,PRSP) | ;build remove time string from admin time string via DOA value *83
; A = admin time strg e.g. "0900-2100" ; D = Duration of Admin (DOA) ; TY = sched type ; SP = order stop date ; PRSP = previous stop date |
|
| CNVRT4(STR,SEP) | ;Converts a time string to 4 digit for consistency *83
; STR - string of times ; SEP - separator character between times |
|
| FINDGIVE(IEN) | ;Finds the last Give date/time in the Audit log for a RM sts *83
; When a Remove action occurs and saved to 53.79, the Give Action ; Status & Action Date/Time are overwritten. This Function will ; retrieve that Give info. |
|
| ETFM(EX) | ;convert external to FM date format
|
|
| MEDHIST(LIST,DFN,OI,MAX) | ;Last nn admin actions per a patients Orderable Item
|
|
| FIXADM | ;Update ORD seg with GIVE status based on ALL ADM Records *83
; If any ADM's contain G then remove required for this ORDER |
|
| REMOVES(DFN,TYPE) | ;Searches xrefs for MRR type meds needing removal and adds *83
|
|
| SETMRR | ;Get and set MRR info for printing Removals
; If clinic order mode, skip removes for locations not on clinic list ; If No list then All clinics desired. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| RPC Name | Call Tags |
|---|---|
| PSB SERVER CLOCK VARIANCE | CLOCK |
| PSB CHECK SERVER | CHECK |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^PSDRUG - [#50] | Classic Fileman Calls, FIELD^DID, GETS^DIQ |
| ^PSB(53.79 - [#53.79] | GET1^DIQ |
