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 |  All
Print Page as PDF
Routine: BDGPCCL

Package: IHS Changes To ADT

Routine: BDGPCCL


Information

BDGPCCL ; IHS/ANMC/LJF,WAR - PCC LINK CODE ; [ 09/14/2004 2:11 PM ]

Source Information

Source file <BDGPCCL.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Patient Care Component 5 ^APCDALV  (,$$DEL)^APCDALVR  START^APCDCVDT  EN1^APCDEKL  EN^APCDVDLT  
IHS Changes To ADT 3 (MSG,PAUSE)^BDGF  ($$ADMSRVN,$$ADMTXN,$$LASTSRVN,$$LASTTXN)^BDGF1  $$CHECK^BDGVAR  
VA Fileman 3 ^DIE  ^DIK  $$GET1^DIQ  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 BDGVHF  

Entry Points

Name Comments DBIA/ICR reference
1 ; Admissions
CHKCAT ; called by ADDVH to check visit service category
; if last service and service category don't match, fix category
EDITVST(VST,DFN)
VH(V) ; return V Hosp entry for visit V
3 ; Discharges
; if patient died, make sure Reg export notified
2 ; Ward Transfers
5 ; check-out lodger
4 ; check-in lodger
6 ; Service transfers
HASVPTR() ; -- returns 1 if admission already has good visit pointer
KILLVAR ; cleanup variables
CHGVDT ; edit visit date
ADDVH ;EP; -- create v hosp
; Also called by V Hosp fix (^BDGVHF)
HASVISIT() ; returns 1 if visit found in PCC and link added
; assumes called with DGPMA=admit node
DELPTR ; deletes visit pointer in admission ien
NBCHK ; -- checks newborn admit date against date of birth
ADDVST ; create visit
CHKVH ; check v hosp entry to see if admission mod changed v hosp data
; if admission service changed...
DELVST ; delete visit
EDITVH ; edit v hospitalization
; -- create visit if none already for admission
ERR(MSG,ERROR) ; display error message
EVENT ; process event

External References

Name Field # of Occurrence
^APCDALV ADDVST+26
^APCDALVR EDITVST+5, EDITVH+17, ADDVH+36
$$DEL^APCDALVR 3+9
START^APCDCVDT CHGVDT+6
EN1^APCDEKL KILLVAR+1
EN^APCDVDLT DELVST+8
MSG^BDGF ERR+2
PAUSE^BDGF 3+13
$$ADMSRVN^BDGF1 CHKVH+2, CHKVH+3, ADDVH+28
$$ADMTXN^BDGF1 NBCHK+3
$$LASTSRVN^BDGF1 ADDVST+19, CHKCAT+4, HASVISIT+17
$$LASTTXN^BDGF1 6+8, CHKVH+4, CHKVH+5, ADDVH+27
$$CHECK^BDGVAR EVENT+1
^DIE ADDVST+39, HASVISIT+19, HASVISIT+23, DELPTR+1
^DIK CHKCAT+10
$$GET1^DIQ 3+8, 3+23, 3+26, 6+2, 6+7, 6+9, ADDVST+7, ADDVST+8, ADDVST+10, CHGVDT+2
, CHGVDT+3, DELVST+5, CHKVH+10, CHKVH+11, CHKVH+12, CHKCAT+3, CHKCAT+5, CHKCAT+15, CHKCAT+19, EDITVH+2
, EDITVH+5, EDITVH+15, ADDVH+3, ADDVH+5, ADDVH+6, ADDVH+11, ADDVH+17, ADDVH+19, ADDVH+21, ADDVH+25
, ADDVH+29, ADDVH+30, ADDVH+31, ADDVH+34, HASVPTR+2, HASVPTR+6, HASVPTR+9, VH+1
$$NOW^XLFDT 3+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ERROR DELETING V HOSP ENTRY - ERROR CODE ",E
  • Line Location: 3+11
Function Call: WRITE
  • Prompt: !,"Please relay this message to your supervisor"
  • Line Location: 3+12
Function Call: WRITE
  • Prompt: !!,"Visit created for date of admission"
  • Line Location: ADDVST+31
Function Call: WRITE
  • Prompt: !,*7,"CANNOT UPDATE VISIT LINK; ENTRY LOCKED"
  • Line Location: ADDVST+34
Function Call: WRITE
  • Prompt: !!,*7,"NEWBORN ADMIT DATE DOES NOT MATCH DATE OF BIRTH"
  • Line Location: NBCHK+7
Function Call: WRITE
  • Prompt: !,"PLEASE FIX INCORRECT DATE!"
  • Line Location: NBCHK+8
Routine Call
  • DIE
  • Line Location:
    • ADDVST+39
    • HASVISIT+19
    • HASVISIT+23
    • DELPTR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] Classic Fileman Calls,  GET1^DIQ
^DIC(42 - [#42] GET1^DIQ
^AUPNVSIT - [#9000010] Classic Fileman Calls,  GET1^DIQ
^AUPNVINP - [#9000010.02] Classic Fileman Calls,  GET1^DIQ
^APCCCTRL - [#9001000] GET1^DIQ
^APCDSITE - [#9001001.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGPATCH( 3+2*
^AUPNVINP("AD" 3+23, DELVST+5, CHKVH+10, CHKCAT+10, CHKCAT+15, CHKCAT+19, EDITVH+8, EDITVH+14, ADDVH+16, VH+1
^AUPNVSIT - [#9000010] HASVPTR+3, HASVISIT+9, HASVISIT+13
^AUPNVSIT("AA" HASVISIT+8
^DGPM - [#405] ADDVST+33, ADDVST+39, EDITVH+4, ADDVH+8, HASVISIT+3, NBCHK+4
^DIC(19 - [#19] ADDVST+14
^DIC(40.7 - [#40.7] ADDVST+22, ADDVST+24
^DIC(45.7 - [#45.7] NBCHK+2
^DPT - [#2] 3+2, NBCHK+5
^SRF("AV" DELVST+2

Label References

Name Line Occurrences
$$HASVISIT ADDVST+2
$$HASVPTR ADDVST+1
$$VH 3+8, 6+9
@( EVENT+3
ADDVH 3+4, CHKCAT+15, CHKCAT+19, EDITVH+8
ADDVST 1+3, CHGVDT+2, EDITVH+4, ADDVH+9
CHGVDT 1+5
CHKCAT 1+7, 3+36, 6+1
CHKVH 1+8
DELPTR HASVPTR+3, HASVPTR+6, HASVPTR+9
DELVST 1+4
EDITVH 3+34, 6+10, CHKVH+14
EDITVST CHKCAT+9, CHKCAT+14, CHKCAT+18
ERR ADDVST+29, EDITVST+7, CHGVDT+9, DELVST+6, EDITVH+19, ADDVH+38, ADDVH+39
KILLVAR ADDVST+30, ADDVST+35, ADDVST+41, EDITVST+8, CHGVDT+10, DELVST+8, EDITVH+3, EDITVH+20, ADDVH+41
NBCHK 1+2, 6+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCDALVR EVENT+2!, 3+34, CHKVH+14, KILLVAR+1!
APCDALVR("APCDADD" ADDVST+4*
APCDALVR("APCDAFLG" ADDVST+28, ADDVST+29, EDITVST+7, EDITVH+19, ADDVH+38
APCDALVR("APCDANE" ADDVST+17*
APCDALVR("APCDATMP" EDITVST+3*, EDITVH+13*, ADDVH+22*
APCDALVR("APCDCAT" ADDVST+21*, CHKCAT+9*, CHKCAT+14*, CHKCAT+18*
APCDALVR("APCDCLN" ADDVST+22*, ADDVST+24*
APCDALVR("APCDDATE" ADDVST+9*
APCDALVR("APCDDSCH" 3+17*, EDITVH+15*
APCDALVR("APCDHL" ADDVST+10*
APCDALVR("APCDLOC" ADDVST+6*
APCDALVR("APCDLOOK" EDITVH+14*, ADDVH+25*
APCDALVR("APCDOPT" ADDVST+14*
APCDALVR("APCDPAT" ADDVST+5*, EDITVST+2*, EDITVH+12*, ADDVH+20*
APCDALVR("APCDTADS" CHKVH+3*, ADDVH+28*
APCDALVR("APCDTASU" CHKVH+12*, ADDVH+32*
APCDALVR("APCDTAT" CHKVH+8*, ADDVH+29*
APCDALVR("APCDTATU" CHKVH+11*, ADDVH+30*
APCDALVR("APCDTDCS" 6+10*, CHKVH+4*, CHKVH+5*, ADDVH+27*
APCDALVR("APCDTDT" 3+20*, ADDVH+21*
APCDALVR("APCDTDTU" 3+26*, ADDVH+34*
APCDALVR("APCDTTT" 3+30*, 3+31*, ADDVH+23*
APCDALVR("APCDTYPE" ADDVST+7*, ADDVST+8*
APCDALVR("APCDVSIT" ADDVST+38, EDITVST+1*, EDITVH+11*, ADDVH+14*
APCDALVR("AUPNTALK" ADDVST+16*
APCDCVDT CHGVDT+1!, KILLVAR+1!
APCDCVDT("ERR OR FLAG" , CHGVDT+8, CHGVDT+9
APCDCVDT("VIS IT DATE/TIME" , CHGVDT+4*, IT DFN" , CHGVDT+3*
APCDVDLT DELVST+1*, DELVST+2, DELVST+5, KILLVAR+1!
APCDVLDT KILLVAR+1!
ASRV ADDVST+19~*, ADDVST+21, ADDVST+22, ADDVST+24
BDGOPT ADDVST+12~, ADDVST+13*, ADDVST+14
CAT CHKCAT+2~, CHKCAT+5*, CHKCAT+8, CHKCAT+13, CHKCAT+17, HASVISIT+2~, HASVISIT+13*, HASVISIT+14
DA 3+7~, 3+8*, 3+9, ADDVST+38*, CHKCAT+10~*, KILLVAR+1!, HASVISIT+2~, HASVISIT+18!*, HASVISIT+23!*, DELPTR+1~*
DFN 3+2, 6+8, ADDVST+5, ADDVST+19, EDITVST~, EDITVST+2, CHKVH+2, CHKVH+3, CHKVH+4, CHKVH+5
, CHKCAT+4, CHKCAT+9, CHKCAT+14, CHKCAT+18, EDITVH+12, ADDVH+20, ADDVH+27, ADDVH+28, HASVISIT+8, HASVISIT+17
, NBCHK+3
DGPMA 1+1, 1+2, 1+4, 1+5, 1+8, 3+6, 3+17, 3+20, 3+29, 3+30
, 3+31, 6+3, ADDVST+9, CHGVDT+4, CHKVH+2, CHKVH+8, EDITVH+4~*, ADDVH+8*, ADDVH+10*, ADDVH+23
, NBCHK+5, NBCHK+6
>> DGPMCA 3+8, 3+23, 6+2, 6+7, 6+8, ADDVST+10, ADDVST+19, ADDVST+33, ADDVST+38, ADDVST+39
, CHGVDT+2, CHGVDT+3, CHKVH+2, CHKVH+3, CHKVH+4, CHKVH+5, CHKVH+10, CHKVH+11, CHKVH+12, CHKCAT+3
, CHKCAT+4, CHKCAT+15, CHKCAT+19, EDITVH+2, EDITVH+4, EDITVH+5, EDITVH+15, ADDVH+3, ADDVH+8, ADDVH+11
, ADDVH+19, ADDVH+27, ADDVH+28, ADDVH+29, ADDVH+30, ADDVH+31, HASVPTR+2, HASVISIT+3, HASVISIT+17, HASVISIT+23
, VH+1, DELPTR+1, NBCHK+3
>> DGPMDA 3+26, NBCHK+3
>> DGPMP 1+1, 1+3, 1+5, 3+4, 3+17, 3+20, 3+29, DELVST+1, CHKVH+8
>> DGPMT EVENT+3, NBCHK+3
>> DGQUIET 1+2, 3+10, 6+3, ADDVST+15, ADDVST+31, ADDVST+34, ERR+1
DGSAV ADDVH+8*, ADDVH+10!
DIE ADDVST+38*, KILLVAR+1!, HASVISIT+2~, HASVISIT+18!*, HASVISIT+23!*, DELPTR+1~*
DIK 3+7~, 3+8*, 3+9, CHKCAT+10~*
DOB NBCHK+1~, NBCHK+5*, NBCHK+6
DR ADDVST+38*, KILLVAR+1!, HASVISIT+2~, HASVISIT+18!, HASVISIT+19*, HASVISIT+23!*, DELPTR+1~*
DSC ADDVH+19~*, ADDVH+21, ADDVH+25, ADDVH+34
DSRV 6+6~, 6+8*, 6+9, 6+10, CHKCAT+2~, CHKCAT+4*, CHKCAT+8, CHKCAT+13, CHKCAT+17
DUZ(2 3+2, ADDVST+6, ADDVST+7, ADDVST+8
E 3+7~, 3+9*, 3+10, 3+11
ERROR ERR~, ERR+2
MSG ERR~, ERR+2
NODE HASVISIT+3~*, HASVISIT+4
U 1+8, 3+20, 3+29, 3+30, 3+31, 6+8, DELVST+1, CHKVH+2, CHKVH+4, CHKVH+5
, CHKVH+8, ADDVH+23, ADDVH+27, HASVISIT+9, HASVISIT+13, NBCHK+4, NBCHK+5
V ADDVH+2~, ADDVH+3*, ADDVH+5*, ADDVH+6*, ADDVH+7, ADDVH+11*, ADDVH+12, ADDVH+14, ADDVH+16, ADDVH+17
, HASVISIT+8~*, HASVISIT+9, VH~
VH 3+23~*, 3+26, CHKVH+10~*, CHKVH+11, CHKVH+12
VST 6+6~, 6+7*, 6+9, EDITVST~, EDITVST+1, CHKCAT+2~, CHKCAT+3*, CHKCAT+5, CHKCAT+9, CHKCAT+10
, CHKCAT+14, CHKCAT+15, CHKCAT+18, CHKCAT+19, EDITVH+2~*, EDITVH+3, EDITVH+5*, EDITVH+8, EDITVH+11, EDITVH+14
, HASVISIT+2~, HASVISIT+8*, HASVISIT+9*, HASVISIT+10, HASVISIT+13, HASVISIT+18, HASVISIT+23
X 3+23~, 3+26*, CHKVH+10~, CHKVH+11*, CHKVH+12*, ADDVH+31*, ADDVH+32, HASVPTR+1~, HASVPTR+2*, HASVPTR+3
, HASVPTR+6, HASVPTR+9, HASVISIT+2~, HASVISIT+4*, HASVISIT+8, HASVISIT+17*, HASVISIT+19, NBCHK+1~, NBCHK+2*, NBCHK+4
Y HASVPTR+9*, NBCHK+1~, NBCHK+3*, NBCHK+4
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 |  All