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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACD4P1PB

Package: Alcohol Chemical Dependency

Routine: ACD4P1PB


Information

ACD4P1PB ;IHS/ADC/EDE/KML - BROKE UP ACD4P1P;

Source Information

Source file <ACD4P1PB.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 FILE^DICN  ^DIE  
Kernel 1 $$LGR^%ZOSV  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Alcohol Chemical Dependency 1 ACD4P1P  

Entry Points

Name Comments DBIA/ICR reference
CONVERR ; ERROR DESCRIPTIONS
CHG72 ; CHANGE FILE 9002172
CHG70P7 ; CHANGE FILE 9002170.7
CHG73P5 ; CHANGE FILE 9002173.5
REPFLD ; REPOINT FIELD
KILL ; ----- KILL D0, D1, ETC.
CONVERT() ; CONVERT FILE 6 POINTER TO FILE 200 POINTER
CHGACDF ; CHANGE CDMIS FIELDS
CHG72P7 ; CHANGE FILE 9002172.7
CHG72P1 ; CHANGE FILE 9002172.1
D0DA ; ----- Set DA array from D0 (etc).
CONVERT2 ;

External References

Name Field # of Occurrence
$$LGR^%ZOSV CONVERT+2
FILE^DICN CHGACDF+13
^DIE REPFLD+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"File 6 to file 200 conversion already done.",!
  • Line Location: CHGACDF+2
Function Call: WRITE
  • Prompt: !,"I am now going to repoint your CDMIS provider pointers to point",!," to the NEW PERSON file. Please wait.",!
  • Line Location: CHGACDF+4
Function Call: WRITE
  • Prompt: !!,"Adding of CONVERSIION FLAG failed. Notify programmer.",!!
  • Line Location: CHGACDF+15
Function Call: WRITE
  • Prompt: !,"Changing file 9002170.7",!
  • Line Location: CHG70P7+1
Function Call: WRITE
  • Prompt: !,"Changing file 9002172",!
  • Line Location: CHG72+1
Function Call: WRITE
  • Prompt: !,"Changing file 9002172.1",!
  • Line Location: CHG72P1+1
Function Call: WRITE
  • Prompt: !,"Changing file 9002172.7",!
  • Line Location: CHG72P7+1
Function Call: WRITE
  • Prompt: !,"Changing file 9002173.5",!
  • Line Location: CHG73P5+1
Function Call: WRITE
  • Prompt: !,"Sorry, someone else is editing this record. Try later."
  • Line Location: REPFLD+5
Function Call: WRITE
  • Prompt: ACDZR,!," "_$P($T(CONVERR+E),";;",2),!," "_M,!
  • Line Location: CONVERT+5
Routine Call
  • DIE
  • Line Location:
    • REPFLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACDCNV - [#9002171.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDCNV("B" CHGACDF+1
^ACDCS - [#9002172] CHG72+4, CHG72+6, CHG72+7
^ACDCSCS - [#9002172.7] CHG72P7+4, CHG72P7+6, CHG72P7+8, CHG72P7+9
^ACDINTV - [#9002173.5] CHG73P5+4, CHG73P5+6, CHG73P5+7
^ACDPD - [#9002170.7] CHG70P7+4, CHG70P7+5, CHG70P7+8, CHG70P7+10, CHG70P7+11
^ACDVIS - [#9002172.1] CHG72P1+4, CHG72P1+5
^DIC(16 - [#16] CONVERT2+4, CONVERT2+5, CONVERT2+6
^DIC(6 - [#6] CONVERT2+3
^VA(200 - [#200] CONVERT2+9

Label References

Name Line Occurrences
$$CONVERT CHG70P7+6, CHG70P7+12, CHG72+8, CHG72P1+6, CHG72P7+10, CHG73P5+8
CHG70P7 CHGACDF+5
CHG72 CHGACDF+6
CHG72P1 CHGACDF+7
CHG72P7 CHGACDF+8
CHG73P5 CHGACDF+9
CONVERT2 CONVERT+3
D0DA REPFLD+2
KILL CHG70P7+2, CHG72+2, CHG72P1+2, CHG72P7+2, CHG73P5+2
REPFLD CHG70P7+6, CHG70P7+12, CHG72+8, CHG72P1+6, CHG72P7+10, CHG73P5+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACDIEN CHG70P7+6*, CHG70P7+12*, CHG72+8*, CHG72P1+6*, CHG72P7+10*, CHG73P5+8*, REPFLD+4, REPFLD+9!
>> ACDQ CHGACDF+1*
ACDZR CONVERT+1~, CONVERT+2*, CONVERT+5
D CHGACDF+14!, REPFLD+8!
D0 CHGACDF+14!, CHG70P7+3*, CHG70P7+4*, CHG70P7+5, CHG70P7+6, CHG70P7+8, CHG70P7+10, CHG70P7+11, CHG70P7+12, CHG72+3*
, CHG72+4*, CHG72+6, CHG72+7, CHG72+8, CHG72P1+3*, CHG72P1+4*, CHG72P1+5, CHG72P1+6, CHG72P7+3*, CHG72P7+4*
, CHG72P7+6, CHG72P7+8, CHG72P7+9, CHG72P7+10, CHG73P5+3*, CHG73P5+4*, CHG73P5+6, CHG73P5+7, CHG73P5+8, REPFLD+3~
, REPFLD+8!, D0DA+2
D1 CHGACDF+14!, CHG70P7+7*, CHG70P7+8*, CHG70P7+10, CHG70P7+11, CHG70P7+12, CHG72+5*, CHG72+6*, CHG72+7, CHG72+8
, CHG72P7+5*, CHG72P7+6*, CHG72P7+8, CHG72P7+9, CHG72P7+10, CHG73P5+5*, CHG73P5+6*, CHG73P5+7, CHG73P5+8, REPFLD+3~
, REPFLD+8!
D2 CHG70P7+9*, CHG70P7+10*, CHG70P7+11, CHG70P7+12, CHG72P7+7*, CHG72P7+8*, CHG72P7+9, CHG72P7+10, REPFLD+3~
DA CHGACDF+14!, REPFLD+1~, REPFLD+4*, REPFLD+8!, D0DA+2*, D0DA+4*
DA( D0DA+3*
DD CHGACDF+12!
DI CHGACDF+14!, REPFLD+8!
DIADD CHGACDF+14!, REPFLD+8!
DIC CHGACDF+11*, CHGACDF+14!, REPFLD+8!
DIC(0 CHGACDF+11*
DICR CHGACDF+14!, REPFLD+8!
DIE CHGACDF+14!, REPFLD+4*, REPFLD+8!
DINUM CHGACDF+14!, REPFLD+8!
DLAYGO CHGACDF+14!, REPFLD+8!
DO CHGACDF+12!
DQ CHGACDF+14!, REPFLD+8!
DR CHGACDF+14!, REPFLD+4*, REPFLD+8!
E CONVERT+1~, CONVERT+4, CONVERT2+1*, CONVERT2+3*, CONVERT2+4*, CONVERT2+5*, CONVERT2+7*, CONVERT2+9*
>> F CHG70P7+6*, CHG70P7+12*, CHG72+8*, CHG72P1+6*, CHG72P7+10*, CHG73P5+8*, REPFLD+4
>> G CHG70P7+6*, CHG70P7+12*, CHG72+8*, CHG72P1+6*, CHG72P7+10*, CHG73P5+8*, REPFLD+4
I D0DA+1*, D0DA+3*, D0DA+4, KILL+1~, KILL+2*
>> J D0DA+1*, D0DA+2, D0DA+3*
M CONVERT+1~, CONVERT+5, CONVERT2+2*, CONVERT2+8*
U CHG70P7+5, CHG70P7+11, CHG72+7, CHG72P1+5, CHG72P7+9, CHG73P5+7
X CHGACDF+11*, CHG70P7+6*, CHG70P7+12*, CHG72+8*, CHG72P1+6*, CHG72P7+10*, CHG73P5+8*, REPFLD+4, CONVERT+1~, CONVERT+4*
, CONVERT+7, CONVERT2+6*, CONVERT2+7, CONVERT2+8, CONVERT2+9
>> Y CHGACDF+15, CHG70P7+5*, CHG70P7+6, CHG70P7+11*, CHG70P7+12, CHG72+7*, CHG72+8, CHG72P1+5*, CHG72P1+6, CHG72P7+9*
, CHG72P7+10, CHG73P5+7*, CHG73P5+8, CONVERT2+2, CONVERT2+3, CONVERT2+4, CONVERT2+5, CONVERT2+6

Marked Items

Name Field # of Occurrence
$T(CONVERR+E CONVERT+5
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 |  Local Variables |  Marked Items |  All