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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call