Routine: PSOCLADD

Information

PSOCLADD ;BHAM ISC/DMA - Clozapine Registration Pharmacy Auto Update ;18 May 2020 12:29:40

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	3	($$FIND1,FIND)^DIC (FILE,UPDATE)^DIE $$GET1^DIQ
Kernel	1	($$DT,$$NOW)^XLFDT
MailMan	1	SENDMSG^XMXAPI
Registration	1	$$SITE^VASITE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Mental Health	1	^YSCL(603.01
Outpatient Pharmacy	1	^PS(52.52

Entry Points

Name	Comments	DBIA/ICR reference
TRGR(DFN,PSOCLZNW)	; Register/Re-Register Clozapine Patient	ICR #7175 Status: Active Usage: Private
SAVE	; Save new NCCC number and Active status to File 55 ; If patient has never been added to Pharmacy Patient file, add them now
ADD2TXT(L)	; add line L to the Message text
SEND	; Send Message to PSOCLZAU mail group
OVR5252(B5252,RXIEN)	; File fields into CLOZAPINE PRESCRIPTION OVERRIDES file (#52.52) ; Input: B5252 = IEN of current entry from CLOZAPINE PRESCRIPTION OVERRIDES (#52.52) ; RXIEN = IEN from PRESCRIPTION file #52 associated with current entry from CLOZAPINE PRESCRIPTRION OVERRIDES (#52.52) ; Output: OVERRIDE PROVIDER Field (#8) in CLOZAPINE PRESCRIPTION OVERRIDES (#52.52) ; ORDER Field (#9) CLOZAPINE PRESCRIPTION OVERRIDES (#52.52)
OVERONE(PSI5252,RXIEN,PSOPR,PSORN,PSOVRTM)	; Update previously filed override entry for the same RX

External References

Name	Field # of Occurrence
$$FIND1^DIC	TRGR+10, TRGR+17
FIND^DIC	TRGR+15, OVR5252+11
FILE^DIE	SAVE+12, OVR5252+21, OVERONE+9
UPDATE^DIE	SAVE+5
$$GET1^DIQ	TRGR+9, TRGR+12, TRGR+18, TRGR+19, OVR5252+12, OVR5252+14, OVERONE+3, OVERONE+11
$$SITE^VASITE	SEND+4
$$DT^XLFDT	SAVE+11
$$NOW^XLFDT	SEND+4
SENDMSG^XMXAPI	SEND+14

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^PSRX - [#52]	FIND^DIC
^PS(52.52 - [#52.52]	GET1^DIQ
^PS(55 - [#55]	FIND1^DIC
^YSCL(603.01 - [#603.01]	FIND1^DIC, FIND^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	TRGR+3
^PS(52.52 - [#52.52]	OVR5252+8, OVR5252+9, OVERONE+2
^PS(55 - [#55]	SAVE+3
^PSRX - [#52]	OVR5252+7, OVERONE+4
^TMP($J	TRGR+8!, ADD2TXT+2*, SEND+14, SEND+15!
^XTMP("PSJ4D-"	SAVE+16!
^XTMP("PSO4D-"	SAVE+16!

Label References

Name	Line Occurrences
ADD2TXT	TRGR+12, TRGR+13, TRGR+19, TRGR+20, TRGR+21, SAVE+13, SAVE+14, SAVE+15, SEND+10, SEND+11 , SEND+12
OVERONE	OVR5252+16
SEND	TRGR+14, TRGR+22, SAVE+17

Naked Globals

Name	Field # of Occurrence
^(0	ADD2TXT+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TRGR+5~, SEND+1~
%DT	SEND+1~
%H	SEND+1~
%Y	TRGR+5~
B5252	OVR5252~, OVR5252+8
C	TRGR+5~, ADD2TXT+2~*
D	TRGR+5~, SEND+1~
D0	TRGR+5~
DA	TRGR+5~, SEND+1~
DD	SEND+1~
DFN	TRGR~, TRGR+2, TRGR+3, TRGR+9, TRGR+11, TRGR+15, TRGR+18, SAVE+3, SAVE+4, SAVE+5 , SAVE+9, SAVE+10, SAVE+11, SAVE+16
DFNIEN	SAVE+4~
DFNIEN(1	SAVE+4*
DI	TRGR+5~
DIC	TRGR+5~, TRGR+7~, SEND+1~, OVR5252+5~
DIE	TRGR+5~, SEND+1~
DIK	SEND+1~
DIR	TRGR+7~, OVR5252+5~
DQ	TRGR+5~
DR	TRGR+5~
DUZ	SEND+14
G	SEND+11~*
L	ADD2TXT~, ADD2TXT+1*, ADD2TXT+2
PS1IEN52	OVERONE+1~, OVERONE+2*, OVERONE+3, OVERONE+7, OVERONE+8, OVERONE+11
PS1RXIEN	OVERONE+1~, OVERONE+3*, OVERONE+4, OVERONE+5
PSERR	OVR5252+6~
PSFDA	OVR5252+5~, OVR5252+21!, OVERONE+1~
PSFDA(	OVR5252+18, OVR5252+19, OVR5252+20, OVERONE+7, OVERONE+8*
PSI5252	OVR5252+5~, OVR5252+8*, OVR5252+9, OVR5252+16, OVR5252+18, OVR5252+19, OVR5252+20, OVERONE~, OVERONE+2
PSO	TRGR+5~
PSO1	TRGR+5~, TRGR+9*
PSO2	TRGR+5~
PSO3	TRGR+5~
PSO4	TRGR+5~
PSOC	TRGR+5~
PSOCLZNW	TRGR~, TRGR+1, TRGR+10, TRGR+12, TRGR+13, TRGR+17, TRGR+19, TRGR+20, TRGR+21, SAVE+9 , SAVE+13, SAVE+15
PSOCZPTS	TRGR+7~
PSOCZPTS("DILIST"	TRGR+16
PSOERMSG	SAVE+2~, SAVE+6, SAVE+13, SAVE+15
PSOERMSG("DIERR"	SAVE+14
PSOERR	TRGR+7~, SAVE+7*
PSOEX	TRGR+10~*, TRGR+11, TRGR+12
PSOFDA	SAVE+5~, SAVE+8~
PSOFDA(55	SAVE+5, SAVE+9, SAVE+10, SAVE+11
PSOLN	TRGR+5~
PSONAME	TRGR+5~, TRGR+7~, TRGR+9*, TRGR+13, TRGR+19, TRGR+21, SAVE+13, SAVE+15
PSONFILE	TRGR+17~*, TRGR+18, TRGR+20
PSONO	TRGR+5~
PSOPR	OVR5252+6~, OVR5252+10, OVR5252+13, OVR5252+16, OVR5252+17, OVR5252+19, OVERONE~, OVERONE+6, OVERONE+7
PSOPRCHK	OVR5252+6~, OVR5252+12*, OVR5252+13
PSORN	OVR5252+6~, OVR5252+10, OVR5252+15, OVR5252+16, OVR5252+17, OVR5252+20, OVERONE~, OVERONE+6, OVERONE+8
PSORNCHK	OVR5252+6~, OVR5252+14*, OVR5252+15
PSORX	OVR5252+6~
PSORX("DILIST"	OVR5252+12, OVR5252+13, OVR5252+14, OVR5252+15
PSOSSN	TRGR+7~, TRGR+9*, TRGR+13, TRGR+19, SAVE+13, SAVE+15
PSOT	TRGR+5~
PSOTHZP	TRGR+7~, TRGR+18*, TRGR+19
PSOTHZPF	TRGR+7~, TRGR+18*
PSOVRTM	OVR5252+5~, OVR5252+16, OVR5252+17, OVR5252+18, OVERONE~, OVERONE+11*
PSOZST	TRGR+7~
R	TRGR+5~
RET	SEND+1~
RXIEN	OVR5252~, OVR5252+7, OVR5252+9, OVR5252+11, OVR5252+16, OVERONE~, OVERONE+2, OVERONE+5
SSNVAERR	TRGR+5~
TXTLN	SAVE+14~*
U	SEND+4
X	SEND+1~, OVR5252+5~
XMDUN	SEND+1~, SEND+4*
XMDUZ	TRGR+5~, SEND+1~, SEND+4*
XMER	SEND+1~
XMFROM	SEND+1~
XMREC	SEND+2~
XMRG	SEND+2~
XMSUB	TRGR+5~, SEND+2~, SEND+4*, SEND+14
XMTEXT	TRGR+5~, SEND+2~
XMY	SEND+2~, SEND+5!, SEND+14
XMY(	SEND+11
XMY("G.PSOCLOZ"	SEND+7*
XMZ	SEND+2~
XQDATE	SEND+2~
XQSUB	SEND+2~
Y	TRGR+5~, OVR5252+5~
YSPROD	SEND+5~
YSXMZ	SEND+5~, SEND+14

Customize PDF page

Package: Outpatient Pharmacy