Routine: BSDP13PS

Information

BSDP13PS ;cmi/anch/maw - PIMS Patch 1013 Post Init 2/27/2007 10:32:52 AM

Source file <BSDP13PS.m>

Package	Total	Call Graph
Kernel	3	$$CJ^XLFSTR $$ADD^XPDMENU MES^XPDUTL
VA Fileman	2	(,IX)^DIC UPDATE^DIE
IHS Changes To Scheduling	1	XREFC^BSDDAM

Name	Comments	DBIA/ICR reference
IMES	;
EN	;EP - Post Init Entry Point
RM40971	;-- remove 409.71 from dictionary
ADDPRT(PROT,PROTA,MN,SQ)	;-- add an entry to the protocol file
INSTALLD(BSDSTAL)	;EP - Determine if patch BJPCSTAL was installed, where ; APCLSTAL is the name of the INSTALL. E.g "AG6.011".
SORRY(X)	;
ADDMOPT(MENU,OPT,MNE)	;-- add the menu option to the menu
ENV	;--environment check
ADDTS(TS,CD,SS,ABB)	;-- add a new treating specialty
XREFDAM	;-- need to go through each clinic and appt and set date appointment made
ADDWL(CODE,TEXT)	;-- add to waiting list file

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Error adding "_PROTA_" to the Item Multiple of Protocol "_PROT Line Location: ADDPRT+12
Function Call: WRITE	Prompt: !,"Now setting AIHSDAM cross reference for Date Appointment Made" Line Location: XREFDAM+1
Function Call: WRITE	Prompt: "." Line Location: XREFDAM+8
Function Call: WRITE	Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM) Line Location: SORRY+4
Routine Call	DIE Line Location: ADDTS+9 ADDWL+6 ADDPRT+11
Routine Call	DIC Line Location: INSTALLD+9 INSTALLD+12
Routine Call	DIC Line Location: INSTALLD+6

Name	Line Occurrences (* Changed, ! Killed)
^DIC(409.71	RM40971+1!
^DIC(45.7 - [#45.7]	ADDTS+1
^DIC(49 - [#49]	ADDTS+3
^ORD(101 - [#101]	ADDPRT+2, ADDPRT+3
^SC - [#44]	XREFDAM+3, XREFDAM+4, XREFDAM+5, XREFDAM+6
^SD(409.71	RM40971+2!
^VA(407.6 - [#407.6]	ADDWL+1

Name	Field # of Occurrence
ABB	ADDTS~, ADDTS+7
BSDAM	XREFDAM+2~, XREFDAM+6*, XREFDAM+7
BSDC	XREFDAM+2~, XREFDAM+3*, XREFDAM+4, XREFDAM+5, XREFDAM+6, XREFDAM+9
BSDD	XREFDAM+2~, XREFDAM+4*, XREFDAM+5, XREFDAM+6, XREFDAM+9
BSDP	XREFDAM+2~, XREFDAM+5*, XREFDAM+6, XREFDAM+9
BSDSTAL	INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
BSDY	INSTALLD+3~, INSTALLD+13*, INSTALLD+15
CD	ADDTS~, ADDTS+8
CODE	ADDWL~, ADDWL+1, ADDWL+4
>> D	INSTALLD+5*
DIC	INSTALLD+3~, INSTALLD+5, INSTALLD+8, INSTALLD+11*
DIC(0	INSTALLD+5*
DIFQ	SORRY+1!
FDA	ADDTS+2~, ADDWL+2~, ADDPRT+6~
FDA(	ADDTS+5, ADDTS+6, ADDTS+7, ADDTS+8, ADDWL+4, ADDWL+5, ADDPRT+8, ADDPRT+9, ADDPRT+10*
FERR	ADDTS+2~, ADDWL+2~, ADDPRT+6~
FERR(1	ADDPRT+12
FIENS	ADDTS+2~, ADDTS+4, ADDTS+5, ADDTS+6, ADDTS+7, ADDTS+8, ADDWL+2~, ADDWL+3, ADDWL+4, ADDWL+5 , ADDPRT+6~, ADDPRT+7*, ADDPRT+8, ADDPRT+9, ADDPRT+10
IOM	IMES+1, SORRY+4
MENU	ADDMOPT~, ADDMOPT+2
MN	ADDPRT~, ADDPRT+9
MNE	ADDMOPT~, ADDMOPT+2
OPT	ADDMOPT~, ADDMOPT+2
PROT	ADDPRT~, ADDPRT+2, ADDPRT+12
PROTA	ADDPRT~, ADDPRT+3, ADDPRT+12
PROTB	ADDPRT+1~, ADDPRT+2*, ADDPRT+4, ADDPRT+7
>> PROTC	ADDPRT+3*, ADDPRT+5, ADDPRT+8
SERV	ADDTS+2~, ADDTS+3*, ADDTS+6
SQ	ADDPRT~, ADDPRT+10
SS	ADDTS~, ADDTS+3
TEXT	ADDWL~, ADDWL+5
TS	ADDTS~, ADDTS+1, ADDTS+5
U	XREFDAM+6
X	ENV+2, ADDMOPT+1~, ADDMOPT+2, INSTALLD+3~, INSTALLD+4, INSTALLD+8, INSTALLD+11*, SORRY~, SORRY+2, SORRY+3
>> XPDDIQ(	ENV+2*
>> XPDDIQ("XPZ1"	ENV+1*
>> XPDDIQ("XPZ2"	ENV+1*
>> XPDENV	ENV+1
>> XPDQUIT	SORRY+2, SORRY+3
Y	INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1