Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BCSVMR2

Package: IHS Code Set Versioning

Routine: BCSVMR2


Information

BCSVMR2 ;IHS/MSC/PLS - CSV Mapping Report;28-Jul-2008 12:55;AA

Source Information

Source file <BCSVMR2.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 1

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All