Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBJPI5

IBJPI5.m

Go to the documentation of this file.
  1. IBJPI5 ;ENS/GSS - IBJP5 eIV SITE PARAMETERS SCREEN ;30-AUG-2010
  1. ;;2.0;INTEGRATED BILLING;**438,497**;31-AUG-10;Build 120
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ; eIV - Electronic Insurance Verification Site Selected Service Type Codes
  1. ;
  1. Q
  1. ;
  1. EN ; main entry point for IBJP EIV SITE SELECTED CODES
  1. N DIR,I,IBDIRS,IBFLD,IBMAXDSC,IBSTCDF,IBSTCDFI,IBSTCR,X,Y
  1. ;
  1. D INIT,BLD
  1. ;
  1. EXIT ; Exit
  1. K ^TMP("IBJPI5",$J)
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. INIT ; Initialize
  1. S IBMAXDSC=1 ; max # of DEFAULT STCs
  1. ; IBSTCDF=default STC IENs which herein remain unchanged
  1. S IBSTCDF=$G(^IBE(350.9,1,60)),IBSTCDFI=U_IBSTCDF_U
  1. Q
  1. ;
  1. BLD ; Build screen and prompt for action
  1. N DIR,X,Y
  1. W @IOF,IORVON,"Service Type Codes",IORVOFF
  1. W !!,IOUON,"Default Service Type Codes",IOUOFF
  1. F IBFLD=1:1:IBMAXDSC D
  1. . S IBSTCR=^IBE(365.013,$P(IBSTCDF,U,IBFLD),0)
  1. . W:IBFLD#2=1 !
  1. . W:IBFLD#2=0 ?40 W $J($P(IBSTCR,U,1),2)," - ",$P(IBSTCR,U,2)
  1. F IBFLD=IBFLD:1:20 W !
  1. W !,IORVON," Enter ?? for more information ",IORVOFF
  1. W !,"EX Exit"
  1. S DIR("A")="Select Action: Exit//"
  1. S DIR(0)="SAO^EX:Exit^"
  1. S DIR("?")="^D HELP1^IBJPI5"
  1. S DIR("??")="^D HELP2^IBJPI5"
  1. D ACTN
  1. I $F("^E",X) Q
  1. G BLD
  1. ;
  1. ACTN ;
  1. D ^DIR
  1. S X=$E(X,1),X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. I '$F("^E",X) G ACTN
  1. Q
  1. ;
  1. HELP1 ; Display actions in response to '?' entry
  1. D FULL^VALM1
  1. W @IOF
  1. Q
  1. ;
  1. HELP2 ; Text to display in response to '??' entry
  1. N DIR
  1. D FULL^VALM1
  1. W @IOF
  1. W !,"The DEFAULT SERVICE TYPE CODES are not editable but defined by CBO."
  1. W !,"Action available is 'EX' to Exit"
  1. W !,"Enter '^' to quit."
  1. Q