Routine: APSPESG1

Package	Total	Call Graph
IHS Changes To Pharmacy	3	$$FMTPHN^APSPES2 SHLVARS^APSPESG $$PATNAME^APSPESLP
VA Fileman	2	DD^%DT $$GET1^DIQ
CIA Utilities	1	CAPTURE^CIAUHFS
Health Level Seven	1	$$FMDATE^HLFNC
Kernel	1	$$FMTE^XLFDT
VueCentric Framework	1	$$TMPGBL^CIAVMRPC

Package	Total	Caller Graph
IHS Changes To Pharmacy	3	APSPES4 APSPESG APSPFNC1
IHS Mods To Text Integration Utilities	1	BTIUMED1

Name	Comments	DBIA/ICR reference
GHLDAT(IEN)	; Get HL7 message data from APSP REFILL REQUEST FILE
PTADDR(DFN)	;Format patient address
FMTADD(FIELD)	;
DETAIL(DATA,IEN)	;EP for RPC call
DISPHL7(HL7,MAP,STR,UNITS,ROUTE,NOUN,SCHARY,MEDUNITS,SIG,ARY)	; Display HL7 data
HL7DATA(HL7,IEN)	;Get the data from the HL7 file
PROVAD(PROV)	;Format provider address
MAPDATA(MAP,IEN)	; Get the data that was mapped
PADDR(IEN)	;
CHKDEF(IEN,TEXT)	;
HRCN(DFN,SITE)	;EP; IHS/MSC/MGH return chart number

Name	Field # of Occurrence
DD^%DT	MAPDATA+8
$$FMTPHN^APSPES2	MAPDATA+12, MAPDATA+17, MAPDATA+25, HL7DATA+9, HL7DATA+11, HL7DATA+25
SHLVARS^APSPESG	DETAIL+8
$$PATNAME^APSPESLP	HL7DATA+3
CAPTURE^CIAUHFS	DETAIL+25
$$TMPGBL^CIAVMRPC	DETAIL+24
$$GET1^DIQ	DETAIL+6, DETAIL+13, MAPDATA+4, MAPDATA+6, MAPDATA+7, MAPDATA+9, MAPDATA+12, MAPDATA+16, MAPDATA+17, MAPDATA+19 , MAPDATA+20, MAPDATA+21, MAPDATA+22, MAPDATA+23, MAPDATA+24, MAPDATA+25, MAPDATA+27, MAPDATA+28, MAPDATA+30, MAPDATA+31 , GHLDAT+2, PADDR+4, PADDR+5, PADDR+6, PADDR+7, PADDR+8, PTADDR+3, PTADDR+4, PTADDR+5, PTADDR+6 , PTADDR+7, PROVAD+3, PROVAD+4, PROVAD+5, PROVAD+6, PROVAD+7
$$FMDATE^HLFNC	HL7DATA+5, HL7DATA+26, HL7DATA+28, HL7DATA+38
$$FMTE^XLFDT	HL7DATA+5, HL7DATA+26, HL7DATA+28, HL7DATA+38

Interaction Calls

Name	Line Occurrences
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: "_$G(HL7("PAT")) Line Location: DISPHL7+6
Function Call: WRITE	Prompt: !," Pt Data: "_$G(HL7("EXT")) Line Location: DISPHL7+7
Function Call: WRITE	Prompt: !," Pt Address: "_$G(HL7("PADD")) Line Location: DISPHL7+8
Function Call: WRITE	Prompt: !," Pt Phone: "_$G(HL7("PPHONE")) Line Location: DISPHL7+9
Function Call: WRITE	Prompt: !," Provider: "_$G(HL7("PROV"))_" Ph: "_$G(HL7("PRPH")) Line Location: DISPHL7+10
Function Call: WRITE	Prompt: !," Prov Address: "_$G(HL7("PRADD")) Line Location: DISPHL7+11
Function Call: WRITE	Prompt: !!," Medication: "_$G(HL7("DRUG")) Line Location: DISPHL7+12
Function Call: WRITE	Prompt: !," SIG: "_$G(HL7("SIG")) Line Location: DISPHL7+13
Function Call: WRITE	Prompt: !," Supply: "_$G(HL7("SUP")) Line Location: DISPHL7+15
Function Call: WRITE	Prompt: !," Quantity: "_$G(HL7("QTY")) Line Location: DISPHL7+16
Function Call: WRITE	Prompt: !," Refills: "_$G(HL7("REFIL")) Line Location: DISPHL7+17
Function Call: WRITE	Prompt: !," Dx: "_$G(HL7("DX")) Line Location: DISPHL7+18
Function Call: WRITE	Prompt: !," Sub: "_$G(HL7("SUB")) Line Location: DISPHL7+19
Function Call: WRITE	Prompt: !," Pharmacy: "_$G(HL7("PHARM")) Line Location: DISPHL7+20
Function Call: WRITE	Prompt: !," Ph Address: "_$G(HL7("PHADD")) Line Location: DISPHL7+21
Function Call: WRITE	Prompt: !," Notes to Pharm: "_$G(HL7("NOTE")) Line Location: DISPHL7+22
Function Call: WRITE	Prompt: !," Issue Dt: "_$G(HL7("ISSUE")) Line Location: DISPHL7+23
Function Call: WRITE	Prompt: !!," DISPENSED Drug Information",! Line Location: DISPHL7+24
Function Call: WRITE	Prompt: !," Dispensed Drug: "_$G(HL7("DDRG")) Line Location: DISPHL7+25
Function Call: WRITE	Prompt: !," SIG: "_$G(HL7("DSIG")) Line Location: DISPHL7+26
Function Call: WRITE	Prompt: !," Supply: "_$G(HL7("DSUP")) Line Location: DISPHL7+27
Function Call: WRITE	Prompt: !," Quantity: "_$G(HL7("DQTY")) Line Location: DISPHL7+28
Function Call: WRITE	Prompt: !," Refills: "_$G(HL7("DREFILL")) Line Location: DISPHL7+29
Function Call: WRITE	Prompt: !," Sub: "_$G(HL7("DSUB")) Line Location: DISPHL7+30
Function Call: WRITE	Prompt: !," Written Date: "_$G(HL7("DDATE")) Line Location: DISPHL7+31
Function Call: WRITE	Prompt: !," Notes to Prov: "_$G(HL7("DNOTE")) Line Location: DISPHL7+32
Function Call: WRITE	Prompt: !,"" Line Location: DISPHL7+33
Function Call: WRITE	Prompt: LINE Line Location: DISPHL7+34
Function Call: WRITE	Prompt: !," MAPPED DATA:",! Line Location: DISPHL7+35
Function Call: WRITE	Prompt: !," Patient: "_$G(MAP("PAT")) Line Location: DISPHL7+36
Function Call: WRITE	Prompt: !," Pt Data: "_$G(MAP("EXT")) Line Location: DISPHL7+37
Function Call: WRITE	Prompt: !," Address: "_$G(MAP("PADDR")) Line Location: DISPHL7+38
Function Call: WRITE	Prompt: !," Pt Phone: "_$G(MAP("PPHONE")) Line Location: DISPHL7+39
Function Call: WRITE	Prompt: !," Provider: "_$G(MAP("PROV"))_" Ph: "_$G(MAP("OFF")) Line Location: DISPHL7+40
Function Call: WRITE	Prompt: !," Prov Address: "_$G(MAP("PROVAD")) Line Location: DISPHL7+41
Function Call: WRITE	Prompt: !!," Medication: "_$G(MAP("DRUG")) Line Location: DISPHL7+42
Function Call: WRITE	Prompt: !," SIG: "_$G(MAP("SIG")) Line Location: DISPHL7+43
Function Call: WRITE	Prompt: !," Supply: "_$G(MAP("SUP")) Line Location: DISPHL7+44
Function Call: WRITE	Prompt: !," Quantity: "_$G(MAP("QTY")) Line Location: DISPHL7+45
Function Call: WRITE	Prompt: !," Refills: "_$G(MAP("REFIL")) Line Location: DISPHL7+46
Function Call: WRITE	Prompt: !," Dx: "_$G(MAP("DX")) Line Location: DISPHL7+47
Function Call: WRITE	Prompt: !," Sub: "_$G(MAP("DAW")) Line Location: DISPHL7+48
Function Call: WRITE	Prompt: !," Pharmacy: "_$G(MAP("PHARM")) Line Location: DISPHL7+49
Function Call: WRITE	Prompt: !," Ph Address: "_$G(MAP("PHARMA")) Line Location: DISPHL7+50
Function Call: WRITE	Prompt: !!," Dosing information: (multiple line items indicates complex dosing)" Line Location: DISPHL7+52
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+55
Function Call: WRITE	Prompt: !,LINE Line Location: DISPHL7+56

RPC Name	Call Tags
APSPESG1 DETAIL	DETAIL

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^APSPNCP(9009033.7 - [#9009033.7]	GET1^DIQ
^APSPOPHM - [#9009033.9]	GET1^DIQ
^APSPRREQ - [#9009033.91]	GET1^DIQ
9009033.913	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^APSPNCP(9009033.7 - [#9009033.7]	DETAIL+13
^APSPRREQ - [#9009033.91]	CHKDEF+3, CHKDEF+4
^AUPNPAT - [#9000001]	HRCN+1

Name	Line Occurrences
$$FMTADD	HL7DATA+10, HL7DATA+24, HL7DATA+27
$$GHLDAT	DETAIL+6
$$HRCN	MAPDATA+10
$$PADDR	MAPDATA+18
$$PROVAD	MAPDATA+26
$$PTADDR	MAPDATA+11
HL7DATA	DETAIL+9
MAPDATA	DETAIL+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDR	FMTADD+2~, FMTADD+3, FMTADD+4, FMTADD+9, FMTADD+10, PADDR+2~, PADDR+3, PADDR+10, PADDR+11, PTADDR+1~ , PTADDR+2, PTADDR+9, PTADDR+10, PROVAD+1~, PROVAD+2, PROVAD+9, PROVAD+10
APSPDG1	DETAIL+1~, HL7DATA+41, HL7DATA+42
APSPMSH	DETAIL+2~, DETAIL+3
APSPORC	DETAIL+1~, DETAIL+14, HL7DATA+13, HL7DATA+22, HL7DATA+24, HL7DATA+25, HL7DATA+26, HL7DATA+28
APSPPID	DETAIL+1~, HL7DATA+3, HL7DATA+4, HL7DATA+5, HL7DATA+6, HL7DATA+9, HL7DATA+10
APSPRXD	DETAIL+2~, HL7DATA+29, HL7DATA+30, HL7DATA+31, HL7DATA+33, HL7DATA+34, HL7DATA+35, HL7DATA+36, HL7DATA+37, HL7DATA+38
APSPRXE	DETAIL+1~, HL7DATA+11, HL7DATA+27
APSPRXO	DETAIL+1~, DETAIL+12, DETAIL+13, DETAIL+14, DETAIL+15, HL7DATA+12, HL7DATA+14, HL7DATA+15, HL7DATA+17, HL7DATA+19 , HL7DATA+20, HL7DATA+39
APSPRXR	DETAIL+2~, DETAIL+12
ARY	DISPHL7~
CITY	FMTADD+2~, FMTADD+6, FMTADD+9, PADDR+2~, PADDR+6, PADDR+10, PTADDR+1~, PTADDR+5, PTADDR+9, PROVAD+1~ , PROVAD+5, PROVAD+9
CONJ	DETAIL+1~, DETAIL+21*, DETAIL+22
DATA	DETAIL~, DETAIL+24*, DETAIL+25
DCODE	HL7DATA+1~, HL7DATA+29*, HL7DATA+32
DCODEQ	HL7DATA+1~, HL7DATA+31*, HL7DATA+32
DEL	DETAIL+2~, DETAIL+7*, DETAIL+12, DETAIL+13, DETAIL+14, DETAIL+15, HL7DATA+4, HL7DATA+5, HL7DATA+6, HL7DATA+9 , HL7DATA+10, HL7DATA+11, HL7DATA+12, HL7DATA+13, HL7DATA+14, HL7DATA+15, HL7DATA+17, HL7DATA+19, HL7DATA+20, HL7DATA+22 , HL7DATA+24, HL7DATA+25, HL7DATA+26, HL7DATA+27, HL7DATA+28, HL7DATA+29, HL7DATA+30, HL7DATA+31, HL7DATA+33, HL7DATA+34 , HL7DATA+35, HL7DATA+36, HL7DATA+37, HL7DATA+38, HL7DATA+39, HL7DATA+42
DFN	HRCN~, HRCN+1, PTADDR~, PTADDR+3, PTADDR+4, PTADDR+5, PTADDR+6, PTADDR+7
DOB	MAPDATA+2~, MAPDATA+3, MAPDATA+7, MAPDATA+8, MAPDATA+15, HL7DATA+1~, HL7DATA+5, HL7DATA+8
DONE	DETAIL+1~, DETAIL+16, DETAIL+17, DETAIL+19
DPT	MAPDATA+2~, MAPDATA+3, MAPDATA+4, MAPDATA+5, MAPDATA+6, MAPDATA+7, MAPDATA+9, MAPDATA+10, MAPDATA+11, MAPDATA+12
DRG	HL7DATA+1~, HL7DATA+30*, HL7DATA+32
DSUB	HL7DATA+1~, HL7DATA+39*, HL7DATA+40
DUR	DETAIL+2~, DETAIL+21*, DETAIL+22, DETAIL+23
DUZ(2	MAPDATA+10
FIELD	FMTADD~, FMTADD+4, FMTADD+5, FMTADD+6, FMTADD+7, FMTADD+8
FOUND	CHKDEF+1~, CHKDEF+2, CHKDEF+4, CHKDEF+5
HL7	DETAIL+9, HL7DATA~, HL7DATA+2!, DISPHL7~
HL7("DDATE"	HL7DATA+38*, DISPHL7+31
HL7("DDRG"	HL7DATA+32*, DISPHL7+25
HL7("DNOTE"	HL7DATA+37*, DISPHL7+32
HL7("DQTY"	HL7DATA+35*, DISPHL7+28
HL7("DREFILL"	HL7DATA+36*, DISPHL7+29
HL7("DRUG"	HL7DATA+12*, DISPHL7+12
HL7("DSIG"	HL7DATA+33*, DISPHL7+26
HL7("DSUB"	HL7DATA+40*, DISPHL7+30
HL7("DSUP"	HL7DATA+34*, DISPHL7+27
HL7("DX"	HL7DATA+42*, DISPHL7+18
HL7("EXT"	HL7DATA+8*, DISPHL7+7
HL7("ISSUE"	HL7DATA+26*, DISPHL7+23
HL7("LFIL"	HL7DATA+28*
HL7("NOTE"	HL7DATA+17*, DISPHL7+22
HL7("PADD"	HL7DATA+10*, DISPHL7+8
HL7("PAT"	HL7DATA+7*, DISPHL7+6
HL7("PHADD"	HL7DATA+27*, DISPHL7+21
HL7("PHARM"	HL7DATA+11*, DISPHL7+20
HL7("PPHONE"	HL7DATA+9*, DISPHL7+9
HL7("PRADD"	HL7DATA+24*, DISPHL7+11
HL7("PROV"	HL7DATA+23*, DISPHL7+10
HL7("PRPH"	HL7DATA+25*, DISPHL7+10
HL7("QTY"	HL7DATA+14*, DISPHL7+16
HL7("REFIL"	HL7DATA+19*, DISPHL7+17
HL7("SIG"	HL7DATA+15*, DISPHL7+13
HL7("SUB"	HL7DATA+21*, DISPHL7+19
HL7("SUP"	HL7DATA+13*, DISPHL7+15
HLECH	DETAIL+2~, DETAIL+3*, DETAIL+5
HLECH(	DETAIL+5*
HLECH(1	DETAIL+12, DETAIL+14, DETAIL+20, DETAIL+21, HL7DATA+4, HL7DATA+9, HL7DATA+11, HL7DATA+12, HL7DATA+13, HL7DATA+14 , HL7DATA+15, HL7DATA+17, HL7DATA+19, HL7DATA+22, HL7DATA+25, HL7DATA+26, HL7DATA+28, HL7DATA+29, HL7DATA+30, HL7DATA+31 , HL7DATA+33, HL7DATA+34, HL7DATA+35, HL7DATA+36, HL7DATA+37, HL7DATA+38, HL7DATA+42, FMTADD+5, FMTADD+6, FMTADD+7 , FMTADD+8
HLECH(2	DETAIL+18
HLMSG	DETAIL+6, GHLDAT+1~, GHLDAT+2, GHLDAT+3
HRCN	MAPDATA+2~, MAPDATA+3, MAPDATA+10, MAPDATA+15, HL7DATA+1~, HL7DATA+4*, HL7DATA+8
I	DETAIL+2~, DETAIL+4, DETAIL+5, DETAIL+17, DETAIL+18, DETAIL+22
IEN	DETAIL~, DETAIL+6, DETAIL+9, DETAIL+10, MAPDATA~, MAPDATA+4, MAPDATA+16, MAPDATA+17, MAPDATA+19, MAPDATA+20 , MAPDATA+21, MAPDATA+22, MAPDATA+23, MAPDATA+24, MAPDATA+27, MAPDATA+28, MAPDATA+30, MAPDATA+31, HL7DATA~, GHLDAT~ , GHLDAT+2, CHKDEF~, PADDR~, PADDR+4, PADDR+5, PADDR+6, PADDR+7, PADDR+8
INTERVAL	DETAIL+1~, DETAIL+21*, DETAIL+22
ITEM	DETAIL+2~, CHKDEF+3, CHKDEF+4
K	DISPHL7+1~, DISPHL7+54*, DISPHL7+55
LINE	DISPHL7+1~, DISPHL7+3*, DISPHL7+4, DISPHL7+34, DISPHL7+56
MAP	DETAIL+10, MAPDATA~, MAPDATA+1!, DISPHL7~
MAP("DAW"	MAPDATA+22*, DISPHL7+48
MAP("DRUG"	MAPDATA+27*, DISPHL7+42
MAP("DX"	MAPDATA+30*, DISPHL7+47
MAP("EXT"	MAPDATA+15*, DISPHL7+37
MAP("OFF"	MAPDATA+25*, DISPHL7+40
MAP("PADDR"	MAPDATA+11*, DISPHL7+38
MAP("PAT"	MAPDATA+14*, DISPHL7+36
MAP("PHARM"	MAPDATA+17*, DISPHL7+49
MAP("PHARMA"	MAPDATA+18*, DISPHL7+50
MAP("PPHONE"	MAPDATA+12*, DISPHL7+39
MAP("PROV"	MAPDATA+24*, DISPHL7+40
MAP("PROVAD"	MAPDATA+26*, DISPHL7+41
MAP("QTY"	MAPDATA+20*, DISPHL7+45
MAP("REFIL"	MAPDATA+31*, DISPHL7+46
MAP("SIG"	MAPDATA+28*, DISPHL7+43
MAP("SUP"	MAPDATA+19*, DISPHL7+44
MAP("TIME"	MAPDATA+21*
MEDUNITS	DETAIL+1~, DETAIL+14*, DISPHL7~
MSGID	DETAIL+2~, DETAIL+6*
NOUN	DETAIL+1~, DETAIL+13*, DISPHL7~
PAT	MAPDATA+2~, MAPDATA+3, MAPDATA+6, MAPDATA+13, MAPDATA+14, HL7DATA+1~, HL7DATA+3, HL7DATA+7
PHARM	MAPDATA+2~, MAPDATA+16*, MAPDATA+17, MAPDATA+18
PROV	MAPDATA+2~, MAPDATA+3, MAPDATA+23, MAPDATA+25, MAPDATA+26, HL7DATA+1~, HL7DATA+22*, HL7DATA+23, PROVAD~, PROVAD+3 , PROVAD+4, PROVAD+5, PROVAD+6, PROVAD+7
PROVDAT	HL7DATA+1~, HL7DATA+22*
ROUTE	DETAIL+1~, DETAIL+12*, DISPHL7~
SCHARY	DETAIL+1~, DISPHL7~, DISPHL7+53
SCHARY(	DETAIL+22*, DISPHL7+54, DISPHL7+55
SCHITEM	DETAIL+1~, DETAIL+18*, DETAIL+19, DETAIL+20, DETAIL+21
SCHUPD	DETAIL+1~, DETAIL+20*, DETAIL+22
SEX	MAPDATA+2~, MAPDATA+3, MAPDATA+9, MAPDATA+15, HL7DATA+1~, HL7DATA+6*, HL7DATA+8
SIG	DISPHL7~
SIGDAT	DETAIL+2~, DETAIL+15*
SIGNAT	DETAIL+1~
SITE	HRCN~, HRCN+1
ST	FMTADD+2~, FMTADD+7, FMTADD+9, PADDR+2~, PADDR+7, PADDR+10, PTADDR+1~, PTADDR+6, PTADDR+9, PROVAD+1~ , PROVAD+6, PROVAD+9
STR	DETAIL+1~, DETAIL+12, DISPHL7~, FMTADD+2~, FMTADD+5, FMTADD+9, PADDR+2~, PADDR+4, PADDR+9, PADDR+10 , PTADDR+1~, PTADDR+3, PTADDR+8, PTADDR+9, PROVAD+1~, PROVAD+3, PROVAD+8, PROVAD+9
STR2	PADDR+2~, PADDR+5, PADDR+9, PTADDR+1~, PTADDR+4, PTADDR+8, PROVAD+1~, PROVAD+4*, PROVAD+8
SUB	HL7DATA+1~, HL7DATA+20*, HL7DATA+21
TEXT	CHKDEF~, CHKDEF+4
TOTDUR	DETAIL+1~, DETAIL+23*
U	DETAIL+22, HL7DATA+42, DISPHL7+55, HRCN+1
UNITS	DETAIL+1~, DETAIL+12*, DISPHL7~
USCHDUR	DETAIL+1~, DETAIL+14*, DETAIL+18
X	CHKDEF+1~, CHKDEF+3*, CHKDEF+4
Y	MAPDATA+2~, MAPDATA+8*
ZIP	FMTADD+2~, FMTADD+8, FMTADD+9, PADDR+2~, PADDR+8, PADDR+10, PTADDR+1~, PTADDR+7, PTADDR+9, PROVAD+1~ , PROVAD+7, PROVAD+9

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSPESG1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: