Routine: BCSVMR2

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD ($$DT,$$FMTE)^XLFDT $$VERSION^XPDUTL
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Code Set Versioning	1	($$GDESC,$$GLBPATH,$$KNWNPTR,$$MAPCNT,$$NXTFIL,$$YN,INIT,SETFILE)^BCSVMP

Package	Total	Caller Graph
IHS Code Set Versioning	1	BCSV MAPPING REPORT 2

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;
GLOBCNT(GBL)	;
INIT7	;
INAFLAG(SIEN)	;
PTYES
PSTCSVCD(SIEN)	;
TASK	;EP
UNMAP(FIL)	;
PTNO	;
PT(FNUM,FNAM)	;EP
HDRU	; Unmapped items header
HDRP	;
PARAM	;
EX	;
ENVCHK
DEVICE	;
HDRM	; Mapped Items header
PAUSE	;
MAP(FIL)	;
BLDARY(ARY,DESC)	;
PTPRT	;
SCROLL	;Adjust scroll rate
EN	; EP - Generate mapping status report.
OUTPUT	;
PAGE	;

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+3
^%ZISC	TASK+10
^%ZTLOAD	TASK+8
$$GDESC^BCSVMP	UNMAP+7, MAP+9, MAP+10
$$GLBPATH^BCSVMP	UNMAP+3, MAP+4, MAP+10
$$KNWNPTR^BCSVMP	PTPRT+2
$$MAPCNT^BCSVMP	UNMAP+4, MAP+6, HDR+6
$$NXTFIL^BCSVMP	OUTPUT+9
$$YN^BCSVMP	PARAM+3, PARAM+4
INIT^BCSVMP	OUTPUT+4
SETFILE^BCSVMP	OUTPUT+12
$$GET1^DIQ	INAFLAG+5, INAFLAG+8, INAFLAG+11
^DIR	PARAM+11
$$DT^XLFDT	HDR+2
$$FMTE^XLFDT	HDR+2
$$VERSION^XPDUTL	PSTCSVCD+4, PSTCSVCD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Mapping Report for Code Set Versioning Project - Phase One",!! Line Location: EN+2
Function Call: WRITE	Prompt: !,"WARNING: Printing mapped items will consume a lot of paper",! Line Location: PARAM+2
Function Call: WRITE	Prompt: ! Line Location: PARAM+13
Function Call: WRITE	Prompt: ?30,"No files point to the "_FNAM_" file." Line Location: PT+6
Function Call: WRITE	Prompt: !,$J(ZCNT,4),".",?6,GL,?21,$E(FILEN,1,25) Line Location: PTPRT+3
Function Call: WRITE	Prompt: ?47 Line Location: PTPRT+4
Function Call: WRITE	Prompt: KNWPTR_$E($P(^(0),U),1,22)," (",FLD,")" Line Location: PTPRT+4
Function Call: WRITE	Prompt: "--> Field ",FLD," does not exist." Line Location: PTPRT+5
Function Call: WRITE	Prompt: !,"There are no unmapped entries." Line Location: UNMAP+4
Function Call: WRITE	Prompt: ! Line Location: UNMAP+11
Function Call: WRITE	Prompt: " (INACTIVE)" Line Location: INAFLAG+13
Function Call: WRITE	Prompt: !,"There are no mapped entries." Line Location: MAP+6
Function Call: WRITE	Prompt: !,?2,SDESC,?46,TDESC Line Location: MAP+15
Function Call: WRITE	Prompt: ! Line Location: MAP+19
Function Call: WRITE	Prompt: ! Line Location: MAP+24
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !,$E(EQUAL,1,IOM) Line Location: HDR+3
Function Call: WRITE	Prompt: !?2,"File:---- ",FNAM," (",FNUM,")" Line Location: HDR+4
Function Call: WRITE	Prompt: !?2,"Global:-- ",ZGL,?(IOM-17),"Date: ",RPTDATE Line Location: HDR+5
Function Call: WRITE	Prompt: !?2,"Total Entries: ",ZGLCNT,?30,"Mapped: ",$$MAPCNT^BCSVMP(TRG("GNAM"),"MAP"),?50,"Unmapped: ",$$MAPCNT^BCSVMP(TRG("GNAM"),"UNMAP") Line Location: HDR+6
Function Call: WRITE	Prompt: !,$E(EQUAL,1,IOM),! Line Location: HDR+7
Function Call: WRITE	Prompt: !?3,"Pointers TO the "_FNAM_" ("_FNUM_") file.." Line Location: HDRP+1
Function Call: WRITE	Prompt: !?5,"A # indicates that the field is a LOCAL pointer." Line Location: HDRP+2
Function Call: WRITE	Prompt: !?9,"GLOBAL",?22,"FILE (Truncated to 25)",?50,"FIELD (Truncated to 22)" Line Location: HDRP+3
Function Call: WRITE	Prompt: !?6,"-------------",?21,"-------------------------",?48,"------------------------------" Line Location: HDRP+4
Function Call: WRITE	Prompt: @IOF Line Location: HDRU+1
Function Call: WRITE	Prompt: !,$E(EQUAL,1,IOM) Line Location: HDRU+2
Function Call: WRITE	Prompt: !,"The following entries have not been mapped to the VA codes." Line Location: HDRU+3
Function Call: WRITE	Prompt: !," IHS Value" Line Location: HDRU+4
Function Call: WRITE	Prompt: !,$E(EQUAL,1,IOM),! Line Location: HDRU+5
Function Call: WRITE	Prompt: @IOF Line Location: HDRM+1
Function Call: WRITE	Prompt: !,$E(EQUAL,1,IOM) Line Location: HDRM+2
Function Call: WRITE	Prompt: !,"The following items are mapped." Line Location: HDRM+3
Function Call: WRITE	Prompt: !," * IHS Value" Line Location: HDRM+4
Function Call: WRITE	Prompt: !," => VA Value" Line Location: HDRM+5
Function Call: WRITE	Prompt: !,$E(EQUAL,1,IOM),! Line Location: HDRM+6
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Function Call: WRITE	Prompt: !!?8,"SCROLLING: [N]ormal [S]mooth . . . . ","Select: N//" Line Location: SCROLL+1
Function Call: READ	Timeout: DTIME Variable: SCROLL Line Location: SCROLL+2
Function Call: WRITE	Prompt: !?8,"Since you're printing to your CRT and you've asked for a page",!?8,"length greater than 25, you may now adjust the scroll rate.",!?8,"For DEC VT-100 compatible devices only." Line Location: SCROLL+3
Function Call: WRITE	Prompt: *27,"[?4h" Line Location: SCROLL+4
Routine Call	DIR Line Location: PARAM+11
Routine Call	%ZIS Line Location: DEVICE+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICD9 - [#80]	GET1^DIQ
^ICD0 - [#80.1]	GET1^DIQ
^ICPT - [#81]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	PT+6, PT+7, PT+9, PTNO+1, PTNO+2, PTPRT+4
^DIC - [#1]	PT+2, PT+8, PTNO+2, PTNO+3, PTNO+4, PTYES
^ICD0 - [#80.1]	PSTCSVCD+10
^ICD9 - [#80]	PSTCSVCD+13
^ICPT - [#81]	PSTCSVCD+5, PSTCSVCD+7
^UTILITY($J	EX+1!

Label References

Name	Line Occurrences
$$GLOBCNT	PT+4
$$PSTCSVCD	UNMAP+6
@(	TASK+9, PT+8, PAGE+3, PAGE+9
BLDARY	UNMAP+8, MAP+16, MAP+21
DEVICE	EN+5
ENVCHK	EN+3
EX	PT+5
HDR	INIT7+3
HDRM	MAP+2
HDRP	PT+5
HDRU	UNMAP+2
INAFLAG	UNMAP+12
INIT7	PT+5
MAP	PT+17
PAGE	OUTPUT+14, PT+11, PTPRT+6, UNMAP+13, MAP+25
PARAM	EN+4
PAUSE	PT+15
PT	OUTPUT+13
PTPRT	PT+10
SCROLL	SCROLL+3
TASK	EN+7
UNMAP	PT+13

Naked Globals

Name	Field # of Occurrence
^(0	PTPRT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+1~, DEVICE+2*
%ZIS("A"	DEVICE+2*
ARW	OUTPUT+2~, OUTPUT+3*, MAP+22
ARY	BLDARY~, BLDARY+2, BLDARY+4, BLDARY+8, BLDARY+13, BLDARY+16, BLDARY+17
>> BCSVF	PSTCSVCD+2, PSTCSVCD+5, PSTCSVCD+7, PSTCSVCD+10, PSTCSVCD+13*, PSTCSVCD+14
DASH	OUTPUT+2~, OUTPUT+5*
DDLM	OUTPUT+1~, OUTPUT+10, OUTPUT+12
DESC	BLDARY~, BLDARY+4, BLDARY+5*, BLDARY+7
DIR	PARAM+7~
DIR("A"	PARAM+10*
DIR("B"	PARAM+9*
DIR(0	PARAM+8*
DLM	OUTPUT+1~
DOT	OUTPUT+2~, OUTPUT+6*
DTIME	PAGE+4, SCROLL+2
EFLG	OUTPUT+1~, OUTPUT+8, OUTPUT+10*
EQUAL	OUTPUT+2~, OUTPUT+7*, HDR+3, HDR+7, HDRU+2, HDRU+5, HDRM+2, HDRM+6
FIL	OUTPUT+1~, OUTPUT+9*, OUTPUT+10, OUTPUT+12, UNMAP~, UNMAP+3, UNMAP+4, MAP~, MAP+4, MAP+6
FILE	PT+1~, PT+5, PT+7, PT+8, PT+9, PTNO+1, PTNO+2, PTYES, PTPRT+2, PTPRT+4
FILEN	PT+1~, PTNO+4, PTYES, PTPRT+3
>> FILETP	PTNO+2*, PTNO+3, PTNO+4
FLAGE	OUTPUT+1~, OUTPUT+8, PT+9, PT+12, PT+14, PT+16, PAGE+6*, PAGE+7, PAGE+8
FLAGP	OUTPUT+1~, OUTPUT+3*, HDR+1, HDRU+1, HDRM+1, PAGE+3, INIT7+2
FLAGPT	PT+8, PT+9, PT+18!, PTNO+1, PTNO+3*, EX+1!
FLAGQ	OUTPUT+1~, OUTPUT+11, PT+5, PT+7, PT+9, PT+10, PT+12, PT+14, PT+16, UNMAP+5 , UNMAP+13, MAP+7, MAP+25, PAGE+1, PAGE+6, PAGE+8, SCROLL+2*
>> FLAGS	SCROLL+4*
FLD	PT+1~, PT+9*, PTPRT+2, PTPRT+4, PTPRT+5
FNAM	PT~, PT+6, HDR+4, HDRP+1
FNUM	PT~, PT+2, PT+6, PT+7, PT+9, HDR+4, HDRP+1
GBL	GLOBCNT~, GLOBCNT+3
GCNT	GLOBCNT+1~, GLOBCNT+2, GLOBCNT+5, GLOBCNT+6
>> GL	PTNO+4, PTYES, PTPRT+3
GLBP	UNMAP+1~, UNMAP+3, UNMAP+5, MAP+1~, MAP+4, MAP+7, MAP+8, MAP+20
>> HD	OUTPUT+14, PT+5, PT+11, UNMAP+2, MAP+2*, PAGE+3, PAGE+9
I	UNMAP+1~, UNMAP+10, UNMAP+11, MAP+1~, MAP+18, MAP+19, MAP+23, MAP+24, BLDARY+1~, BLDARY+6 , BLDARY+7, PAGE+2~*
IEN	GLOBCNT+1~, GLOBCNT+4*
IO	HDR+1, HDRU+1, HDRM+1, PAGE+3, INIT7+2
IO("Q"	TASK+3
IO(0	HDR+1, HDRU+1, HDRM+1, PAGE+3
IOF	HDR+1, HDRU+1, HDRM+1, PAGE+3, PAGE+7
IOM	HDR+3, HDR+5, HDR+7, HDRU+2, HDRU+5, HDRM+2, HDRM+6
ION	TASK+6
IOSL	OUTPUT+3
KNWPTR	PTPRT+1~, PTPRT+2*, PTPRT+4
LINE	BLDARY+1~, BLDARY+3, BLDARY+4, BLDARY+8, BLDARY+13, BLDARY+16, BLDARY+17
LOOP	GLOBCNT+1~, GLOBCNT+3*, GLOBCNT+4
LP	OUTPUT+1~
MAPF	EN+1~, PARAM+1, PARAM+4, PARAM+5, PT+17
NDESC	BLDARY+1~, BLDARY+5*
OFF	OUTPUT+1~, OUTPUT+9
POP	EN+1~, EN+6
RPTDATE	OUTPUT+2~, HDR+2*, HDR+5
RPTTYP	PARAM+6!, PARAM+12*, MAP+8
>> SCROLL	SCROLL+2, SCROLL+3, SCROLL+4
>> SDESC	UNMAP+7, UNMAP+8, MAP+9, MAP+16
SIEN	UNMAP+1~, UNMAP+5, UNMAP+6, UNMAP+7, UNMAP+12, PSTCSVCD~, PSTCSVCD+5, PSTCSVCD+7, PSTCSVCD+10, PSTCSVCD+13 , INAFLAG~, INAFLAG+2, INAFLAG+5, INAFLAG+8, INAFLAG+11, MAP+1~, MAP+7, MAP+8, MAP+9, MAP+10 , MAP+20
>> SIFLG	INAFLAG+3, INAFLAG+5, INAFLAG+8, INAFLAG+11, INAFLAG+13
SIZE	OUTPUT+1~, OUTPUT+3*, PTPRT+6, UNMAP+13, MAP+25, PAGE+2
SOURCE	UNMAP+1~, MAP+1~
SOURCE(	UNMAP+10, UNMAP+11, MAP+18, MAP+19, MAP+24
SRC	OUTPUT+1~, OUTPUT+12
SRC("DFLD"	UNMAP+7, MAP+9
SRC("FNAM"	OUTPUT+13
SRC("GNAM"	PT+13, PT+17, UNMAP+3, UNMAP+4, MAP+4, MAP+6
SRC("NUM"	OUTPUT+13, UNMAP+7, PSTCSVCD+3, PSTCSVCD+9, PSTCSVCD+12, INAFLAG+4, INAFLAG+7, INAFLAG+10, MAP+9
STRING	BLDARY+1~, BLDARY+3, BLDARY+8, BLDARY+10, BLDARY+11, BLDARY+13, BLDARY+14
TARGET	MAP+1~
TARGET(	MAP+23, MAP+24
>> TDESC	MAP+10*, MAP+21
TIEN	MAP+1~
TRG	OUTPUT+1~, OUTPUT+12
TRG("DFLD"	MAP+10
TRG("GNAM"	PTPRT+2, UNMAP+3, UNMAP+4, MAP+4, MAP+6, MAP+10, HDR+6
U	PTNO+4, PTYES, PTPRT+4, PSTCSVCD+5, PSTCSVCD+7, PSTCSVCD+10, PSTCSVCD+13, MAP+8, MAP+20, PAGE+5 , PAGE+6
UNMAPF	EN+1~, PARAM+1, PARAM+3, PT+13
WORD	BLDARY+1~, BLDARY+6, BLDARY+7*, BLDARY+8, BLDARY+9, BLDARY+10, BLDARY+11, BLDARY+14, BLDARY+16, BLDARY+17
Y	PARAM+7~, PARAM+12
Z1	OUTPUT+2~, PAGE+4, PAGE+5, PAGE+6
ZCNT	PT+1~, PT+5, PTPRT+3, PTPRT+6
ZFILE	PT+1~
ZGL	PT+1~, PT+2*, PT+4, HDR+5
>> ZGLCNT	PT+1, PT+4*, HDR+6
ZTDESC	TASK+1~, TASK+5*
ZTDTH	TASK+1~, TASK+4*
>> ZTIO	TASK+6*
>> ZTQUEUED	PAGE+3
ZTRTN	TASK+1~, TASK+2*, TASK+9
>> ZTSAVE("MAPF"	TASK+7*
>> ZTSAVE("UNMAPF"	TASK+7*

Customize PDF page

Package: IHS Code Set Versioning

Routine: BCSVMR2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: