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

Package: Integrated Billing

Routine: IBJPC3


Information

IBJPC3 ;ALB/YMG - IBJP HCSR Wards/Clinics association with Payer ;10-JUN-2015

Source Information

Source file <IBJPC3.m>

Entry Points

Name Comments DBIA/ICR reference
ADDPYR(WHICH) ; Add payer association
; WHICH = 1 - use Clinic Search inclusion list
; 2 - use Ward Search inclusion list
ADDPYR1(NODE,IEN) ; Add payer association to a given clinic / ward
; NODE = 63 - for Clinic Search inclusion list
; 64 - for Ward Search inclusion list
DELPYR(WHICH) ; Delete payer association
; WHICH = 1 - use Clinic Search inclusion list
; 2 - use Ward Search inclusion list
DISPPYR(NODE,IEN) ; Display payer association
; NODE = 63 - for Clinic Search inclusion list
; 64 - for Ward Search inclusion list
ASKALL(NODE,IEN,DEF) ; Prompt for association with all payers
; NODE = 63 - for Clinic Search inclusion list
; 64 - for Ward Search inclusion list
ISALL(NODE,IEN) ; Check association with all payers
; NODE = 63 - for Clinic Search inclusion list
; 64 - for Ward Search inclusion list
GETTOT(NODE,IEN) ; Returns total number of payers associated with clinic/ward.
; NODE = 63 - for Clinic Search inclusion list
; 64 - for Ward Search inclusion list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S(+Y>0:"Payer added to the list.",1:"Unable to add payer.")
  • Line Location: ADDPYR1+20
Function Call: WRITE
  • Prompt: !,"Payer deleted from the list."
  • Line Location: DELPYR+17
Function Call: WRITE
  • Prompt: !!,$S(WHICH=1:"Clinic",1:"Ward")," is currently included in the list for ",$S(ISALL:"all payers.",'ISALL&('TOTAL):"no payers",1:"the following "_TOTAL_" payers:"),!
  • Line Location: DISPPYR+9
Function Call: WRITE
  • Prompt: !,$P(^IBE(365.12,PYRPTR,0),U)
  • Line Location: DISPPYR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPPYR+13
Info |  Source |  Entry Points |  Interaction Calls