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

Package: Integrated Billing

Routine: IBMHSP


Information

IBMHSP ;EDE/SAB-MENTAL HEALTH VISIT INQUIRY Part 1 ; 29-NOV-19

Source Information

Source file <IBMHSP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 ^DIC  $$EXTERNAL^DILFD  ^DIR  
Integrated Billing 2 REPORT^IBMHSP1  $$NOW^IBUCMM  

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
Integrated Billing 1 IBMH VISIT INQUIRY  

Entry Points

Name Comments DBIA/ICR reference
ENTER ; Entry point for the routine
ASKDEV ; Ask about output device and print the report (or run task)
RUNTASK ; Start Taskman job
DATE
DATAGN ;Loop entry point
ASKDT(IBPRMT,IBDFLT) ;Date input
ASKPAT()
WRTPAT(IBDFN) ; Write patient's data
SSN(IBN) ;Format SSN Value

External References

Name Field # of Occurrence
^%ZIS ASKDEV+3
HOME^%ZIS ENTER+1, RUNTASK+6
^%ZISC ASKDEV+7
^%ZTLOAD RUNTASK+4
^DIC ASKPAT+15
$$EXTERNAL^DILFD WRTPAT+7
^DIR ASKDT+5, ASKPAT+10
REPORT^IBMHSP1 ASKDEV+6
$$NOW^IBUCMM DATAGN+1
$$FMTE^XLFDT WRTPAT+6, WRTPAT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RUNTASK+6
Function Call: WRITE
  • Prompt: !,"Ending date must follow start date!",!
  • Line Location: DATAGN+11
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: ASKDT+6
Function Call: WRITE
  • Prompt: $P(IBZ,U)
  • Line Location: WRTPAT+5
Function Call: WRITE
  • Prompt: " ",?30,$$FMTE^XLFDT($P($P(IBZ,U,3),"."),"5MZ")
  • Line Location: WRTPAT+6
Function Call: WRITE
  • Prompt: " ",?42,$$SSN($$EXTERNAL^DILFD(2,.09,"",$P(IBZ,U,9)))
  • Line Location: WRTPAT+7
Function Call: WRITE
  • Prompt: " ",?55,$S(IBVET:$S(IBSC:"S/C",1:"NSC")_" VETERAN",1:"")
  • Line Location: WRTPAT+8
Function Call: WRITE
  • Prompt: " ",?68,$$FMTE^XLFDT($P($O(^IBA(351.81,"AE",IBDFN,""),-1),"."),"5MZ")
  • Line Location: WRTPAT+9
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+3
Routine Call
  • %ZIS
  • Line Location:
    • ENTER+1
    • RUNTASK+6
Routine Call
  • DIC
  • Line Location:
    • ASKPAT+15
Routine Call
  • DIR
  • Line Location:
    • ASKDT+5
    • ASKPAT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] WRTPAT+2, WRTPAT+3, WRTPAT+4
^IBA(351.81 - [#351.81] WRTPAT+9

Label References

Name Line Occurrences
$$ASKDT DATAGN+4, DATAGN+9
$$ASKPAT ENTER+6
$$SSN WRTPAT+7
ASKDEV ENTER+10
DATAGN DATAGN+11
DATE ENTER+9
RUNTASK ASKDEV+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE~
%ZIS ASKDEV+1~, ASKDEV+2*
DIC ASKPAT~, ASKPAT+13*
DIC(0 ASKPAT+13*
DIR ASKDT+1~, ASKPAT~
DIR("?" ASKPAT+4*, ASKPAT+5*, ASKPAT+6*, ASKPAT+7*, ASKPAT+8*, ASKPAT+9*
DIR("A" ASKDT+2*, ASKPAT+2*
DIR("B" ASKDT+3*
DIR(0 ASKDT+4*, ASKPAT+3*
DIROUT ASKDT+1~, ASKDT+5
DIRUT ASKDT+1~, ASKDT+5, ASKPAT+1, ASKPAT+10, ASKPAT+18
DPTNOFZY ASKPAT+14~*
DTIME ENTER+1*
IBDFLT ASKDT~, ASKDT+3
IBDFN ENTER+4~, ENTER+6*, ASKPAT~, WRTPAT~, WRTPAT+2, WRTPAT+3, WRTPAT+4, WRTPAT+9
IBDT DATE~, DATAGN+7*, DATAGN+8*
IBDT1 ENTER+4~, ENTER+9, DATAGN+2*, DATAGN+4*, DATAGN+5, DATAGN+9, DATAGN+10*, DATAGN+11
IBDT2 ENTER+4~, DATAGN+2*, DATAGN+9*, DATAGN+10, DATAGN+11
IBN SSN~, SSN+1, SSN+2
IBNOW ENTER+4~, DATE~, DATAGN+1*, DATAGN+7, DATAGN+8
IBPRMT ASKDT~, ASKDT+2
IBQUIT ENTER+4~, ENTER+5*, ENTER+6*, ENTER+9*
IBSC WRTPAT+1~, WRTPAT+3*, WRTPAT+8
IBVAR RUNTASK+1~, RUNTASK+3*
IBVET WRTPAT+1~, WRTPAT+4*, WRTPAT+8
IBZ WRTPAT+1~, WRTPAT+2*, WRTPAT+5, WRTPAT+6, WRTPAT+7
IO ASKDEV+6
IO("Q" ASKDEV+5, RUNTASK+5!
POP ENTER+4~, ASKDEV+3
U WRTPAT+3, WRTPAT+4, WRTPAT+5, WRTPAT+6, WRTPAT+7
X ASKDT+1~, ASKPAT~, ASKPAT+11*, ASKPAT+12*
Y DATE~, ASKDT+1~, ASKDT+6, ASKDT+7, ASKPAT~, ASKPAT+1, ASKPAT+11, ASKPAT+15, ASKPAT+16*, ASKPAT+19
ZTDESC RUNTASK+1~, RUNTASK+2*
ZTRTN RUNTASK+1~, RUNTASK+2*
ZTSAVE RUNTASK+1~
ZTSAVE( RUNTASK+3*
ZTSK RUNTASK+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 |  Local Variables  | All