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

Package: Registration

Routine: DGOINS1


Information

DGOINS1 ;ALB/MAC - OUTPUT FOR PATIENTS ADMITTED WITH UNKNOWN INSURANCE ; SEP 12 1988@1:00

Source Information

Source file <DGOINS1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Registration 3 CLOSE^DGUTQ  INP^VADPT  PID^VADPT6  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGOINS  

Entry Points

Name Comments DBIA/ICR reference
RT
QUIT
PP
HEAD2
MC
SR
TT
HEAD
UTIL
START
LP
UT
PRINT
NT
CT

External References

Name Field # of Occurrence
NOW^%DTC START
CLOSE^DGUTQ QUIT
INP^VADPT UTIL+1
PID^VADPT6 PRINT+2
$$FMTE^XLFDT START, PRINT+1, HEAD2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"=====>NO PATIENTS FOUND"
  • Line Location: PP+0
Function Call: WRITE
  • Prompt: !!,"DIVISION: ",$P(DGL,"^",1),!!?10,"Number of unknown",?34,": ",$J($P(DGL,"^",3),5),!?9,"#Number of unanswered",?34,": ",$J($P(DGL,"^",2),5)
  • Line Location: PP+4
Function Call: WRITE
  • Prompt: !!?5,"MEDICAL CENTER:",!?10,"Total number of unknown",?34,": ",$J(DGS(4),5),!?9,"#Total number unanswered",?34,": ",$J(DGS(3),5),!?36,"-----",!?29,"TOTAL",?34,": ",$J(DGS(4)+DGS(3),5)
  • Line Location: PP+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PP+5
Function Call: WRITE
  • Prompt: @IOF,!?3,"DIVISION: ",DGV,?50,DGDT," PAGE ",DGC,!!?22,"DIVISION SUMMARY FOR"
  • Line Location: TT+0
Function Call: WRITE
  • Prompt: !!,DGCL
  • Line Location: TT+0
Function Call: WRITE
  • Prompt: !!!?3,"DIVISION: ",DGV,!?5,"Number of Unknown: ",$J(DGS(2),5),!?4,"#Number Unanswered: ",$J(DGS(1),5),?40
  • Line Location: TT+1
Function Call: WRITE
  • Prompt: VA("PID")
  • Condition for execution: VA("PID")]""
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?40,X,?52
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: $J(^("VET")_$S(^("VET")="Y":"ES",^("VET")="N":"O",1:""),3)
  • Condition for execution: $D(^DPT(DFN,"VET"))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?57
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: $J(X_$S(X="Y":"ES",1:"O"),3)
  • Condition for execution: X]""
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?62
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?62
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF,!?3,"DIVISION: ",$S(DGDV="ZNOT SPECIFIED":"NOT SPECIFIED",1:DGDV),?50,DGDT," PAGE ",DGC,!?31
  • Line Location: HEAD+0
Function Call: WRITE
  • Prompt: !!?3,"PATIENT",?30,"PT ID",?43,"DOB",?52,"VET",?58,"SC",?63,"ADMISSION DATE",!,DGCL
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: " ACTIVE PATIENTS",!?23,"WITH UNKNOWN/UNANSWERED INSURANCE",!
  • Line Location: HEAD2+0
Function Call: WRITE
  • Prompt: ?DGY,DGT
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RT+0
Function Call: READ
  • Prompt: "Enter <RET> to continue or ^ to QUIT"
  • Formatting: !?22
  • Timeout: DTIME
  • Variable: X
  • Line Location: RT+1
Function Call: WRITE
  • Prompt: @IOF,!?60,DGDT,!?19,"MEDICAL CENTER TOTALS FOR"
  • Line Location: MC+0
Function Call: WRITE
  • Prompt: !,DGCL
  • Line Location: MC+0
Function Call: WRITE
  • Prompt: "# - Denotes prompt left blank by user"
  • Line Location: NT+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+3
^DG(40.8 - [#40.8] UT+1
^DGPM - [#405] START+1, UTIL+1
^DGPM("AMV1" SR
^DIC(42 - [#42] UTIL+2
^DPT - [#2] UTIL, UT, UT+1, CT, CT+1, PRINT+1, PRINT+2, PRINT+3
^DPT("CN" START+1
^UTILITY($J PP, PP+1, LP, UT+2*

Label References

Name Line Occurrences
CT LP
HEAD PP+1, PRINT
HEAD2 TT, HEAD, MC
LP PP+1
MC PP+3, PP+4
NT PP+5, TT+1
PP START+2
PRINT LP
QUIT PP, PP+2, PP+5
RT PP+4, TT, TT+1, PRINT
TT PP+1, PP+2
UT UTIL+2
UTIL START+1, SR

Naked Globals

Name Field # of Occurrence
^( START+1, UTIL, UT, PRINT+3
^("VET" PRINT+2
^(0 UTIL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START
>> DFN START+1*, SR*, LP*, UTIL, UT, UT+1, UT+2, CT, CT+1, PRINT+1
, PRINT+2, PRINT+3
>> DGBEG HEAD2+2
>> DGBEG1 SR
>> DGC START*, TT*, TT+1*, TT+2*, HEAD*
>> DGCA START+1*, SR*, UTIL+1
>> DGCL START*, TT, HEAD+1, MC
>> DGD SR*, PP*, PP+1*, LP, UTIL+1*, UT+2, PRINT+3
>> DGDT START*, TT, HEAD, HEAD2+1, MC
>> DGDV PP+1*, LP, UT+1*, UT+2, HEAD
>> DGEND HEAD2+2
>> DGEND1 SR
>> DGJ PP+1*
>> DGL START+1, START+2, PP+4*, UTIL+1, HEAD2+1, HEAD2+2
>> DGL( PP+4, TT+1*
>> DGN START*
>> DGNO UTIL+1*
>> DGP PP+1*, LP, UT+1*, UT+2, PRINT+2
>> DGS( START*
>> DGS(1 CT*, CT+1*, TT, TT+1*
>> DGS(2 CT+2*, TT, TT+1*
>> DGS(3 PP+3, PP+5, CT*, CT+1*
>> DGS(4 PP+3, PP+5, CT+2*
>> DGSC UTIL
>> DGT HEAD2+1*, HEAD2+2*, HEAD2+3
>> DGU START*, PP+1, PP+2, PP+4, PP+5, LP, TT, PRINT, RT+1*, MC
>> DGV START*, PP+1*, TT*, TT+1
>> DGW START+1*
>> DGY HEAD2+3*
DTIME RT+1
IOF TT, HEAD, MC
IOSL PP+4, TT, PRINT, RT
IOST PP+4, TT, TT+1, PRINT
>> K PP+1*, PP+4*
>> L START*, TT+1*
>> VA("PID" PRINT+2
VAIN UTIL+1!
VAIN(4 UTIL+1
>> VAUTD UTIL+2
>> VAUTD( UTIL+2
>> X START*, UTIL+1*, UTIL+2, UT*, CT+1*, PRINT+1*, PRINT+2, PRINT+3*, RT*, RT+1*
>> X1 START+1*
>> Y START*, UTIL+2*, UT+1, PRINT+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All