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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BDPLMUPD

Package: IHS Designated Provider

Routine: BDPLMUPD


Information

BDPLMUPD ; IHS/CMI/TMJ - UPDATE USING LISTMAN ;

Source Information

Source file <BDPLMUPD.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
IHS VA Utilities 5 ($$VAL,$$VALI)^XBDIQ1  ^XBFMK  VIEWR^XBLM  EN^XBNEW  EN^XBVK  
VA Fileman 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Registration 3 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  
Kernel 2 $$FMTE^XLFDT  DISP^XQORM1  
IHS Designated Provider 1 ($$ADD1,$$EDIT)^BDPAPI  
IHS Patient 1 (,$$DOD,$$HRN,KILL)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
HELP ;EP -- help code
EN ; -- main entry point for BDP UPDATE
PAT ;
HDR ; -- header code
HS ;EP called from protocol to generate hs
CTR(X,Y) ;EP - Center X in a field Y wide.
GATHER ;
EXPND ; -- expand code
BACK ;
START ;
INIT ; -- init variables and list array
HS1 ;EP - called from xbnew
EXIT ;EP
CHANGE ;EP - change existing DP
GETITEM ;get record
EOJ ;
END ;
DELETE ;EP - delete exisiting DP
ADD ;EP - add a new dp
PAUSE ;EP
PPEP(BDPPAT,BDPTYPE) ;PEP - entry point to view/update one patient's providers

External References

Name Field # of Occurrence
^AUPNPAT HS1+10
$$DOD^AUPNPAT PAT+6, HDR+4
$$HRN^AUPNPAT HDR+2
KILL^AUPNPAT EOJ+8
$$ADD1^BDPAPI ADD+19
$$EDIT^BDPAPI ADD+22, CHANGE+15
^DIC PAT+3, HS1+5, ADD+4, ADD+15, CHANGE+11
^DIE DELETE+16, DELETE+20
$$GET1^DIQ ADD+13, ADD+14, CHANGE+9, CHANGE+10
^DIR PAT+6, PAUSE+2, DELETE+9, GETITEM+4
EN^VALM EN+1
TERM^VALM0 BACK+1
CLEAR^VALM1 EOJ+6
FULL^VALM1 EOJ+6, HS+1, ADD+1, CHANGE+1, DELETE+1
$$VAL^XBDIQ1 GATHER+7, GATHER+8, CHANGE+8, DELETE+8
$$VALI^XBDIQ1 DELETE+12
^XBFMK PAT+1
VIEWR^XBLM HS1+9
EN^XBNEW HS+2
EN^XBVK EN+2, EOJ+1
$$FMTE^XLFDT PAT+6, HDR+4, GATHER+11
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$CTR("View/Update Designated Provider List",80)
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !,"No Patient Selected."
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !!,"*****Note: Patient is Decesased. DOD: ",$$FMTE^XLFDT($$DOD^AUPNPAT(BDPPAT))
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !,"No updating done...."
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+11
Function Call: WRITE
  • Prompt: !,"No updating done...."
  • Line Location: ADD+16
Function Call: WRITE
  • Prompt: !!,"error updating designated provider"
  • Line Location: ADD+20
Function Call: WRITE
  • Prompt: !!,"error updating designated provider"
  • Line Location: ADD+23
Function Call: WRITE
  • Prompt: !!,"Provider ",$P(^VA(200,BDPPROV,0),U)," successfully added as",!,"the designated ",$P(^BDPTCAT(BDPCIEN,0),U)," provider.",!
  • Line Location: ADD+24
Function Call: WRITE
  • Prompt: !,"No item selected to change."
  • Line Location: CHANGE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CHANGE+8
Function Call: WRITE
  • Prompt: !,"No Provider Selected."
  • Line Location: CHANGE+12
Function Call: WRITE
  • Prompt: !!,"That is the currently documented provider."
  • Line Location: CHANGE+14
Function Call: WRITE
  • Prompt: !!,"error updating designated provider"
  • Line Location: CHANGE+16
Function Call: WRITE
  • Prompt: !!,"Provider ",$P(^VA(200,BDPPROV,0),U)," successfully added as",!,"the designated ",$P(^BDPTCAT(BDPCIEN,0),U)," provider.",!
  • Line Location: CHANGE+17
Function Call: WRITE
  • Prompt: !,"No item selected to DELETE."
  • Line Location: DELETE+6
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to DELETE ",$$VAL^XBDIQ1(90360.1,BDPRIEN,.03),!?3,"as the designated ",$$VAL^XBDIQ1(90360.1,BDPRIEN,.01),"?"
  • Line Location: DELETE+8
Function Call: WRITE
  • Prompt: !!,"Provider ",$P(^VA(200,BDPPROV,0),U)," successfully DELETED as",!," the designated ",$P(^BDPTCAT(BDPCIEN,0),U)," provider.",!
  • Line Location: DELETE+21
Function Call: WRITE
  • Prompt: !,"No Items to change"
  • Line Location: GETITEM+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • VALM
  • Line Location:
    • EN+1
Routine Call
  • DIE
  • Line Location:
    • DELETE+16
    • DELETE+20
Routine Call
  • DIC
  • Line Location:
    • PAT+3
    • HS1+5
    • ADD+4
    • ADD+15
    • CHANGE+11
Routine Call
  • DIR
  • Line Location:
    • PAT+6
    • PAUSE+2
    • DELETE+9
    • GETITEM+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls
^APCHSCTL - [#9001015] Classic Fileman Calls
^BDPRECN - [#90360.1] Classic Fileman Calls
^BDPTCAT - [#90360.3] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] HS1+2
^APCHSCTL - [#9001015] HS1+2, HS1+3
^BDPRECN - [#90360.1] GATHER+5, GATHER+11, ADD+7, CHANGE+7, CHANGE+14, DELETE+7, DELETE+19, DELETE+20, GETITEM+8
^BDPRECN("AA" GATHER+3, GATHER+4, ADD+7
^BDPTCAT - [#90360.3] ADD+8, ADD+24, CHANGE+17, DELETE+21
^DISV( HS1+3
^DPT - [#2] HDR+2, HS1+8
^VA(200 - [#200] ADD+24, CHANGE+17, DELETE+21

Label References

Name Line Occurrences
$$CTR START+2
BACK HS+3, HS1+6, HS1+11, ADD+5, ADD+7, ADD+16, ADD+20, ADD+23, ADD+26, CHANGE+5
, CHANGE+6, CHANGE+12, CHANGE+14, CHANGE+16, CHANGE+19, DELETE+5, DELETE+6, DELETE+10, DELETE+11, DELETE+23
EN PAT+7, PPEP+4
END PAT+4
EOJ END+1
GATHER INIT+2, BACK+3
GETITEM CHANGE+4, DELETE+4
HDR BACK+5
PAUSE HS1+6, ADD+5, ADD+7, ADD+16, ADD+20, ADD+23, ADD+25, CHANGE+5, CHANGE+6, CHANGE+12
, CHANGE+14, CHANGE+16, CHANGE+18, DELETE+5, DELETE+6, DELETE+10, DELETE+11, DELETE+22

Naked Globals

Name Field # of Occurrence
^("^APCHSCTL(" HS1+3
^(0 HS1+2, HS1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+4!
>> APCHSPAT HS1+7*
>> APCHSTYP HS1+7*
BDPCASE EOJ+5!
BDPCDATE EOJ+5!
BDPCIEN ADD+2~, ADD+6*, ADD+7, ADD+8, ADD+13, ADD+14, ADD+19, ADD+22, ADD+24, CHANGE+3~
, CHANGE+7*, CHANGE+9, CHANGE+10, CHANGE+15, CHANGE+17, DELETE+3~, DELETE+7*, DELETE+21
BDPD GATHER+3*, GATHER+4, EOJ+5!
>> BDPHDR HS1+8*, HS1+9
BDPIT GETITEM+2~, GETITEM+6*, GETITEM+7
BDPLINE INIT+3, GATHER+2*, GATHER+6*, GATHER+12, EOJ+5!, BACK+4
BDPLINKI DELETE+13~, DELETE+14*
BDPLIST GATHER+1!
BDPLIST( GATHER+12*
BDPLIST("IDX" GATHER+12*, GETITEM+7
BDPP END+2!
BDPPAT PAT+2*, PAT+5*, PAT+6, PPEP~, PPEP+2, HDR+2, HDR+4, GATHER+3, GATHER+4, HS1+7
, HS1+8, HS1+10, ADD+7, ADD+19
BDPPROV ADD+2~, ADD+17*, ADD+22, ADD+24, CHANGE+3~, CHANGE+13*, CHANGE+14, CHANGE+15, CHANGE+17, DELETE+3~
, DELETE+12*, DELETE+19, DELETE+21
BDPQUIT END+2!
BDPRCNT GATHER+2*, GATHER+6*, GATHER+12, EOJ+5!, GETITEM+1, GETITEM+4
BDPRIEN ADD+2~, ADD+21*, ADD+22, CHANGE+3~, CHANGE+5, CHANGE+6, CHANGE+7, CHANGE+8, CHANGE+14, CHANGE+15
, DELETE+3~, DELETE+5, DELETE+6, DELETE+7, DELETE+8, DELETE+12, DELETE+16, DELETE+19, DELETE+20, GETITEM+3*
, GETITEM+7*, GETITEM+8*
BDPTYPE PPEP~
BDPW END+2!
BDPX GATHER+4*, GATHER+5, GATHER+7, GATHER+8, GATHER+11, GATHER+12, EOJ+5!
>> C HDR+3*, HDR+4*, HDR+5, HDR+6*, HDR+7
D0 HS1+5!
D1 HS1+5!
DA PAT+3!, EOJ+4!, HS1+5!, CHANGE+11!, DELETE+9!, DELETE+13~, DELETE+16*!, DELETE+20*!, GETITEM+4!
DA(1 DELETE+20*
DD HS1+5!
DDS EOJ+4!
DDSFILE EOJ+3!
DFN EOJ+2!, HS1+10*
DIADD PAT+3!, CHANGE+11!
DIC PAT+3*!, EOJ+4!, HS1+5!*, ADD+2~, ADD+4*!, ADD+12*, ADD+15!, CHANGE+3~, CHANGE+8*, CHANGE+11!
, DELETE+3~
DIC("A" PAT+3*, ADD+4*, ADD+12*, CHANGE+8*
DIC("B" HS1+5*, ADD+14!, CHANGE+10!
DIC("S" ADD+13*, ADD+14*, CHANGE+9*, CHANGE+10*
DIC(0 PAT+3*, HS1+5*, ADD+4*, ADD+12*, CHANGE+8*
DIE DELETE+13~, DELETE+16*!, DELETE+20*!
DINUM DELETE+20!
DIPGM EOJ+3!
DIR PAT+6!, PAUSE+1~, PAUSE+2!, DELETE+9!, GETITEM+4!
DIR("A" PAT+6*, PAUSE+2*, DELETE+9*, GETITEM+4*
DIR("B" DELETE+9*
DIR(0 PAT+6*, PAUSE+2*, DELETE+9*, GETITEM+4*
>> DIRUT DELETE+10, GETITEM+5
DLAYGO PAT+3!, CHANGE+11!
DQ HS1+5!
DR PAT+3!, EOJ+4!, HS1+5!, CHANGE+11!, DELETE+13~, DELETE+16*!, DELETE+20*!
DT DELETE+16, DELETE+20
DUZ HS1+3, DELETE+16, DELETE+20
DUZ(2 HDR+2, HS1+2
IOF START+1
IOM CTR+1
U HDR+2, GATHER+5, GATHER+11, HS1+2, HS1+3, HS1+8, ADD+7, ADD+8, ADD+24, CHANGE+7
, CHANGE+14, CHANGE+17, DELETE+7, DELETE+19, DELETE+20, DELETE+21
VALM EOJ+7!
VALMAR EOJ+7!
VALMBCK EOJ+7!, BACK+2*
VALMBG EOJ+7!
VALMCAP EOJ+7!
VALMCC EOJ+7!
VALMCNT INIT+3*, EOJ+7!, BACK+4*
VALMCOFF EOJ+7!
VALMCON EOJ+7!
VALMEVL EOJ+7!
VALMHDR EOJ+7!
VALMHDR( HDR+4*, HDR+5*, HDR+7*
VALMHDR(1 HDR+1*
VALMHDR(2 HDR+2*
VALMIOXY EOJ+7!
VALMKEY EOJ+7!
VALMLFT EOJ+7!
VALMLST EOJ+7!
VALMMENU EOJ+7!
VALMON EOJ+7!
>> VALMSG INIT+1*
VALMSGR EOJ+7!
VALMUP EOJ+7!
VALMVAR EOJ+7!
VALMWD EOJ+7!
X CTR~, CTR+1, EOJ+4!, HS1+1*, HS1+2*, HS1+3*, HS1+4*, HS1+5, ADD+2~, ADD+7*
, ADD+19*, ADD+20, ADD+21, ADD+22*, ADD+23, CHANGE+3~, CHANGE+15*, CHANGE+16, DELETE+3~, DELETE+18~
, DELETE+19*, GETITEM+7*, HELP+1*
Y PAT+4, PAT+5, CTR~, CTR+1, GATHER+6*, GATHER+7*, GATHER+8*, GATHER+11*, GATHER+12, EOJ+3!
, EOJ+4!, HS1+3*, HS1+6, HS1+7, HS1+10*, ADD+2~, ADD+5, ADD+6, ADD+16, ADD+17
, CHANGE+3~, CHANGE+12, CHANGE+13, DELETE+3~, DELETE+11, DELETE+18~, DELETE+19*, DELETE+20, GETITEM+6, GETITEM+7*
Info |  Source |  Call 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