Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
  • Formatting: !?22
  • Prompt: "Enter <RET> to continue or ^ to QUIT"
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls