Routine: AGMPHLEU

Package	Total	Call Graph
Patient Registration MPI	3	$$DEMOPAT^AGMPHLU (PID,ZPD)^AGMPIHL1 (CREATMSG,EVN,NOTIF)^AGMPIHLO
Health Level Seven	2	($$ADDMSG,$$NEWBATCH,SET)^HLOAPI $$SENDONE^HLOAPI1
VA Fileman	2	$$GET1^DIQ ^DIR
Kernel	1	$$FMADD^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
SET	;EP - INIT VARS FOR BATCH
MISSEUID	;EP - PROCESS MISSING EUID
ATTEMPT(DFN,ADDED,ERRORS)	;EP - TRY TO ADD PTS WITH MISSING EUIDs
BATCHOUT()	;EP - THIS ENTRY POINT WILL COLLECT A28 MESSAGE FOR PTS WITH MISSING ICNS
START	;EP - START UP MISSING AND LOCAL ID TASK
MYSET(ARY,V,F,R,C,S)	;EP

External References

Name	Field # of Occurrence
$$DEMOPAT^AGMPHLU	MISSEUID+22, BATCHOUT+21
PID^AGMPIHL1	BATCHOUT+31
ZPD^AGMPIHL1	BATCHOUT+32
CREATMSG^AGMPIHLO	ATTEMPT+1
EVN^AGMPIHLO	BATCHOUT+30
NOTIF^AGMPIHLO	ATTEMPT+5, BATCHOUT+16, BATCHOUT+28, BATCHOUT+33, BATCHOUT+43
$$GET1^DIQ	MISSEUID+23, MISSEUID+36, BATCHOUT+19, SET+15
^DIR	MISSEUID+15
$$ADDMSG^HLOAPI	BATCHOUT+26
$$NEWBATCH^HLOAPI	BATCHOUT+15
SET^HLOAPI	MYSET+1
$$SENDONE^HLOAPI1	BATCHOUT+42
$$FMADD^XLFDT	MISSEUID+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the maximum number of messages you would like to create. If you want to" Line Location: MISSEUID+11
Function Call: WRITE	Prompt: !,"send messages for all active charts for all patients who are currently missing" Line Location: MISSEUID+12
Function Call: WRITE	Prompt: !,"an ICN, enter 9999999",! Line Location: MISSEUID+13
Function Call: WRITE	Prompt: "." Line Location: MISSEUID+28
Function Call: WRITE	Prompt: " * Per execution maximum of ",MAX," exceeeded *" Line Location: MISSEUID+52
Routine Call	DIR Line Location: MISSEUID+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGCN(391.91 - [#391.91]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	MISSEUID+33
^AUPNPAT - [#9000001]	MISSEUID+29, MISSEUID+31
^DGCN(391.91 - [#391.91]	MISSEUID+35
^DPT - [#2]	MISSEUID+20, MISSEUID+21, MISSEUID+26, MISSEUID+27, BATCHOUT+18, BATCHOUT+20, BATCHOUT+23, BATCHOUT+24
^XTMP("AGMPICN"	MISSEUID+5, MISSEUID+6, MISSEUID+7, MISSEUID+38!, MISSEUID+40, ATTEMPT+8

Label References

Name	Line Occurrences
ATTEMPT	MISSEUID+42
MISSEUID	START+1
SET	BATCHOUT+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDED	MISSEUID+1~, MISSEUID+3, MISSEUID+42, MISSEUID+52, ATTEMPT~, ATTEMPT+7
>> APPARMS	BATCHOUT+42
>> APPARMS("ACCE	PT ACK RESPONSE" , SET+4, PT ACK TYPE" , SET+2
>> APPARMS("APP	ACK TYPE" , SET+6*
>> APPARMS("QUEUE"	SET+7*
>> APPARMS("RECE	IVING APPLICATION" , SET+8*
>> APPARMS("SEND	ING APPLICATION" , SET+1, ING FACILITY" , SET+15
ARY	MYSET~, MYSET+1
BATCH	BATCHOUT+1~, BATCHOUT+2*, BATCHOUT+44!
C	MYSET~, MYSET+1
CNT	MISSEUID+1~, MISSEUID+20*, MISSEUID+28
>> COMP	BATCHOUT+9*
DA	MISSEUID+1~, MISSEUID+35*, MISSEUID+36
DELAY	MISSEUID+1~, MISSEUID+6*, MISSEUID+40
DFN	ATTEMPT~, ATTEMPT+1, ATTEMPT+5, BATCHOUT+1~
DFNIEN	MISSEUID+1~, MISSEUID+18, MISSEUID+20, MISSEUID+21, MISSEUID+22, MISSEUID+23, MISSEUID+26, MISSEUID+27, MISSEUID+29, MISSEUID+31 , MISSEUID+35, MISSEUID+38, MISSEUID+40, MISSEUID+42, ATTEMPT+8, BATCHOUT+17, BATCHOUT+18, BATCHOUT+19, BATCHOUT+20, BATCHOUT+21 , BATCHOUT+23, BATCHOUT+24, BATCHOUT+31, BATCHOUT+32
DIR	MISSEUID+10~
DIR("A"	MISSEUID+14*
DIR("B"	MISSEUID+14*
DIR(0	MISSEUID+14*
DIROUT	MISSEUID+10~
DIRUT	MISSEUID+10~
DT	MISSEUID+5
DTOUT	MISSEUID+10~
DUOUT	MISSEUID+10~
DUZ(2	MISSEUID+2, MISSEUID+30, MISSEUID+31, MISSEUID+33, MISSEUID+35, MISSEUID+38, MISSEUID+40, MISSEUID+43*, ATTEMPT+8, SET+15
>> ERR	ATTEMPT+4*, ATTEMPT+5, BATCHOUT+15, BATCHOUT+16, BATCHOUT+26, BATCHOUT+28, BATCHOUT+31, BATCHOUT+32, BATCHOUT+33, BATCHOUT+42 , BATCHOUT+43
ERRORS	MISSEUID+1~, MISSEUID+3, MISSEUID+42, MISSEUID+51, ATTEMPT~, ATTEMPT+3
F	MYSET~, MYSET+1
>> HL1("ECH"	BATCHOUT+8, BATCHOUT+9, BATCHOUT+11
>> HL1("FS"	BATCHOUT+10, BATCHOUT+12
>> HL1("Q"	BATCHOUT+13*
>> HL1("VER"	BATCHOUT+14*
HLMP	BATCHOUT+1~
HLMSTATE	BATCHOUT+1~, BATCHOUT+15, BATCHOUT+26, BATCHOUT+29
>> HLPM	BATCHOUT+15, BATCHOUT+26
>> HLPM("ENCODIN	G CHARACTERS" , BATCHOUT+7*, BATCHOUT+8
>> HLPM("EVENT"	BATCHOUT+4*, BATCHOUT+30
>> HLPM("FIELD S	EPARATOR" , BATCHOUT+6*, BATCHOUT+10
>> HLPM("MESSAGE	TYPE" , BATCHOUT+3*
>> HLPM("VERSION"	BATCHOUT+5*
>> HLST	BATCHOUT+29*
LOCKED	MISSEUID+1~, MISSEUID+3, MISSEUID+26, MISSEUID+45
MAX	MISSEUID+1~, MISSEUID+7, MISSEUID+9, MISSEUID+14, MISSEUID+16, MISSEUID+17*, MISSEUID+42, MISSEUID+52
MERGED	MISSEUID+1~, MISSEUID+3, MISSEUID+21, MISSEUID+46
MISSING	MISSEUID+1~, MISSEUID+3, MISSEUID+39, MISSEUID+49
MSG	BATCHOUT+1~, BATCHOUT+42
NOCHART	MISSEUID+1~, MISSEUID+3, MISSEUID+29, MISSEUID+47
NONORF	MISSEUID+1~, MISSEUID+3, MISSEUID+34, MISSEUID+48
PARMS	BATCHOUT+1~
PICN	MISSEUID+1~, MISSEUID+23*, MISSEUID+38
QUEUED	MISSEUID+1~, MISSEUID+3, MISSEUID+40, MISSEUID+50
QUIT	BATCHOUT+1~, BATCHOUT+17, BATCHOUT+18, BATCHOUT+27, BATCHOUT+38
R	MYSET~, MYSET+1
S	MYSET~, MYSET+1
SEG	BATCHOUT+1~
>> SUCCESS	ATTEMPT+1, ATTEMPT+2
TICN	MISSEUID+1~, MISSEUID+35, MISSEUID+36, MISSEUID+38
TMPDUZ2	MISSEUID+1~, MISSEUID+2*, MISSEUID+43
U	MISSEUID+5, MISSEUID+33
V	MYSET~, MYSET+1
>> WHO	BATCHOUT+42
>> WHO("FACILITY	LINK NAME" , SET+10*
>> WHO("IE LINK	NAME" , SET+13*
>> WHO("RECEIVIN	G APPLICATION" , SET+9*
>> WHO("STATION	NUMBER" , SET+11*
WHOTO	BATCHOUT+1~
X	MISSEUID+10~
Y	MISSEUID+10~, MISSEUID+16, MISSEUID+17
>> ZTQUEUED	MISSEUID+9, MISSEUID+28, MISSEUID+44

Customize PDF page

Package: Patient Registration MPI

Routine: AGMPHLEU

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: