Routine: IBY549PO

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMADD,$$FMTH,$$NOW)^XLFDT (BMES,MES)^XPDUTL $$PROD^XUPROD
Integrated Billing	3	^IBCNEHLM ($$MGRP,MSG)^IBCNEUT5 GETPER^IBCNEUT7
VA FileMan	3	^DIC (,FILE)^DIE $$GET1^DIQ
Automated Information Collection System	1	$$ADD^IBDFDBS
MailMan	1	$$MG^XMBGRP

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point
RMSG	; send site registration message to FSC
IIVEC(IBXPD,XPDIDTOT)	; Remove the IP address if it exists in the IIV EC HL7 ; Logical Link. ; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps
MGROUP(IBXPD,XPDIDTOT)	; Set the MESSAGES MAILGROUP in site parameters if wrong value ; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps
ADDMGRP	; Create the IBCNE EIV MESSAGE mail group with no users
FSWITCH	; File 'YES' values for new realtime switches
NEWPLTY(IBXPD,XPDIDTOT)	; Add a new code to the TYPE OF PLAN TABLE (#355.1) ; for VA SPECIAL CLASS ; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps
NEWCVTY(IBXPD,XPDIDTOT)	; Add a new code to the TYPE OF COVERAGE TABLE (#355.2) ; for VA SPECIAL CLASS ; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps
DELCONT(IBXPD,XPDIDTOT)	; Remove the contact field value ; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps
POLCYUPD(IBXPD,XPDIDTOT)	; Update Policy Expiration Dates for deceased patients ; Input: XBXPD - Post Installation Step ; XPDIDTOT - Total # of Post Installation steps
POLCUP2	;EP ; Called from Task Manager
UPDTEDT(DFN,IIEN,DOD)	; Update the Expiration for the specified patient policy ; Input: DFN - IEN of the patient whose policy is being ; updated ; IIEN - IEN of the patient policy multiple being ; updated ; DOD - Internal Date of Death of the specified ; patient ; ^TMP($J,"ERRLIST") - Current array of Patient Policy update errors ; Output: ^TMP($J,"ERRLIST") - Updated array of Patient Policy update errors
POLERR	; Called when an error occurs terminating active policies for deceased ; patients. Note: This usually occurs because of a known fileman error and a ; collision of a post-filing routine updating file 2.312 with a nightly KPAS ; extract doing inquiries into the 2.312 file at the same time.
DONE	; Displays the 'Done' message and finishes the progress bar ; Input: IBXPD - Post-Installation step being performed

External References

Name	Field # of Occurrence
^%ZTLOAD	POLCYUPD+23
^DIC	IIVEC+10
^DIE	IIVEC+15, IIVEC+20, MGROUP+21, FSWITCH+7, FSWITCH+14
FILE^DIE	DELCONT+10, UPDTEDT+17
$$GET1^DIQ	MGROUP+7, FSWITCH+2, FSWITCH+9, POLCUP2+9, POLCUP2+15, POLCUP2+46, POLCUP2+47, POLCUP2+71, POLCUP2+72
^IBCNEHLM	RMSG+7
$$MGRP^IBCNEUT5	POLCUP2+27
MSG^IBCNEUT5	ADDMGRP+12, POLCUP2+37, POLCUP2+52, POLCUP2+77, POLCUP2+88
GETPER^IBCNEUT7	POLCUP2+23
$$ADD^IBDFDBS	NEWPLTY+19, NEWCVTY+18
$$FMADD^XLFDT	POLCYUPD+16, UPDTEDT+15
$$FMTH^XLFDT	POLCYUPD+17
$$NOW^XLFDT	POLCYUPD+15, UPDTEDT+13
$$MG^XMBGRP	ADDMGRP+5
BMES^XPDUTL	RMSG+1, IIVEC+5, MGROUP+4, NEWPLTY+5, NEWPLTY+9, NEWPLTY+21, NEWCVTY+5, NEWCVTY+9, NEWCVTY+20, DELCONT+5 , POLCYUPD+3
MES^XPDUTL	RMSG+2, RMSG+3, RMSG+5, RMSG+6, IIVEC+6, IIVEC+7, MGROUP+5, MGROUP+6, MGROUP+14, MGROUP+17 , MGROUP+23, ADDMGRP+6, ADDMGRP+14, ADDMGRP+15, NEWPLTY+6, NEWPLTY+7, NEWCVTY+6, NEWCVTY+7, DELCONT+6, DELCONT+7 , POLCYUPD+4, POLCYUPD+5, DONE+2
$$PROD^XUPROD	RMSG+4, IIVEC+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.312	GET1^DIQ
^IBE(350.9 - [#350.9]	GET1^DIQ
^HLCS(870 - [#870]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	POLCUP2+7, POLCUP2+13
^IBE(355.1 - [#355.1]	NEWPLTY+8
^IBE(355.2 - [#355.2]	NEWCVTY+8
^TMP($J	POLCUP2+4!, POLCUP2+18, POLCUP2+19, POLCUP2+20, POLCUP2+31, POLCUP2+44, POLCUP2+69, POLCUP2+89!, UPDTEDT+19, POLERR+14*
^XMB(3.8 - [#3.8]	MGROUP+9, MGROUP+18

Label References

Name	Line Occurrences
ADDMGRP	MGROUP+13
DELCONT	EN+31
DONE	EN+40
FSWITCH	EN+39
IIVEC	EN+11
MGROUP	EN+36
NEWCVTY	EN+16
NEWPLTY	EN+21
POLCYUPD	EN+26
RMSG	EN+6
UPDTEDT	POLCUP2+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	UPDTEDT+16~
CURSIZE	POLCUP2+2~, POLCUP2+26, POLCUP2+36, POLCUP2+39, POLCUP2+41, POLCUP2+51, POLCUP2+54, POLCUP2+57, POLCUP2+63, POLCUP2+66* , POLCUP2+76, POLCUP2+79, POLCUP2+81, POLCUP2+83, POLCUP2+86
D	UPDTEDT+16~
DA	IIVEC+4~, IIVEC+14, IIVEC+19, MGROUP+16~, MGROUP+19, FSWITCH+1~, FSWITCH+6, FSWITCH+13, DELCONT+4~, DELCONT+8 , UPDTEDT+9~, UPDTEDT+12*, UPDTEDT+13, UPDTEDT+14, UPDTEDT+15
DA(1	UPDTEDT+12*, UPDTEDT+13, UPDTEDT+14, UPDTEDT+15
DFN	POLCUP2+2~, POLCUP2+5, POLCUP2+6, POLCUP2+7, POLCUP2+8, POLCUP2+9, POLCUP2+13, POLCUP2+15, POLCUP2+17, POLCUP2+18 , POLCUP2+19, POLCUP2+42, POLCUP2+43, POLCUP2+44, POLCUP2+45, POLCUP2+46, POLCUP2+47, POLCUP2+67, POLCUP2+68, POLCUP2+69 , POLCUP2+70, POLCUP2+71, POLCUP2+72, UPDTEDT~, UPDTEDT+12, UPDTEDT+19, POLERR+14
DIC	IIVEC+10*, IIVEC+14, IIVEC+15!, IIVEC+19, IIVEC+20!
DIC(0	IIVEC+10*
DIE	IIVEC+4~, IIVEC+14, IIVEC+19, MGROUP+16~, MGROUP+19, FSWITCH+1~, FSWITCH+6, FSWITCH+13*
DLAYGO	IIVEC+4~, IIVEC+10*
DOD	POLCUP2+2~, POLCUP2+9*, POLCUP2+10, POLCUP2+17, UPDTEDT~, UPDTEDT+15
DR	IIVEC+4~, IIVEC+14, IIVEC+19, MGROUP+16~, MGROUP+20, FSWITCH+1~, FSWITCH+6, FSWITCH+13*
DTOUT	FSWITCH+1~
DUZ	ADDMGRP+5
EMAIL	POLCUP2+2~
EXPDT	POLCUP2+2~, POLCUP2+15*, POLCUP2+16
FDA	DELCONT+4~, UPDTEDT+9~
FDA(	DELCONT+9, UPDTEDT+13, UPDTEDT+14, UPDTEDT+15
IBDATA	NEWPLTY+4~, NEWPLTY+19, NEWCVTY+4~, NEWCVTY+18
IBDATA(	NEWPLTY+15, NEWPLTY+16, NEWPLTY+17, NEWCVTY+15, NEWCVTY+16*
IBDATA(10	NEWPLTY+18, NEWCVTY+17
IBDESC	NEWPLTY+4~, NEWCVTY+4~
IBDESC("WP"	NEWPLTY+12, NEWPLTY+18, NEWCVTY+12, NEWCVTY+17
IBERR	NEWPLTY+4~, NEWPLTY+19, NEWPLTY+20, NEWCVTY+4~, NEWCVTY+18, NEWCVTY+19, DELCONT+4~, UPDTEDT+9~, UPDTEDT+18
IBIEN	NEWPLTY+4~, NEWPLTY+19, NEWCVTY+4~, NEWCVTY+18
IBPRD	IIVEC+4~, IIVEC+9*, IIVEC+13, IIVEC+18
IBXPD	EN+1~, EN+5, EN+10, EN+11, EN+15, EN+16, EN+20, EN+21, EN+25, EN+26 , EN+30, EN+31, EN+35*, EN+36, RMSG+1, IIVEC~, IIVEC+5, MGROUP~, MGROUP+4, NEWPLTY~ , NEWPLTY+5, NEWCVTY~, NEWCVTY+5, DELCONT~, DELCONT+5, POLCYUPD~, POLCYUPD+3
IIEN	POLCUP2+2~, POLCUP2+11, POLCUP2+12, POLCUP2+13, POLCUP2+14, POLCUP2+15, POLCUP2+17, POLCUP2+18, POLCUP2+19, UPDTEDT~ , UPDTEDT+12, UPDTEDT+19, POLERR+14
LNCTR	POLCUP2+2~, POLCUP2+26, POLCUP2+32, POLCUP2+39, POLCUP2+41, POLCUP2+54, POLCUP2+55, POLCUP2+56, POLCUP2+58, POLCUP2+61* , POLCUP2+62, POLCUP2+63, POLCUP2+64, POLCUP2+65, POLCUP2+66, POLCUP2+79, POLCUP2+84*, POLCUP2+85
MAXSIZE	POLCUP2+2~, POLCUP2+26*, POLCUP2+36, POLCUP2+51, POLCUP2+76
MGDESC	ADDMGRP+1~, ADDMGRP+5
MGDESC(1	ADDMGRP+3*
MGDESC(2	ADDMGRP+4*
MGNM	ADDMGRP+1~, ADDMGRP+2*, ADDMGRP+5, ADDMGRP+6, ADDMGRP+14
MLGRP	POLCUP2+2~, POLCUP2+27*, POLCUP2+37, POLCUP2+52, POLCUP2+77, POLCUP2+88
MSG	ADDMGRP+1~, POLCUP2+2~, POLCUP2+38!, POLCUP2+53!, POLCUP2+78!
MSG(	POLCUP2+41, POLCUP2+56, POLCUP2+58, POLCUP2+62, POLCUP2+63, POLCUP2+65, POLCUP2+66, POLCUP2+85
MSG(1	ADDMGRP+10, POLCUP2+54, POLCUP2+80*, POLCUP2+81
MSG(2	POLCUP2+82*, POLCUP2+83
MTIME	POLCYUPD+14~, POLCYUPD+15, POLCYUPD+16, POLCYUPD+17
NPAT	POLCUP2+2~, POLCUP2+48, POLCUP2+51, POLCUP2+56, POLCUP2+57, POLCUP2+73, POLCUP2+76, POLCUP2+85, POLCUP2+86
PNM	POLCUP2+3~, POLCUP2+46, POLCUP2+48, POLCUP2+71, POLCUP2+73
SSN	POLCUP2+3~, POLCUP2+47, POLCUP2+48, POLCUP2+72, POLCUP2+73
SUBJECT	ADDMGRP+1~, ADDMGRP+11, ADDMGRP+12, POLCUP2+3~, POLCUP2+28, POLCUP2+37, POLCUP2+52, POLCUP2+77, POLCUP2+88
X	IIVEC+4~, IIVEC+10*, UPDTEDT+16~
XMY	ADDMGRP+1~, ADDMGRP+12, POLCUP2+3~, POLCUP2+23, POLCUP2+37, POLCUP2+52, POLCUP2+77, POLCUP2+88
XMY("VHAeInsuranceRapidResponse@domain.ext"	ADDMGRP+9*
XPDIDTOT	EN+1~, EN+2*, EN+11, EN+16, EN+21, EN+26, EN+31, EN+36, RMSG+1, IIVEC~ , IIVEC+5, MGROUP~, MGROUP+4, NEWPLTY~, NEWPLTY+5, NEWCVTY~, NEWCVTY+5, DELCONT~, DELCONT+5, POLCYUPD~ , POLCYUPD+3
XX	MGROUP+3~, MGROUP+7, MGROUP+8, MGROUP+9, MGROUP+13, MGROUP+18, MGROUP+20, FSWITCH+1~, FSWITCH+2, FSWITCH+5 , FSWITCH+9, FSWITCH+12, POLCUP2+3~, POLCUP2+33, POLCUP2+36, POLCUP2+41, POLCUP2+54
Y	IIVEC+4~, IIVEC+13, IIVEC+14, IIVEC+18, IIVEC+19, UPDTEDT+16~
ZTCPU	POLCYUPD+14~
ZTDESC	POLCYUPD+14~, POLCYUPD+21*
ZTDTH	POLCYUPD+14~, POLCYUPD+17*
ZTIO	POLCYUPD+14~, POLCYUPD+22*
ZTKIL	POLCYUPD+14~
ZTPRI	POLCYUPD+14~
ZTRTN	POLCYUPD+14~, POLCYUPD+20*
ZTSAVE	POLCYUPD+14~
ZTSK	POLCYUPD+14~
ZTSYNC	POLCYUPD+14~
ZTUCI	POLCYUPD+14~

Customize PDF page

Package: Integrated Billing

Routine: IBY549PO

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: