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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ADGVHF

Package: IHS Changes To ADT

Routine: ADGVHF


Information

ADGVHF ; IHS/ADC/PDW/ENM - CREATE VHOSP IF MISSING ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGVHF.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS Changes To ADT 3 (APCDALV,APCDEKL)^ADGCALLS  $$HRC^ADGF  TIME^ADGUTIL  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  C^%DTC  ^DIR  
Patient Care Component 2 ^APCDALVR  ^APCDEIN  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS VHOSP FIX  

Entry Points

Name Comments DBIA/ICR reference
DATE2
END
MSG(DGN) ; -- prints message
TFAC() ; -- transfer facility
HED ; -- heading
NEWPG ; -- end of page control
ADD ; -- SUBRTN to set variables to call apcdalvr
DSRV() ; -- discharge service
QUE
DATE
KILL ; -- kill apcd variables
LINE ;;
LOOP ;EP; loop thru discharges to check for missing vhosps

External References

Name Field # of Occurrence
^%DT DATE, DATE2
C^%DTC DATE2+2
^%ZIS DATE2+5
HOME^%ZIS END
^%ZISC QUE+2, LOOP+17
^%ZTLOAD QUE+2
APCDALV^ADGCALLS ADD+4
APCDEKL^ADGCALLS KILL+1
$$HRC^ADGF MSG+2
TIME^ADGUTIL HED+5
^APCDALVR ADD+15
^APCDEIN ADD+1
^DIR NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!?5,"Ending date MUST NOT be before beginning date",!
  • Line Location: DATE2+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !,DGLIN
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: !?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !,DGDUZ,?80-$L(DGSITE)/2,DGSITE
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPG
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !,DGLIN2,!
  • Line Location: HED+7
Function Call: WRITE
  • Prompt: !!,$P(^DPT(DFN,0),U),?25,$$HRC^ADGF(DFN),?35,$P($T(LINE+DGN),";;",2)
  • Line Location: MSG+2
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • DIR
  • Line Location:
    • NEWPG+2
Routine Call
  • %ZIS
  • Line Location:
    • DATE2+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVINP("AD" LOOP+13
^DD("DD" HED+6
^DGPM - [#405] LOOP+9, LOOP+10, LOOP+11, LOOP+12, ADD+5, ADD+12, DSRV+2, DSRV+4
^DGPM("APHY" ADD+12
^DGPM("ATID6" DSRV+3
^DGPM("ATT3" LOOP+6, LOOP+8
^DIC(4 - [#4] LOOP+1
^DPT - [#2] MSG+2
^VA(200 - [#200] LOOP+1

Label References

Name Line Occurrences
$$DSRV ADD+11
$$TFAC ADD+9
ADD LOOP+14
DATE DATE2
DATE2 DATE2+1
END DATE+1, DATE2+5
HED LOOP+3, NEWPG+1, NEWPG+3
KILL ADD+16, ADD+17
LOOP DATE2+5
MSG ADD+16, ADD+17
NEWPG ADD+16, MSG+1
QUE DATE2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE*
>> %DT("A" DATE*, DATE2*
>> %ZIS DATE2+5*
>> APCDALVR("APCDAFLG" ADD+16
>> APCDALVR("APCDATMP" ADD+8*
>> APCDALVR("APCDLOOK" ADD+10*
>> APCDALVR("APCDPAT" ADD+6*
>> APCDALVR("APCDTADS" ADD+12*
>> APCDALVR("APCDTAT" ADD+13*
>> APCDALVR("APCDTDCS" ADD+11*
>> APCDALVR("APCDTDT" ADD+7*
>> APCDALVR("APCDTTT" ADD+9*
>> APCDALVR("APCDVSIT" ADD+14*
DFN LOOP+16!, ADD+1*, ADD+6, DSRV+3, MSG+2
DGA LOOP+11*, LOOP+17!, ADD+1, ADD+4, ADD+9, ADD+13
DGADM LOOP+10*, LOOP+11, LOOP+12, LOOP+17!, ADD+4, ADD+5, ADD+12, DSRV+2
DGBDT DATE+1*, DATE2+1, END!, LOOP+5, LOOP+17!
DGD LOOP+9*, LOOP+16!, ADD+7, ADD+10, TFAC+1
DGDSC LOOP+7*, LOOP+8*, LOOP+9, LOOP+10, LOOP+17!
DGDT LOOP+5*, LOOP+6*, LOOP+8, LOOP+17!
DGDUZ LOOP+1*, LOOP+16!, HED+4
DGEDT DATE2*, DATE2+1, DATE2+2*, END!, LOOP+5, LOOP+17!
DGEND LOOP+5*, LOOP+6, LOOP+17!
DGLIN LOOP+2*, LOOP+16!, HED+2
DGLIN2 LOOP+2*, LOOP+16!, HED+7
DGN MSG~
DGPG LOOP+1*, LOOP+16!, HED+1, HED+2*, HED+5
DGPMA ADD+3~, ADD+4*
DGPMCA ADD+3~, ADD+4*
DGPMDA ADD+3~, ADD+4*
DGQ LOOP+3*, LOOP+6, LOOP+8, LOOP+17!, NEWPG+2*, NEWPG+3, MSG+1
DGSITE LOOP+1*, LOOP+16!, HED+4
DGTY LOOP+16!, HED+4*, HED+5
DGV LOOP+12*, LOOP+13, LOOP+17!, ADD+2, ADD+5*, ADD+14
DIR NEWPG+2!
DIR(0 NEWPG+2*
DT DATE2+2, HED+6
DUZ LOOP+1
DUZ(2 LOOP+1
>> I QUE+1*
IO DATE2+5
IO("Q" DATE2+5, QUE!
IOF HED+1
IOSL MSG+1
IOST NEWPG+1, HED+1
>> POP DATE2+5
U LOOP+1, LOOP+6, LOOP+8, LOOP+10, LOOP+12, ADD+1, ADD+5, ADD+7, ADD+9, ADD+12
, ADD+13, TFAC+1, DSRV+2, DSRV+4, NEWPG+3, MSG+1, MSG+2
X DATE*, DATE2*, DATE2+2, TFAC+1~*, TFAC+2, DSRV+1~, DSRV+3*, DSRV+4, NEWPG+2
>> X1 DATE2+2*
>> X2 DATE2+2*
Y DATE+1, DATE2, END!, DSRV+1~, DSRV+2*, DSRV+3, HED+6*
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+1*
ZTSK QUE+2!

Marked Items

Name Field # of Occurrence
$T(LINE+DGN MSG+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All