Routine: PSBUTL

Information

PSBUTL ;BIRMINGHAM/EFC-BCMA UTILITIES ;29-May-2012 14:23;PLS

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
VA Fileman	10	^%DT (,H,NOW,YMD)^%DTC EN^DDIOL ^DIC FIELD^DID UPDATE^DIE $$EXTERNAL^DILFD ($$GET1,GETS)^DIQ ^DIR ^DIWP
Kernel	3	($$DEFDIR,$$DEL,$$FTG,CLOSE,OPEN)^%ZISH ENDR^%ZISS ($$PATCH,$$VERSION)^XPDUTL
Barcode Medication Administration	2	$$IVPTAB^PSBVDLU3 (CLEAN,PSJ1)^PSBVT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Barcode Medication Administration	8	PSB DRUG INQUIRY PSBMD PSBML PSBML2 PSBMLVAL PSBO PSBOWA PSBVDLVL

Entry Points

Name	Comments	DBIA/ICR reference
SUNDAY(X,PSBDISP)	;
SCRNPTCH	;
DIFF(X,X1)	; Difference in minutes between 2 FM dates ; Code copied from Fileman Function MINUTES
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
CLOCK(RESULTS,X)	; Verify Client/Server Date/Times are close enough
TIMEOUT(X)	;
HFSOPEN(HANDLE)	;
DIWP(X,Y,PSB,PSBARGN)	;
SATURDAY(X,PSBDISP)	;
DRUGINQ	; Drug File Inquiry
TIMEIN	;
HFSCLOSE(HANDLE)	;
GIVEPTCH	;
RESETADM	;
VERSION()	; [Extrinsic] ; Returns V#.# for display purposes
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 PSB1.03 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. PSB1.01)

External References

Name	Field # of Occurrence
^%DT	CLOCK+8, TIMEIN+5
^%DTC	DIFF+2
H^%DTC	SATURDAY+1, SUNDAY+1
NOW^%DTC	CLOCK+9, TIMEIN+4, AUDIT+11
YMD^%DTC	SATURDAY+3, SUNDAY+3
$$DEFDIR^%ZISH	HFSOPEN+2, HFSCLOSE+4
$$DEL^%ZISH	HFSCLOSE+7
$$FTG^%ZISH	HFSCLOSE+6
CLOSE^%ZISH	HFSCLOSE+2
OPEN^%ZISH	HFSOPEN+4
ENDR^%ZISS	DRUGINQ+2
EN^DDIOL	SATURDAY+4, SUNDAY+4
^DIC	DRUGINQ+7
FIELD^DID	DRUGINQ+14, AUDIT+13
UPDATE^DIE	RESETADM+14
$$EXTERNAL^DILFD	AUDIT+12
$$GET1^DIQ	AUDIT+21, AUDIT+23
GETS^DIQ	DRUGINQ+10
^DIR	DRUGINQ+25
^DIWP	DIWP+2
$$IVPTAB^PSBVDLU3	RESETADM+7
CLEAN^PSBVT	RESETADM+7
PSJ1^PSBVT	RESETADM+7
$$GET^XPAR	CLOCK+11
$$PATCH^XPDUTL	CHECK+13
$$VERSION^XPDUTL	CHECK+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"DRUG FILE INQUIRY",! Line Location: DRUGINQ+7
Function Call: WRITE	Prompt: !?15 Condition for execution: $X>40 Line Location: DRUGINQ+22
Function Call: WRITE	Prompt: ?40 Condition for execution: $X>15 Line Location: DRUGINQ+22
Function Call: WRITE	Prompt: PSBRET(50.1,X,.01) Line Location: DRUGINQ+22
Function Call: WRITE	Prompt: ! Line Location: DRUGINQ+24
Routine Call	DIE Line Location: RESETADM+14
Routine Call	DIC Line Location: DRUGINQ+7
Routine Call	DIR Line Location: DRUGINQ+25

Used in RPC

RPC Name	Call Tags
PSB SERVER CLOCK VARIANCE	CLOCK
PSB CHECK SERVER	CHECK

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PSDRUG - [#50]	Classic Fileman Calls, FIELD^DID, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UPPERCASE"	TIMEIN+1
^PSB(53.79 - [#53.79]	DPTSET+3, DPTSET+6, DPTSET+7, DPTSET+10, DPTSET+13, DPTSET+16, DPTKILL+3!, DPTKILL+6, DPTKILL+7!, DPTKILL+10! , DPTKILL+13!, DPTKILL+16!, AUDIT+8, AUDIT+9, AUDIT+14, AUDIT+15, AUDIT+17, AUDIT+18, AUDIT+19, AUDIT+21 , AUDIT+23, AUDIT+24, AUDIT+25, RESETADM+7, SCRNPTCH+5, GIVEPTCH+1, GIVEPTCH+2, GIVEPTCH+3, GIVEPTCH+4, GIVEPTCH+5!
^TMP("PSBO"	HFSCLOSE+3!, HFSCLOSE+6
^UTILITY($J	DIWP+1!, DIWP+3, DIWP+8!

Label References

Name	Line Occurrences
$$DIFF	CLOCK+10

Naked Globals

Name	Field # of Occurrence
^(	DIWP+6
^(0	DPTSET+13, DPTKILL+13, AUDIT+14*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CLOCK+9, TIMEIN+4, AUDIT+11
>> %DT	CLOCK+8, TIMEIN+5
>> %H	SATURDAY+2, SUNDAY+2
>> %Y	SATURDAY+2, SUNDAY+2
AMPM	TIMEOUT+1~, TIMEOUT+6, TIMEOUT+7, TIMEOUT+9
>> D	DRUGINQ+4*
>> DA	DPTSET+3, DPTSET+6, DPTSET+7, DPTSET+10, DPTSET+13, DPTSET+16, DPTKILL+3, DPTKILL+6, DPTKILL+7, DPTKILL+10 , DPTKILL+13, DPTKILL+16, SCRNPTCH+5, GIVEPTCH+1, GIVEPTCH+2, GIVEPTCH+3, GIVEPTCH+4, GIVEPTCH+5
>> DFN	GIVEPTCH+1, GIVEPTCH+2, GIVEPTCH+4, GIVEPTCH+5
DIC	DRUGINQ+1~, DRUGINQ+4*
DIC("A"	DRUGINQ+4*
DIC("S"	DRUGINQ+6*
DIC("T"	DRUGINQ+4*
DIC(0	DRUGINQ+4*
DIR	DRUGINQ+1~
DIR(0	DRUGINQ+25*
DIWF	DIWP+2*, DIWP+8!
DIWL	DIWP+2*, DIWP+8!
DIWR	DIWP+2*, DIWP+8!
DT	TIMEIN+7
DUZ	HFSOPEN+3, HFSCLOSE+5, AUDIT+21, AUDIT+23, AUDIT+24, AUDIT+25
HANDLE	HFSOPEN~, HFSOPEN+4, HFSCLOSE~, HFSCLOSE+2
HOUR	TIMEOUT+1~, TIMEOUT+5, TIMEOUT+7, TIMEOUT+8, TIMEOUT+9
IOF	DRUGINQ+7, DRUGINQ+11, HFSOPEN+5*
IOINHI	DRUGINQ+1~, DRUGINQ+11, DRUGINQ+15, DRUGINQ+21
IOINORM	DRUGINQ+1~, DRUGINQ+12, DRUGINQ+20, DRUGINQ+23
IOM	DRUGINQ+12, HFSOPEN+5*
IOSL	DRUGINQ+24, HFSOPEN+5*
IOST	HFSOPEN+5*
MIN	TIMEOUT+1~, TIMEOUT+5*, TIMEOUT+9
>> POP	HFSOPEN+4
PSB	DIWP~, DIWP+4, DIWP+6, DIWP+7
PSBARGN	DIWP~, DIWP+6
>> PSBAUDIT	AUDIT+10
>> PSBCHEMT	RESETADM+7
PSBCLNT	CLOCK+7~, CLOCK+8*, CLOCK+10
PSBDATA	AUDIT~, AUDIT+10, AUDIT+12, AUDIT+21, AUDIT+23, AUDIT+24, AUDIT+25, CHECK~, CHECK+8, CHECK+10 , CHECK+13
PSBDD	AUDIT~, AUDIT+12, AUDIT+13
PSBDEL	HFSCLOSE+1~, HFSCLOSE+7
PSBDEL(	HFSCLOSE+5*
PSBDIFF	CLOCK+7~, CLOCK+10*, CLOCK+12, CLOCK+13
PSBDIR	HFSOPEN+1~, HFSOPEN+2, HFSOPEN+4, HFSCLOSE+1~, HFSCLOSE+4, HFSCLOSE+6, HFSCLOSE+7
PSBDISP	SATURDAY~, SATURDAY+4, SUNDAY~, SUNDAY+4
PSBDT	AUDIT+7~, AUDIT+11*, AUDIT+21, AUDIT+23, AUDIT+24, AUDIT+25
>> PSBFDA(	RESETADM+8*, RESETADM+9!
>> PSBFDAX(	RESETADM+11, RESETADM+12
PSBFILE	HFSOPEN+1~, HFSOPEN+3, HFSOPEN+4, HFSCLOSE+1~, HFSCLOSE+5, HFSCLOSE+6
PSBFLD	AUDIT~, AUDIT+12, AUDIT+13
PSBGOON	AUDIT+17, AUDIT+19*, AUDIT+26!
PSBGPTCH	SCRNPTCH+4, SCRNPTCH+7, GIVEPTCH+4!, GIVEPTCH+5!
PSBIEN	DRUGINQ+1~, DRUGINQ+9*, DRUGINQ+10, DRUGINQ+11, DRUGINQ+12, DRUGINQ+16, DRUGINQ+17, DRUGINQ+18, DRUGINQ+19, DRUGINQ+20 , RESETADM+7, RESETADM+8, RESETADM+9, RESETADM+13
>> PSBISYR	RESETADM+7
>> PSBIVPSH	RESETADM+7
>> PSBIVT	RESETADM+7
>> PSBMMEN	RESETADM+7, RESETADM+9, RESETADM+10
>> PSBOLDUZ	AUDIT+9, AUDIT+19, AUDIT+21
>> PSBOLSTS	AUDIT+8*, AUDIT+20
>> PSBONX	RESETADM+9, GIVEPTCH+1, GIVEPTCH+2
>> PSBOTYP	RESETADM+7
PSBREC	AUDIT~, AUDIT+8, AUDIT+9, AUDIT+14, AUDIT+15, AUDIT+17, AUDIT+18, AUDIT+19, AUDIT+21, AUDIT+23 , AUDIT+24, AUDIT+25
PSBREC(3	RESETADM+11, RESETADM+12
PSBRET	DRUGINQ+1~, DRUGINQ+8!
PSBRET(	DRUGINQ+22
PSBRET("LABEL"	DRUGINQ+15
PSBRET(50	DRUGINQ+11, DRUGINQ+16, DRUGINQ+17, DRUGINQ+18, DRUGINQ+19*, DRUGINQ+20
PSBSK	AUDIT~, AUDIT+17, AUDIT+21, AUDIT+24
PSBSRVR	CLOCK+7~, CLOCK+9*, CLOCK+10
PSBTMP	AUDIT+7~
PSBTMP("LABEL"	AUDIT+16, AUDIT+21, AUDIT+23, AUDIT+24, AUDIT+25
PSBWHAT	CHECK~, CHECK+7, CHECK+8*, CHECK+9, CHECK+12
>> PSBWSID	RESETADM+9*, RESETADM+10, RESETADM+11
PSBX	SCRNPTCH+5, SCRNPTCH+6, GIVEPTCH+1~, GIVEPTCH+2, GIVEPTCH+3*, GIVEPTCH+4!, GIVEPTCH+5!
RESULTS	CLOCK~, CHECK~
RESULTS(0	CLOCK+12, CLOCK+13, CHECK+7, CHECK+11, CHECK+14*
U	DPTSET+3, DPTSET+6, DPTSET+7, DPTSET+10, DPTSET+13, DPTSET+16, DPTKILL+3, DPTKILL+6, DPTKILL+7, DPTKILL+10 , DPTKILL+13, DPTKILL+16, AUDIT+8, AUDIT+9, AUDIT+19, AUDIT+21, AUDIT+23, AUDIT+24, AUDIT+25, RESETADM+7 , SCRNPTCH+5, GIVEPTCH+3
X	DIWP~, DIWP+3, DIWP+6, SATURDAY~, SATURDAY+1, SATURDAY+4, SATURDAY+5, SUNDAY~, SUNDAY+1, SUNDAY+4 , SUNDAY+5, CLOCK~, CLOCK+11, CLOCK+12, DIFF~, DIFF+2, DIFF+3, DRUGINQ+2, DRUGINQ+3, DRUGINQ+13 , DRUGINQ+14, DRUGINQ+16, DRUGINQ+17, DRUGINQ+18, DRUGINQ+19, DRUGINQ+20, DRUGINQ+22, DPTSET+3, DPTSET+7, DPTSET+10 , DPTSET+13, DPTSET+16, DPTKILL+3, DPTKILL+7, DPTKILL+10, DPTKILL+13, DPTKILL+16, TIMEIN+1, TIMEIN+2, TIMEIN+3 , TIMEIN+4, TIMEIN+5, TIMEIN+6!, TIMEIN+7, TIMEOUT~, TIMEOUT+2, TIMEOUT+3, TIMEOUT+4, TIMEOUT+5, HFSCLOSE+6* , HFSCLOSE+7, AUDIT+15, AUDIT+19, AUDIT+20, CHECK+10, CHECK+11, CHECK+13, CHECK+14, RESETADM+7, RESETADM+8 , RESETADM+11, RESETADM+12, RESETADM+13*
X1	DIFF~, DIFF+2
>> X2	DIFF+2, RESETADM+8
XY	AUDIT+17*, AUDIT+18, AUDIT+19, AUDIT+26!
Y	DIWP~, DIWP+2, DIWP+4, DIWP+6, CLOCK+8, DIFF+2, DRUGINQ+7, DRUGINQ+9, DRUGINQ+17, DRUGINQ+18 , DRUGINQ+19, TIMEIN+1, TIMEIN+6, TIMEIN+7, AUDIT+15, AUDIT+17, AUDIT+21, AUDIT+23, AUDIT+24, AUDIT+25
Y(0	RESETADM+10, SCRNPTCH+4

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBUTL

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: