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: BDGSVE

Package: IHS Changes To ADT

Routine: BDGSVE


Information

BDGSVE ; IHS/ANMC/LJF - SCHEDULED VISIT EDIT ;

Source Information

Source file <BDGSVE.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DDS  FILE^DICN  $$GET1^DIQ  
IHS Changes To ADT 2 ($$READ,PAUSE)^BDGF  ^BDGSVS  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 BDGPI  

Entry Points

Name Comments DBIA/ICR reference
SCREEN ; -- call ScreenMan to add/edit parameters
PAT ; ask user for patient
; If BDGSVEis set and = 1 then in edit mode, else in view mode
ADD ; add new entry then call Screenman
PATSET ;EP; entry where patient already known
; find all entries in SV file for patient (except deleted ones)
; put into array sorted by date

External References

Name Field # of Occurrence
KILL^AUPNPAT PAT+2
$$READ^BDGF PAT+3, PATSET+17, PATSET+30, SCREEN+6
PAUSE^BDGF PATSET+16
^BDGSVS PATSET+35, SCREEN+6
^DDS SCREEN+5
FILE^DICN ADD+3
$$GET1^DIQ PATSET+6, PATSET+7, PATSET+20, PATSET+22, PATSET+23, PATSET+24, SCREEN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Scheduled Visits found for patient"
  • Line Location: PATSET+15
Function Call: WRITE
  • Prompt: !!,"Scheduled Visit Entries for "_$$GET1^DIQ(2,DFN,.01)_":"
  • Line Location: PATSET+20
Function Call: WRITE
  • Prompt: !,$J(COUNT,3),?6,$$GET1^DIQ(9009016.7,BDGA(COUNT),.02)
  • Line Location: PATSET+22
Function Call: WRITE
  • Prompt: ?25,$$GET1^DIQ(9009016.7,BDGA(COUNT),.03)
  • Line Location: PATSET+23
Function Call: WRITE
  • Prompt: ?45,$S(X]"":X,1:"Open/Pending")
  • Line Location: PATSET+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PATSET+26
Routine Call
  • DDS
  • Line Location:
    • SCREEN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^BDGSV - [#9009016.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDGSV("B" PATSET+5

Label References

Name Line Occurrences
ADD PATSET+18, PATSET+32
PAT PATSET+18, PATSET+32, PATSET+34
SCREEN PATSET+34, ADD+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDGA PATSET+3~, PATSET+14
BDGA( PATSET+11*, PATSET+21, PATSET+22, PATSET+23, PATSET+24, PATSET+33
BDGA1 PATSET+3~
BDGA1( PATSET+10, PATSET+11
BDGA1(9999999 PATSET+7*
BDGN PATSET+3~, PATSET+4*, PATSET+5*, PATSET+6, PATSET+7, PATSET+33*, SCREEN+2, SCREEN+3, ADD+4*
>> BDGSVE PATSET+16, PATSET+29, PATSET+32, PATSET+34
COUNT PATSET+3~, PATSET+11*, PATSET+21*, PATSET+22, PATSET+23, PATSET+24, PATSET+30
DA SCREEN+1~, SCREEN+2*, ADD+1~
DD ADD+3!
DDSFILE SCREEN+1~, SCREEN+2*
DFN PAT+2~, PAT+3*, PATSET+5, PATSET+20, ADD+2
DIC ADD+1~, ADD+2*
DIC("DR" ADD+3*
DIC(0 ADD+2*
DLAYGO ADD+1~, ADD+2*
DO ADD+3!
DR SCREEN+1~, SCREEN+4*
PROMPT PATSET+3~, PATSET+28*, PATSET+29*, PATSET+30
X PATSET+3~, PATSET+10*, PATSET+11, PATSET+24*, PATSET+25, SCREEN+1~, SCREEN+3*, SCREEN+4, ADD+1~, ADD+2*
>> Y PATSET+30*, PATSET+32, PATSET+33, ADD+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