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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DVBHQUP

Package: HINQ

Routine: DVBHQUP


Information

DVBHQUP ;ALB/JLU This routine is used for the upload option. ; 3/9/06 4:16pm

Source Information

Source file <DVBHQUP.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
HINQ 7 ^DVBHCG  TEM^DVBHIQR  CHKID^DVBHQD1  (KA,KA1)^DVBHQEDT  QB^DVBHQZ6  (LABELS,PAUSE)^DVBHS3  A^DVBHUTIL  
VA FileMan 5 (,LIST)^DIC  (FILE,YN)^DICN  ^DIE  EN1^DIP  GETS^DIQ  
Kernel 2 ^%ZIS  ^%ZTLOAD  
Registration 1 ^DGRPC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
HINQ 7 DVB HUPLOAD  DVB HUPLOAD-AUDIT  DVB HUPLOAD-PRINT  DVBHCG  DVBHINQ PAT-HINQ COMP  DVBHQD1  DVBHT  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
A
B
B1
KA1
KA
P
L
C ;SETS UPDATED? FIELD, RUNS INCONSIS. CHECKER.
FILE
PT
PT1
S
S1
T
AU ;ENTRY POINT FOR DISPLAY OF AUDIT.
AU1
P1
RP
RP1
CT
CT1
LSTR ;lists the SC disabilities in the ReviewPatient vs. HINQ data
LOOP ;
LIST ;

External References

Name Field # of Occurrence
^%ZIS RP
^%ZTLOAD RP
^DGRPC C+2
^DIC P1
LIST^DIC LIST+1
FILE^DICN FILE+3
YN^DICN CT1
^DIE P+10, L+13, FILE+8
EN1^DIP AU1+4
GETS^DIQ LSTR+5
^DVBHCG S1, RP1
TEM^DVBHIQR P+2, L+4, S1, RP1
CHKID^DVBHQD1 P+3, L+7
KA^DVBHQEDT KA
KA1^DVBHQEDT KA1
QB^DVBHQZ6 C+1
LABELS^DVBHS3 LSTR+8
PAUSE^DVBHS3 LSTR+11, LOOP+5
A^DVBHUTIL A

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: B+0
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want to examine the Suspense file by 'P'atient or 'A'll P// "
  • Variable: K1
  • Timeout: DTIME
  • Line Location: B1+0
Function Call: WRITE
  • Prompt: !!,*7,?15,"Answer with capital A or P <RET> also for P",!!
  • Line Location: B1+2
Function Call: WRITE
  • Prompt: !!,"No patients to be updated."
  • Line Location: L+1
Function Call: READ
  • Prompt: "Do you want a print out of a (S)ingle patient or (A)ll of the patients? S// "
  • Variable: DVBJA
  • Timeout: DTIME
  • Line Location: PT1+0
Function Call: WRITE
  • Prompt: !!,*7,?15,"Answer with a capital A or S or <RET> for S",!!
  • Line Location: PT1+1
Function Call: WRITE
  • Prompt: !!,?6,"Select one of the following:",!!,?11,"1 Updated",!,?11,"2 NOT Updated",!,?11,"3 Both",!,"How would you like your print sorted? Updated//"
  • Line Location: T+1
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !!,*7,"Answer with a code from the list."
  • Line Location: T+4
Function Call: WRITE
  • Prompt: !!,?6,"Select one of the following:",!!,?11,"1 Patient",!,?11,"2 User",!,?11,"3 Date/Time",!,"By which would you like the sort to begin? : Patient//"
  • Line Location: AU1+0
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: AU1+1
Function Call: WRITE
  • Prompt: !!,*7,"Answer with a code from the above list."
  • Line Location: AU1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !,"There are no patients at this time for this print."
  • Line Location: CT+1
Function Call: WRITE
  • Prompt: !,"A YES answer will continue on with the report, answer with Y or N"
  • Line Location: CT1+0
Function Call: WRITE
  • Prompt: "-Comb. SC%: "_+DVBDIQ(2,DFN_",",.302,"E")_" "
  • Line Location: LSTR+6
Function Call: WRITE
  • Prompt: "Eff. Date Comb. Eval.: "_DVBDIQ(2,DFN_",",.3014,"E")
  • Line Location: LSTR+7
Function Call: WRITE
  • Prompt: !,$E(DVBDIQ(2.04,LP,.01,"E"),1,40),?42,DVBDIQ(2.04,LP,2,"E")
  • Line Location: LSTR+12
Function Call: WRITE
  • Prompt: ?50,$G(DVBDIQ(2.04,LP,4,"I")),?55,$G(DVBDIQ(2.04,LP,5,"E"))
  • Line Location: LSTR+13
Function Call: WRITE
  • Prompt: ?68,$G(DVBDIQ(2.04,LP,6,"E"))
  • Line Location: LSTR+14
Function Call: WRITE
  • Prompt: !?36,$P(DVBARR("DILIST",DVBCT,0),U,2),?68,$P(DVBARR("DILIST",DVBCT,0),U,4),?74,$P(DVBARR("DILIST",DVBCT,0),U,5)
  • Line Location: LOOP+4
Routine Call
  • %ZIS
  • Line Location:
    • RP
Routine Call
  • DIC
  • Line Location:
    • P1
Routine Call
  • DIC
  • Line Location:
    • LIST+1
Routine Call
  • DIE
  • Line Location:
    • P+10
    • L+13
    • FILE+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GETS^DIQ
2.04 LIST^DIC
^DVB(395.5 - [#395.5] Classic Fileman Calls
^DVB(395.7 - [#395.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" S1, RP, RP1+1
^DPT - [#2] LSTR+8, LSTR+18
^DVB(395.5 - [#395.5] L+1, L+2, L+3, C+2*, C+3*, RP1, CT
^DVB(395.7 - [#395.7] FILE, FILE+8, FILE+9

Label References

Name Line Occurrences
AU1 AU1+3
B1 B1+2
C P+11, L+13
CT T+5
CT1 CT1
FILE P+7, L+10, C+4
KA L+13, P1, RP1
KA1 B1, B1+1, PT1, PT1+2
L B1
LIST LOOP+1
LOOP LSTR+20
P B1, P+4, P+11
P1 P, S
PT1 PT1+1
RP S+1, CT1+1
S PT1
T PT1, T+4

Naked Globals

Name Field # of Occurrence
^(0 L+3, RP1, CT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CT1*
>> %IS RP*
>> ANS L*
>> BY AU1+2*, AU1+3
>> D0 S+1*, RP1*
DA P+2*, P+10!, L+4*, FILE+5*, FILE+10!
DD FILE+1!
>> DFN P+2*, L+4*, C+1, C+2, C+3, FILE, FILE+3, FILE+5, FILE+8, FILE+9
, S+1*, RP1*, LSTR+5, LSTR+6, LSTR+7, LSTR+8, LSTR+18, LIST+1
>> DGEDCN C+2*
DIC FILE+1!*, FILE+5!*, FILE+10!, AU1+4*, P1*!
DIC("A" P1*
DIC("DR" FILE+2*
DIC("S" P1*
DIC(0 FILE+1*, P1*
DIE P+2*, P+10!, L+4*, FILE+5*, FILE+10!
>> DINUM FILE+3*
DO FILE+1!
DR P+2*, P+10!, L+4*, FILE+6*, FILE+7*, FILE+10!
DTIME B1, PT1, T+2, AU1+1
DUZ P+7, L+10, FILE+2, FILE+6
>> DVB C+1*, CT*, CT+1, CT1
>> DVB1 CT*
>> DVB8 RP1*
>> DVBARR("DILIST" LOOP+3, LOOP+4
DVBCT LOOP+2~, LOOP+3*, LOOP+4
DVBDIQ P!, C+4!
DVBDIQ( LSTR+10, LSTR+12, LSTR+13, LSTR+14
DVBDIQ(2 LSTR+6, LSTR+7
>> DVBERCS P+3, P+10, L+7, L+13, S1, RP1
DVBERR LSTR+4!
DVBFR LSTR+16~, LSTR+17*, LIST+1
DVBFR(2 LSTR+20, LIST+2
DVBIEN LSTR+3~
>> DVBJ1 RP1*
>> DVBJ2 P+2*, P+6, P+7*, P+9*, L+4*, L+9, L+10*, L+12*, C+2, FILE+7
>> DVBJA PT1*, PT1+1, S*, S+1*, S1+1*, T*, RP+1
DVBLAST LSTR+16~, LSTR+18*, LSTR+19, LSTR+20
>> DVBLP C+1*
>> DVBMM C+1*
>> DVBMM2 C+1*
>> DVBNOALR P+5, P+7*, P+8*, L+8, L+10*, L+11*, FILE+2, FILE+6, FILE+7
>> DVBOUT B1+1, P*, P+11, L+2, L+13, C+1
DVBQT P+1~, P+4, L+5~, L+6*, L+7
DVBTMP1 P+1~, P+5*, P+8, L+5~, L+8*, L+11
DVBTMP2 P+1~, P+6*, P+9, L+5~, L+9*, L+12
DVBX LSTR+16~, LSTR+20*
>> DVBY T+3*, T+4, RP1, CT
>> FLDS AU1+2*
>> FR AU1+4*
IO S1, RP1
IO("Q" S+1, RP
IOF PT, AU+1
ION RP
IOSL LSTR+11
IOST LSTR+11
>> K1 B1*, B1+2, P*, L*
>> K2 L+2*, L+3, L+4
>> L AU1+4*
>> LP LSTR+9*, LSTR+10*, LSTR+12, LSTR+13, LSTR+14
>> POP S+1, RP
QUIT LSTR+16~, LSTR+20!, LIST+2*
>> TO AU1+4*
U L+3, C+2, C+3, RP1, CT, LSTR+8, LOOP+4
>> X FILE+3*
>> Y P, P+2, S, S+1, T+2*, T+3, AU1+1*, AU1+2
>> ZTDESC RP*
>> ZTIO RP*
>> ZTRTN S+1*, T*
>> ZTSAVE("D0" S+1*
>> ZTSAVE("DFN" S+1*
>> ZTSAVE("DVBY" T+3*
>> ZTSK S1, RP1+1
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 |  Naked Globals |  Local Variables  | All