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

Package: Automated Medical Information Exchange

Routine: DVBASCRP


Information

DVBASCRP ;ALB/GTS-557/THM-SC 7131 ADMISSION RPT ;12/3/90 14:58

Source Information

Source file <DVBASCRP.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Automated Medical Information Exchange 3 (DATE,FINAL,KILL)^DVBAUTIL  NOPARM^DVBAUTL2  (ADM,ELIG,SC)^DVBAVDPT  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  

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

Package Total Caller Graph
Automated Medical Information Exchange 1 DVBA SERV CONN ADM REPORT  

Entry Points

Name Comments DBIA/ICR reference
SET
PRINTB
PRINT
PRINT1
TERM
GO
KILL
DEQUE

External References

Name Field # of Occurrence
^%ZIS TERM+8
HOME^%ZIS TERM
^%ZISC KILL
^%ZTLOAD TERM+11
KILL^%ZTLOAD GO+2, KILL
DATE^DVBAUTIL TERM+6
FINAL^DVBAUTIL KILL
KILL^DVBAUTIL TERM+2, TERM+8, GO+2
NOPARM^DVBAUTL2 TERM+2
ADM^DVBAVDPT PRINTB
ELIG^DVBAVDPT PRINTB+6
SC^DVBAVDPT SET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?(80-$L(HEAD)\2),HEAD,!,?(80-$L(HEAD1)\2),HEAD1,!!
  • Line Location: PRINTB+2
Function Call: WRITE
  • Prompt: ?10,"Patient Name:",?26,PNAM,!!,?14,"Claim No:",?26,CNUM,!,?6,"Claim Folder Loc:",?26,CFLOC,!,?9,"Social Sec No:",?26,SSN,!,?8,"Admission Date:",?26,ADMDT,!,?3,"Admitting Diagnosis:",?26,DIAG,!
  • Line Location: PRINTB+4
Function Call: WRITE
  • Prompt: ?8,"Discharge Date:",?26,DCHGDT,!,?11,"Bed Service:",?26,BEDSEC,!,?13,"Recv A&A?:",?26,$S(RCVAA=0:"NO",RCVAA=1:"YES",1:"Not specified"),!
  • Line Location: PRINTB+5
Function Call: WRITE
  • Prompt: ?14,"Pension?:",?26,$S(RCVPEN=0:"NO",RCVPEN=1:"YES",1:"Not specified"),!
  • Line Location: PRINTB+6
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRINTB+7
Function Call: WRITE
  • Prompt: *7,!,"Press RETURN to continue or ""^"" to stop "
  • Line Location: PRINTB+7
Function Call: WRITE
  • Prompt: @IOF,!,"VARO SERVICE-CONNECTED ADMISSION REPORT"
  • Line Location: TERM+2
Function Call: WRITE
  • Prompt: !,HEAD1
  • Line Location: TERM+4
Function Call: WRITE
  • Prompt: !!,"Please enter dates for search, oldest date first, most recent date last.",!!,"Last report was run on "
  • Line Location: TERM+5
Function Call: WRITE
  • Prompt: Y,!!
  • Line Location: TERM+5
Function Call: WRITE
  • Prompt: !!,*7,"No data found for parameters entered.",!!
  • Line Location: GO+1
Routine Call
  • %ZIS
  • Line Location:
    • TERM+8
Routine Call
  • %ZIS
  • Line Location:
    • TERM

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TERM+5
^DGPM("AMV1" GO
^DPT - [#2] SET
^DVB(396.1 - [#396.1] TERM+2
^TMP($J DVBASCRP+2!, SET*, PRINT+1, PRINT1, GO+1, DEQUE!

Label References

Name Line Occurrences
GO DEQUE
KILL TERM+7, TERM+11, GO+1
PRINT GO+2
PRINT1 PRINT+1
PRINTB PRINT1
SET GO
TERM DVBASCRP+2

Naked Globals

Name Field # of Occurrence
^( PRINT1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS TERM+8*!
>> ADM PRINT1*
>> ADMDT PRINTB*, PRINTB+3*, PRINTB+4
>> ANS PRINTB+7*
>> BDATE GO
>> BEDSEC PRINTB+5
>> CFLOC SET, PRINTB+4, PRINT+1*, PRINT1
>> CNUM PRINTB+4
>> DA SET, PRINTB, PRINT1*, GO*
>> DATA PRINTB, PRINT1*
>> DCHGDT PRINTB+3*, PRINTB+5
>> DFN SET*, PRINTB*
>> DIAG PRINTB+4
DT TERM+2
>> DTAR TERM+2*, TERM+3, TERM+5
DTIME PRINTB+7
DVBAON2 PRINTB+1, PRINTB+8*, GO+2!, KILL!
>> DVBAQUIT PRINTB+7*, TERM+2, GO+2
>> DVBASC SET*
>> EDATE GO
>> FDT(0 TERM+2*, TERM+3
>> HEAD PRINTB+2, TERM+3*
>> HEAD1 PRINTB+2, TERM+3*, TERM+4
>> I TERM+10*
IO PRINT, GO+1
IO("Q" TERM+10, TERM+11
IOF PRINTB+1, TERM+2
ION TERM+10
IOST PRINTB+1, PRINTB+7
>> J PRINT+1*, GO*
>> K PRINT1*
>> L PRINT1*
>> M PRINT+1*
MA SET, PRINT!, GO*
>> MB SET, GO*
NOASK TERM!, TERM+10*, GO
>> PNAM PRINTB+4
>> POP TERM+8
>> QUIT PRINTB+7*, PRINT*, PRINT+1, PRINT1
>> RCVAA PRINTB+5
>> RCVPEN PRINTB+6
>> RO SET
>> RONUM SET
>> SSN PRINTB+4
U PRINTB, PRINTB+7, TERM+3, TERM+5
>> X TERM+7, KILL*
>> XCN SET, PRINT+1*, PRINT1
>> Y TERM+5*, TERM+7
>> ZTDESC TERM+10*
>> ZTIO TERM+10*
>> ZTQUEUED GO+2, KILL
>> ZTRTN TERM+10*
>> ZTSAVE( TERM+10*
>> ZTSK TERM+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All