Routine: PSSHL1

Information

PSSHL1 ;BIR/RLW/WRT-BUILD HL7 MESSAGE TO POPULATE ORDERABLE ITEM FILE ;09/08/97

Source Information

Source file <PSSHL1.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	4	C^%DTC ^DIC FILE^DICN ^DIE
Pharmacy Data Management	2	EN2^PSSHL1 ($$USAGE,INIT,MF,SEGMENT)^PSSHLU
Health Level Seven	1	$$HLDATE^HLFNC

Caller Graph

Caller Graph Total: 12

Package	Total	Caller Graph
Pharmacy Data Management	11	PSSADDIT PSSDEE PSSHL1 PSSPOIDT PSSPOIM1 PSSPOIMO PSSPRUTL PSSSOLI1 PSSSOLIT PSSSUTIL PSSVIDRG
Order Entry Results Reporting	1	ORSETUP

Entry Points

Name	Comments	DBIA/ICR reference
ENIVID	; Edit IV Identifier field to be displayed with IV Orderable Items.
GTIVID()	; Return IV Identifier. If being edited, wait until edit is done.
MFE(PSSIVID)	; set master file entry segment fields ; Input: PSSIVID-IV Identifier
SKIP	;
ZPS	; get USAGE from dispense drug(s), set ZPS segment
ZSY	; get SYNONYMs
EN1	; start here for pre-install auto load	ICR #2405 Status: Active Usage: Private
INIT	; initialize HL7 variables, set master file identification segment fields
EN2(PSJSPIEN,PSJEC)	; start here for "manual" update
PRO	;Check for protocols
LOOP	; loop through PHARMACY ORDERABLE ITEM file

Name	Field # of Occurrence
C^%DTC	EN1+5, EN1+7
^DIC	ENIVID+3
FILE^DICN	PRO+5
^DIE	ENIVID+5
$$HLDATE^HLFNC	MFE+6
EN2^PSSHL1	ENIVID+8
$$USAGE^PSSHLU	ZPS+3
INIT^PSSHLU	INIT+2
MF^PSSHLU	SKIP+3, EN2+7
SEGMENT^PSSHLU	INIT+7, MFE+8, ZPS+9, ZSY+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"This routine should not be accessed through programmer mode!",! Line Location: PSSHL1+8
Function Call: WRITE	Prompt: !!?5,"Sorry, you need the OR ITEM RECEIVE protocol to proceed,",!?5,"which is exported with Order Entry/Results Reporting V3!",! Line Location: PRO+2
Function Call: WRITE	Prompt: !!?5,"Sorry, unable to add OR ITEM RECEIVE protocol as an Item to the PS MFSEND",!,"protocol, cannot proceed!",! Line Location: PRO+6
Function Call: WRITE	Prompt: !!!,"Changing the IV Identifier will update the name of ALL Orderable Items",!,"marked as an IV!",!! Line Location: ENIVID+4
Function Call: WRITE	Prompt: !!,"Updating Orderable Item names in OE/RR" Line Location: ENIVID+7
Function Call: WRITE	Prompt: "." Line Location: ENIVID+8
Function Call: WRITE	Prompt: "." Line Location: ENIVID+9
Routine Call	DIE Line Location: ENIVID+5
Routine Call	DIC Line Location: ENIVID+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	PRO+1, PRO+2, PRO+3, PRO+4*
^PS(50.606 - [#50.606]	MFE+7
^PS(50.7 - [#50.7]	EN2+3, LOOP+2, MFE+3, MFE+6, MFE+7, ZPS+4, ZPS+6, ZPS+7, ZPS+8, ZSY+3 , ENIVID+8
^PS(59.7 - [#59.7]	EN1+3, EN1+8, SKIP+4*, EN2+1, ENIVID+5, ENIVID+6, GTIVID+1, GTIVID+2, GTIVID+3, GTIVID+4
^TMP("HLS"	SKIP+6!, EN2+8!
^XTMP("PSO_V7 INSTALL"	EN1+5, EN1+6, EN1+7, EN1+8!, SKIP+5!

Name	Line Occurrences
$$GTIVID	INIT+1
INIT	SKIP+2, EN2+6
LOOP	SKIP+3
MFE	EN2+7, LOOP+2
PRO	EN1+2
SKIP	EN1+5
ZPS	MFE+9
ZSY	MFE+9

Name	Field # of Occurrence
^(	ZSY+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPL	EN1+4~, EN2+4~
CODE	EN1+4~, SKIP+1, EN2+4~, EN2+5, INIT+5
DA	PRO+5!, ENIVID+2~, ENIVID+5*
DA(1	PRO+5*
DD	PRO+5!
DIC	PRO+5!, PRO+6!, ENIVID+2~, ENIVID+3
DIC(0	PRO+5, ENIVID+3
DIE	ENIVID+2~, ENIVID+5*
>> DILOCKTM	EN1+5, EN1+6, EN1+7, GTIVID+2
>> DLAYGO	PRO+5*
DO	PRO+5!
>> DR	ENIVID+5*
DRG	ENIVID+2~
DT	EN1+5, EN1+7
FIELD	EN1+4~, EN2+4~
FIELD(0	INIT+3, MFE+4, ZPS+2, ZSY+2
FIELD(1	INIT+4, MFE+5, ZPS+5, ZPS+6, ZPS+7, ZSY+4
FIELD(2	ZPS+8, ZSY+4
FIELD(3	INIT+5, MFE+6
FIELD(4	MFE+7*
FIELD(6	INIT+6*
>> HLMTN	INIT+1*
>> I	ZPS+5*
ITEM	EN1+1~, PRO+1*, PRO+2
>> J	ZSY+3*
LIMIT	EN1+4~, EN2+4~, INIT+1, INIT+7, MFE+2, MFE+8, ZPS+1, ZPS+9, ZSY+1, ZSY+4
MENU	EN1+1~, PRO+1*
MENUP	EN1+1~, PRO+1*, PRO+3, PRO+4, PRO+5
MFE	EN1+4~, EN2+4~
PSJCLEAR	SKIP+6!, INIT+2, MFE+2, ZPS+1, ZSY+1
PSJEC	SKIP+1, SKIP+6!, EN2~, EN2+3, MFE+5
PSJI	EN1+4~, SKIP+3, EN2+4~, EN2+7, INIT+1*
PSJSPIEN	SKIP+6!, EN2~, EN2+3, LOOP+2*, MFE+3, MFE+6, MFE+7, ZPS+3, ZPS+4, ZPS+6 , ZPS+7, ZPS+8, ZSY+3
PSLSITE	SKIP+4!, EN2+1!, EN2+4!
PSSDRG	ENIVID+2~
PSSFIL	ENIVID+2~
PSSIVID	EN2+7, INIT+1, LOOP+2, MFE~, MFE+7, ENIVID+2~, ENIVID+5, ENIVID+6
PSSMFU	EN1+3*!, EN1+8, SKIP+6!
PSSOI	ENIVID+2~, ENIVID+8*
>> PSSSITE	ENIVID+5*, ENIVID+6
PX	GTIVID+1~*, GTIVID+4
SEGMENT	EN1+4~, EN2+4~
SPDNAME	EN1+4~, EN2+4~
SYN	EN1+4~, EN2+4~
>> SYNIEN	ZSY+3*
SYNONYM	EN1+4~, EN2+4~, ZSY+3*, ZSY+4
U	ENIVID+5, ENIVID+6, GTIVID+3
USAGE	EN1+4~, EN2+4~, ZPS+3*, ZPS+4, ZPS+5
X	EN1+4~, EN1+5, EN1+7, EN2+4~, MFE+3, MFE+7, PRO+2, PRO+3, ENIVID+2~, GTIVID+1~* , GTIVID+2, GTIVID+3*, GTIVID+5
>> X1	EN1+5, EN1+7
>> X2	EN1+5, EN1+7
>> XPDABORT	EN1+2, PRO+2, PRO+6
Y	PRO+6, ENIVID+2~, ENIVID+3, ENIVID+5
ZCOUNT	EN2+4~
ZUSAGE	EN2+4~

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSHL1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: