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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ADGGFL

Package: IHS Changes To ADT

Routine: ADGGFL


Information

ADGGFL ;searhc/maw - ADG CONVERT V HOSP FILE POINTERS [ 05/13/1999 2:45 PM ]

Source Information

Source file <ADGGFL.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ADT ;-- this is where i get the admission iens
SET ;-- this is where i set the nodes with the new pointers
END ;-- kill the variables and quit
GET ;-- go through the hospital location file and grab bad data nodes
DIT ;-- this is where i get the discharge iens
MAIN ;-- this is the main routine driver

External References

Name Field # of Occurrence
^%ZIS GET+16
^%ZISC GET+24
^DIR SET+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"I am getting the new admission type pointers"
  • Line Location: ADT+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: ADT+6
Function Call: WRITE
  • Prompt: !,"I am getting the new discharge type pointers..."
  • Line Location: DIT+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: DIT+6
Function Call: WRITE
  • Prompt: !,"I will now search for entries in the V Hospitalization file "
  • Line Location: GET+1
Function Call: WRITE
  • Prompt: "that are incomplete."
  • Line Location: GET+2
Function Call: WRITE
  • Prompt: !,"At the end of this search, I will print a list of incomplete "
  • Line Location: GET+3
Function Call: WRITE
  • Prompt: "data nodes."
  • Line Location: GET+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: GET+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: GET+15
Function Call: WRITE
  • Prompt: !,"You must rerun this conversion before continuing, D ^ADGGFL when ready"
  • Line Location: GET+17
Function Call: WRITE
  • Prompt: !,"The following data nodes have incomplete data:"
  • Line Location: GET+18
Function Call: WRITE
  • Prompt: !,"^AUPNVINP("_TMPA_",0) has "_$G(^TMP($J,TMPA))
  • Line Location: GET+21
Function Call: WRITE
  • Prompt: !!,"All data in ^AUPNVINP is acceptable for conversion",!
  • Line Location: GET+23
Function Call: WRITE
  • Prompt: !,"You must update V HOSP pointers, D SET^ADGGFL when ready"
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: !,"I am now repointing the V Hospitalization file "
  • Line Location: SET+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: SET+23
Function Call: WRITE
  • Prompt: !,"Conversion completed succsessfully, "_REC_" entries updated"
  • Line Location: SET+24
Routine Call
  • DIR
  • Line Location:
    • SET+3
Routine Call
  • %ZIS
  • Line Location:
    • GET+16

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVINP - [#9000010.02] GET+8, GET+11, GET+12, GET+13, SET+11, SET+12, SET+14, SET+15, SET+18*, SET+19*
^DG(405.1 - [#405.1] ADT+4, ADT+5, DIT+4, DIT+5
^DIC(42.1 - [#42.1] ADT+2, ADT+3
^DIC(42.2 - [#42.2] DIT+2, DIT+3
^TMP("VHOSP" SET+8, SET+22*, END+2!
^TMP($J GET+11*, GET+12*, GET+13*, GET+19, GET+20, GET+21, SET+13, END+2!

Label References

Name Line Occurrences
ADT MAIN+1
DIT MAIN+1
END MAIN+3
GET MAIN+2
SET MAIN+3, SET+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACNT SET+11*, SET+20*, SET+23*, END+1!
ADT SET+14*, SET+16, END+1!
ADT( ADT+5*, SET+16
AIEN SET+8*, SET+11*, SET+12, SET+13, SET+14, SET+15, SET+18, SET+19, END+1!
>> CNT GET+19*, GET+22*, GET+23
DA END+1!
DIE END+1!
>> DIR("A" SET+2*
>> DIR(0 SET+2*
>> DIRUT SET+4
DIT SET+15*, SET+17, END+1!
DIT( DIT+5*, SET+17
DR END+1!
ENT GET+8*, GET+9*, GET+10*, END+1!
FMIEN ADT+3*, ADT+5, DIT+3*, DIT+5, END+1!
FMNM ADT+2*, ADT+3, ADT+4, ADT+5, DIT+2*, DIT+3, DIT+4, DIT+5, END+1!
>> HLF GET+8*, GET+11, GET+12, GET+13
IOF GET+15
NAT SET+16*, SET+18, END+1!
NDT SET+17*, SET+19, END+1!
>> POP MAIN+2, GET+17
>> REC SET+7*, SET+8*, SET+21*, SET+22, SET+24
TMPA GET+19*, GET+20, GET+21, END+1!
U GET+12, GET+13, SET+14, SET+15, SET+18, SET+19
>> Y SET+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All