Routine: APSPESLP

Information

APSPESLP ;IHS/BWF - Process entries from APSP REFILL REQUEST file ;02-May-2013 18:07;DU

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
Order Entry Results Reporting	4	EN^OCXOERR $$PTR^ORCD SAVE^ORWD DLGDEF^ORWDX
VA Fileman	4	(,$$FIND1)^DIC (,FILE)^DIE ($$GET1,GETS)^DIQ ^DIR
IHS Changes To Pharmacy	3	PREPPTXT^APSPES2 $$SCREEN^APSPMULT ($$DIR,$$DIRYN)^APSPUTIL
Registration	3	EN^VALM ($$SETFLD,FULL)^VALM1 (CLEAN,SET)^VALM10
Kernel	2	($$FMTE,$$NOW)^XLFDT DISP^XQORM1
Outpatient Pharmacy	1	^PSOLSET

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Changes To Pharmacy	4	APSPESG APSPESG1 APSPESLM APSPESLR

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; -- header code
REQFLDS	;
CHKORD(OARY,MLIST)	;
BACK	;
PRMPT2(FILE,TIEN,SIEN,FLD,NODE,DFT)	;
EXPND	; -- expand code
HELP	; -- help code
GHLDAT(IEN)	; Get HL7 message data from APSP REFILL REQUEST FILE
CREATE	; Create new OE/RR order
SELITEM()	;
INIT	; -- init variables and list array
CHKDEF(IEN,TEXT)	;
DISPHL7(PAT,QTY,PROV,DRUG,NOTE,STR,UNITS,ROUTE,NOUN,SCHARY,MEDUNITS,REFILLS,PHARM,SIG,ARY)	; Display HL7 data
SHLVARS	; Set up HL segment data
EN	; -- main entry point for APSP LM REFILL REQUEST
PATNAME(PIDSEG)	;
GETIEN(FILE,PRMT,DEF,POP)	;
GETSEG(DATA,TYPE)	;
PRMPT(FILE,IENS,FLD,DFT)	; PROMPT FIELD
BLDARY(FLDARY)	;
EXIT	; -- exit code
DISPMIS(MLIST)	;

External References

Name	Field # of Occurrence
PREPPTXT^APSPES2	CREATE+12, CREATE+57
$$SCREEN^APSPMULT	CREATE+86
$$DIR^APSPUTIL	SELITEM+5
$$DIRYN^APSPUTIL	CREATE+18
^DIC	GETIEN+6
$$FIND1^DIC	GETIEN+4
^DIE	PRMPT+3, PRMPT2+4
FILE^DIE	CREATE+95
$$GET1^DIQ	INIT+7, INIT+8, INIT+12, GHLDAT+2, CREATE+23, CREATE+24, CREATE+30, GETIEN+4
GETS^DIQ	CREATE+19
^DIR	CREATE+27, CREATE+28, CREATE+34, CREATE+64, CREATE+69, CREATE+85, CREATE+86, CREATE+90
EN^OCXOERR	CREATE+91
$$PTR^ORCD	CREATE+53, CREATE+54, CREATE+56, CREATE+61, CREATE+62, CREATE+81, CREATE+82, CREATE+83
SAVE^ORWD	CREATE+88
DLGDEF^ORWDX	CREATE+70
^PSOLSET	EN+1
EN^VALM	EN+2
$$SETFLD^VALM1	INIT+17, INIT+18, INIT+19, INIT+20, INIT+21
FULL^VALM1	EXIT+2, CREATE+15, CREATE+27, CREATE+34, CREATE+64, CREATE+69, CREATE+90
CLEAN^VALM10	EXIT+1
SET^VALM10	INIT+22
$$FMTE^XLFDT	INIT+13
$$NOW^XLFDT	CREATE+94
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,LINE,!,"Displaying order information" Line Location: CREATE+14
Function Call: WRITE	Prompt: !,PTXT(I) Line Location: CREATE+16
Function Call: WRITE	Prompt: !!,"No orderable item defined. Can not process." Line Location: CREATE+27
Function Call: WRITE	Prompt: !!,"Days Supply not defined. Can not process." Line Location: CREATE+28
Function Call: WRITE	Prompt: !!,"No medication instructions, can not process entry." Line Location: CREATE+34
Function Call: WRITE	Prompt: !,"No signature, can not process entry." Line Location: CREATE+64
Function Call: WRITE	Prompt: !,"Order dialog 'PSO OERR' could not be found." Line Location: CREATE+69
Function Call: WRITE	Prompt: !,"Not a valid refill drug" Line Location: CREATE+86
Function Call: WRITE	Prompt: !,"Order not filed.",!,"Check data and try again." Line Location: CREATE+90
Function Call: WRITE	Prompt: !! Line Location: DISPHL7+2
Function Call: WRITE	Prompt: LINE Line Location: DISPHL7+4
Function Call: WRITE	Prompt: !," Displaying incoming HL7 data:",! Line Location: DISPHL7+5
Function Call: WRITE	Prompt: !," Patient: "_PAT Line Location: DISPHL7+6
Function Call: WRITE	Prompt: !," Provider: "_PROV Line Location: DISPHL7+7
Function Call: WRITE	Prompt: !," Medication: "_DRUG Line Location: DISPHL7+8
Function Call: WRITE	Prompt: !," SIG: "_SIG Line Location: DISPHL7+9
Function Call: WRITE	Prompt: !," Note: "_NOTE Line Location: DISPHL7+10
Function Call: WRITE	Prompt: !," Quantity: "_QTY Line Location: DISPHL7+11
Function Call: WRITE	Prompt: !," Refills: "_REFILLS Line Location: DISPHL7+12
Function Call: WRITE	Prompt: !," Pharmacy: "_PHARM Line Location: DISPHL7+13
Function Call: WRITE	Prompt: !!," Dosing information: (multiple line items indicates complex dosing)" Line Location: DISPHL7+14
Function Call: WRITE	Prompt: !,?5,$P(SCHARY(K),U),?15,$P(SCHARY(K),U,2),?25,$P(SCHARY(K),U,3),?35,$P(SCHARY(K),U,4) Line Location: DISPHL7+17
Function Call: WRITE	Prompt: !,LINE Line Location: DISPHL7+18
Function Call: WRITE	Prompt: !!,LINE Line Location: DISPMIS+2
Function Call: WRITE	Prompt: !,"The following items are not defined. This order can not be created." Line Location: DISPMIS+3
Function Call: WRITE	Prompt: !,"Please correct these items and try again." Line Location: DISPMIS+4
Function Call: WRITE	Prompt: !,LINE Line Location: DISPMIS+7
Routine Call	DIE Line Location: PRMPT+3 PRMPT2+4
Routine Call	DIR Line Location: CREATE+27 CREATE+28 CREATE+34 CREATE+64 CREATE+69 CREATE+85 CREATE+86 CREATE+90
Routine Call	DIE Line Location: CREATE+95
Routine Call	DIC Line Location: GETIEN+4
Routine Call	DIC Line Location: GETIEN+6
Routine Call	VALM Line Location: EN+2

FileNo	Call Tags
^ORD(101.43 - [#101.43]	GET1^DIQ
^APSPRREQ - [#9009033.91]	GET1^DIQ, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPRREQ - [#9009033.91]	INIT+4, INIT+6, CREATE+33, CREATE+37, CREATE+64, CREATE+65, CHKDEF+3, CHKDEF+4
^ORD(101.41 - [#101.41]	CREATE+68, CREATE+71, CHKORD+6
^ORD(101.42 - [#101.42]	CREATE+82
^PSDRUG("ASP"	CREATE+30
^TMP("VALMAR"	SELITEM+2, SELITEM+7, SELITEM+8

Label References

Name	Line Occurrences
$$CHKORD	CREATE+84
$$GETSEG	SHLVARS+2
$$GHLDAT	INIT+8, CREATE+10
$$PATNAME	INIT+10
$$SELITEM	CREATE+7
BACK	CREATE+6, CREATE+7, CREATE+18, CREATE+22, CREATE+27, CREATE+28, CREATE+34, CREATE+64, CREATE+69, CREATE+85 , CREATE+86, CREATE+90, CREATE+96
DISPMIS	CREATE+85
INIT	BACK+2
SHLVARS	INIT+9, CREATE+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APSPD	GETIEN+1~, GETIEN+4*, GETIEN+5
APSPMSH	INIT+1~, CREATE+1~
APSPORC	INIT+1~, CREATE+1~, CREATE+3~
APSPPID	INIT+1~, INIT+10, CREATE+1~, CREATE+3~
APSPRX0	INIT+1~
APSPRXE	INIT+1~, CREATE+1~, CREATE+3~
APSPRXO	INIT+11, CREATE+1~, CREATE+2~, CREATE+48, CREATE+55
APSPRXR	CREATE+3~
ARY	DISPHL7~
CHKIEN	CHKORD+1~, CHKORD+6*, CHKORD+7, CHKORD+9, CHKORD+11
CHKITEM	CHKORD+1~, CHKORD+4*, CHKORD+5, CHKORD+6, CHKORD+9, CHKORD+11
>> CHKPROC	CREATE+18*
CLININD	CREATE+4~, CREATE+48*, CREATE+52, CREATE+53
CNT	CREATE+3~, CREATE+36, CREATE+39, CREATE+42, CREATE+43
CONJ	CREATE+2~
DA	PRMPT+1~, PRMPT+3, PRMPT2+1~, PRMPT2+4, PRMPT2+5
DA(1	PRMPT2+4*
DAT	GETSEG+3*, GETSEG+4, CREATE+1~
DAT(	CREATE+77, CREATE+78, CREATE+79, CREATE+80
DAT("CONJ"	CREATE+41*
DAT("DOSE"	CREATE+39*
DAT("DRUG"	CREATE+30*, CREATE+86
DAT("INSTR"	CREATE+39*
DAT("ORDERABLE"	CREATE+26*, CREATE+27, CREATE+30
DAT("QTY"	CREATE+32*
DAT("REFILLS"	CREATE+45*
DAT("ROUTE"	CREATE+42*
DAT("SCHEDULE"	CREATE+42*
DAT("SIG"	CREATE+67*
DAT("STRENGTH"	CREATE+39*
DAT("SUPPLY"	CREATE+32*
DATA	GETSEG~
DATA(	GETSEG+2, GETSEG+3, CREATE+22, CREATE+26, CREATE+28, CREATE+31, CREATE+32, CREATE+39, CREATE+40, CREATE+41 , CREATE+42, CREATE+67
DAW	CREATE+4~, CREATE+55*, CREATE+56
DEF	GETIEN~, GETIEN+3*, GETIEN+4
DEL	PRMPT2+1~, PRMPT2+2, PRMPT2+5, PRMPT2+6
DFN	CREATE+1~, CREATE+31*, CREATE+87, CREATE+88, CREATE+91
DFT	PRMPT~, PRMPT+3, PRMPT2~, PRMPT2+4
DIALOG	CREATE+2~, CREATE+68*, CREATE+69, CREATE+88
DIC	GETIEN+1~, GETIEN+5*
DIC("A"	GETIEN+5*
DIC("B"	GETIEN+5*
DIC(0	GETIEN+5*
DIE	PRMPT+1~, PRMPT+3, PRMPT2+1~, PRMPT2+4
DIE("NO^"	PRMPT+2, PRMPT2+3
DIEN	CREATE+3~, CREATE+75*, CREATE+76, CREATE+79, CREATE+80
DIR	CREATE+3~
DIR("A"	CREATE+27, CREATE+28, CREATE+34, CREATE+64, CREATE+69, CREATE+85, CREATE+86, CREATE+90
DIR(0	CREATE+27, CREATE+28, CREATE+34, CREATE+64, CREATE+69, CREATE+85, CREATE+86, CREATE+90
DONE	CREATE+49, CREATE+51, CHKORD+1~, CHKORD+2, CHKORD+3, CHKORD+5*
DPRMPT	SELITEM+1~, SELITEM+3*, SELITEM+5
DR	PRMPT+1~, PRMPT+3, PRMPT2+1~, PRMPT2+4
DRUG	INIT+1~, INIT+11*, INIT+19, DISPHL7~, DISPHL7+8
DUOUT	CREATE+3~
DUPD	CREATE+2~, CREATE+39*
DUR	CREATE+2~, CREATE+41*
FDA	CREATE+95!
FDA(	CREATE+92, CREATE+93, CREATE+94*
FIL	CREATE+3~, CREATE+8*, CREATE+22, CREATE+26, CREATE+28, CREATE+31, CREATE+32
FIL2	CREATE+3~, CREATE+8*, CREATE+39, CREATE+40, CREATE+41, CREATE+42
FIL3	CREATE+3~, CREATE+8*, CREATE+67
FILE	PRMPT~, PRMPT+3, PRMPT2~, GETIEN~, GETIEN+4, GETIEN+5
FLD	PRMPT~, PRMPT+3, PRMPT2~, PRMPT2+4
FLDARY	BLDARY~
FLDARY(	BLDARY+5*
FOUND	CHKDEF+1~, CHKDEF+2, CHKDEF+4, CHKDEF+5
HLDATA	INIT+1~, SHLVARS+2
HLMSG	INIT+8, GHLDAT+1~, GHLDAT+2, GHLDAT+3, CREATE+1~, CREATE+10*
I	CREATE+16, CREATE+51, CREATE+52, CREATE+53, CREATE+58, CREATE+59, CREATE+60, BLDARY+3, BLDARY+5, CHKORD+1~ , CHKORD+3*
ID	CREATE+1~, CREATE+30*
IDIEN	CREATE+1~, CREATE+3~, CREATE+30*
IEN	INIT+1~, INIT+4, INIT+6, INIT+7, INIT+8, INIT+12, INIT+22, GHLDAT~, GHLDAT+2, CREATE+1~ , CREATE+20, CREATE+22, CREATE+26, CREATE+28, CREATE+31, CREATE+32, CREATE+38, CREATE+66, CHKDEF~, SELITEM+1~ , SELITEM+8*, SELITEM+9
IENS	CREATE+1~, CREATE+38, CREATE+39, CREATE+40, CREATE+41, CREATE+42, CREATE+66, CREATE+67, PRMPT~, PRMPT+3
>> INST	CREATE+36, CREATE+37, CREATE+38
INSTNOD	CREATE+2~, CREATE+33*, CREATE+34
ITEM	CREATE+1~, CREATE+7, CREATE+10, CREATE+12, CREATE+19, CREATE+20, CREATE+23, CREATE+24, CREATE+33, CREATE+37 , CREATE+54, CREATE+57, CREATE+64, CREATE+65, CREATE+92, CREATE+93, CREATE+94, CHKDEF+3, CHKDEF+4, SELITEM+1~ , SELITEM+5, SELITEM+6, SELITEM+7, SELITEM+8, PRMPT2+4, DISPMIS+1~, DISPMIS+5*, DISPMIS+6
ITMDATE	INIT+1~, INIT+12, INIT+13, INIT+21
K	DISPHL7+1~, DISPHL7+16*, DISPHL7+17
LINE	INIT+1~, INIT+4, INIT+15, INIT+17, INIT+22, CREATE+14, CREATE+17, DISPHL7+1~, DISPHL7+3, DISPHL7+4 , DISPHL7+18, DISPMIS+1~, DISPMIS+2*, DISPMIS+7
LINEVAR	INIT+1~, INIT+16, INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22
LIST	CREATE+3~, CREATE+70
LIST(	CREATE+73, CREATE+74, CREATE+75
LOC	CREATE+3~, CREATE+23*, CREATE+83, CREATE+88
MAX	SELITEM+1~, SELITEM+2*, SELITEM+3
MEDUNITS	DISPHL7~
MISLIST	CREATE+4~, CREATE+84, CREATE+85
MLIST	DISPMIS~, CHKORD~
MLIST(	DISPMIS+5, CHKORD+9, CHKORD+11
MSGID	INIT+1~, INIT+8*, INIT+20
NODE	PRMPT2~, PRMPT2+4
NORIFN	CREATE+2~, CREATE+89*, CREATE+90, CREATE+91, CREATE+92
NOTE	DISPHL7~, DISPHL7+10
NOUN	CREATE+1~, CREATE+41*, DISPHL7~
>> NSSRTXT(	CREATE+60*
OARY	CHKORD~
OARY(	CHKORD+9, CHKORD+11
OPSIEN	CREATE+4~
>> ORDCHK	CREATE+84*, CREATE+85
ORDIALOG	CREATE+2~, CREATE+71*, CREATE+84, CREATE+88
ORDIALOG(	CREATE+53, CREATE+54, CREATE+56, CREATE+61, CREATE+62, CREATE+76, CREATE+79, CREATE+80, CREATE+81, CREATE+82 , CREATE+83*
ORNP	CREATE+2~, CREATE+87*
ORVP	CREATE+2~, CREATE+87*
PARAM	SELITEM+1~, SELITEM+3*, SELITEM+5
PAT	INIT+1~, DISPHL7~, DISPHL7+6, PATNAME+1~, PATNAME+2*, PATNAME+3
PATFN	INIT+1~, PATNAME+1~, PATNAME+3*, PATNAME+4
PATLN	INIT+1~, PATNAME+1~, PATNAME+3*, PATNAME+4
PATMN	PATNAME+1~, PATNAME+3*, PATNAME+4
PATNAME	INIT+2~, INIT+10, INIT+18, PATNAME+1~, PATNAME+4, PATNAME+5
PHARM	CREATE+3~, CREATE+24*, CREATE+62, DISPHL7~, DISPHL7+13
PIDSEG	PATNAME~, PATNAME+2
POP	CREATE+18, GETIEN~, GETIEN+2, GETIEN+7
PRMT	GETIEN~, GETIEN+5
PROV	CREATE+1~, CREATE+31*, CREATE+87, CREATE+88, CREATE+91, DISPHL7~, DISPHL7+7
>> PSOPAR	EN+1
>> PTXT	CREATE+13
>> PTXT(	CREATE+16
Q	GETSEG+1~, GETSEG+2, GETSEG+4
QTY	DISPHL7~, DISPHL7+11
QUIT	BLDARY+1~, BLDARY+2, BLDARY+3, BLDARY+4
REFILLS	DISPHL7~, DISPHL7+12
RET	GETSEG+1~, GETSEG+2, GETSEG+3, GETSEG+4*, GETSEG+5
ROUTE	CREATE+3~, DISPHL7~
SCHARY	DISPHL7~, DISPHL7+15
SCHARY(	DISPHL7+16, DISPHL7+17
SEG	INIT+1~
SEGTYP	SHLVARS+1~, SHLVARS+2*
SIEN	PRMPT2~, PRMPT2+4
SIG	CREATE+2~, DISPHL7~, DISPHL7+9
SIGNOD	CREATE+2~, CREATE+63, CREATE+64, CREATE+65, CREATE+66, CREATE+67
>> SN	CREATE+78*, CREATE+79
SSRTEXT	CREATE+4~
SSRTEXT(	CREATE+58, CREATE+59
STAT	INIT+2~, INIT+7, CHKORD+1~, CHKORD+2, CHKORD+9, CHKORD+11, CHKORD+12
STATUS	CREATE+2~, CREATE+22*
STR	DISPHL7~
TEXT	CHKDEF~, CHKDEF+4, BLDARY+1~, BLDARY+4*
TIEN	PRMPT2~, PRMPT2+4
>> TXT	CREATE+59*, CREATE+60
TYPE	GETSEG~, GETSEG+4
U	INIT+6, INIT+11, CREATE+52, CREATE+53, CREATE+74, CREATE+75, CREATE+89, CREATE+91, DISPHL7+17, PATNAME+3
UNITS	CREATE+1~, CREATE+40*, DISPHL7~
>> VALMAR	CREATE+6, BACK+2
>> VALMBCK	BACK+3*
>> VALMCNT	INIT+3, INIT+15
>> VALMEVL	SELITEM+2, SELITEM+7, SELITEM+8
VAR	SHLVARS+1~, SHLVARS+2*
VERB	CREATE+2~, CREATE+42*
X	HELP+1, GETSEG+1~, GETSEG+2, GETSEG+3, CREATE+2~, CREATE+72, CREATE+74, CREATE+76, CREATE+77, CREATE+78 , CREATE+79, CREATE+80, CHKDEF+1~, CHKDEF+3, CHKDEF+4, PRMPT+1~, PRMPT2+1~
Y	CREATE+88, CREATE+89, PRMPT+1~, PRMPT+4, PRMPT2+1~, PRMPT2+6, GETIEN+1~, GETIEN+7, GETIEN+8
Y(1	CREATE+89
Z	CREATE+2~, CREATE+73*, CREATE+74, CREATE+75

Marked Items

Name	Field # of Occurrence
$T(FLDLST+I	BLDARY+4, BLDARY+5
$T(REQFLDS+I	CHKORD+4

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPESLP

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items