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

PXBDREQ.m

Go to the documentation of this file.
  1. PXBDREQ ;ISL/JVS - DISPLAY REQUESTS ;6/17/03 10:29
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**73,124,199**;Aug 12, 1996;Build 51
  1. ;
  1. ; Variable list
  1. ; These two variables represent the data that has been selected
  1. ; to be saved in the v files by the user
  1. ;
  1. ; REQ*=PROVIDER^PRIMARY^CPT^QUANTITY^POV^PRIMARY
  1. ; REQI=Internal Values
  1. ; REQE=External Values
  1. ;
  1. REQ(NO) ;--Display the REQUESTED Data
  1. N ENTRY,VAR
  1. S VAR="N"_NO D @VAR
  1. Q
  1. N4 ;---Fourth Method--for the CPT prompts
  1. W !,"PROVIDER: ...Enter the provider associated with the CPT'S....."
  1. D UNDON^PXBCC
  1. W !,?5,"CPT: "
  1. F W $C(32) Q:$X=(IOM-(4))
  1. W !
  1. D UNDOFF^PXBCC
  1. Q
  1. N5 ;---Fifth Method--for the PROVIDER prompts
  1. W !,"PROVIDER: ...Select a Provider....."
  1. D UNDON^PXBCC
  1. W !
  1. F W $C(32) Q:$X=(IOM-(4))
  1. W !
  1. D UNDOFF^PXBCC
  1. Q
  1. ;
  1. N6 ;---Sixth Method--for the POV(DIAGNOSIS) prompts
  1. W !,"ICD CODE: ...Select a DIAGNOSIS Code....."
  1. D UNDON^PXBCC
  1. W !
  1. F W $C(32) Q:$X=(IOM-(4))
  1. W !
  1. D UNDOFF^PXBCC
  1. Q
  1. N7 ;---SEVENTH Method--for the STOP CODES prompts
  1. W !,"STOP CODE: ...Select an AMIS STOP Code....."
  1. D UNDON^PXBCC
  1. W !
  1. F W $C(32) Q:$X=(IOM-(4))
  1. W !
  1. D UNDOFF^PXBCC
  1. Q
  1. N8 ;---EIGHTH Method--for the ENCOUNTERS prompts
  1. W !,"ENCOUNTERS: ...Select an ENCOUNTER ....."
  1. D UNDON^PXBCC
  1. W !
  1. F W $C(32) Q:$X=(IOM-(4))
  1. W !
  1. D UNDOFF^PXBCC
  1. Q
  1. ;
  1. PRINT(NO) ;--Display the requested information
  1. N ENTRY,VAR
  1. S VAR="ZP"_NO D @VAR
  1. Q
  1. ZP1 ;--PROVIDER AND PRIMARY
  1. I '$D(REQE) Q
  1. D LOC^PXBCC(1,10) W $P(REQE,"^",1)_" "_$P(REQE,"^",2),IOELEOL
  1. Q
  1. ZP2 ;--CPT PROCEDURE AND DESCRIPTION
  1. I '$D(REQE) Q
  1. S ENTRY=$P(REQE,"^",3) I ENTRY]"" D RREVH^PXBCC(1,10,ENTRY)
  1. Q
  1. ZP3 ;--QUANTITY OF PROCEDURES
  1. I '$D(REQE) Q
  1. S ENTRY=$P(REQE,"^",4) I ENTRY]"" D RREV^PXBCC(1,45,ENTRY)
  1. Q
  1. ZP4 ;--DIAGNOSIS
  1. I '$D(REQE) Q
  1. D LOC^PXBCC(1,10) W $P(REQE,"^",5)_" "_$P(REQE,"^",6),IOELEOL
  1. Q
  1. ;
  1. ZP5 ;--STOP CODE
  1. I '$D(REQE) Q
  1. S ENTRY=$P(REQE,"^",10) I ENTRY]"" D RREV^PXBCC(0,10,ENTRY)
  1. Q
  1. ;
  1. ZP6 ;PX124
  1. ZP7 ;
  1. ZP8 ;
  1. ZP9 ;
  1. ZP10 ;
  1. ZP11 ;
  1. ZP12 ;
  1. ZP13 ;
  1. ZP14 ;
  1. ZP15 ;
  1. I $D(REQE) D LOC^PXBCC(1,0) W "DIAGNOSIS: ",$E($P(REQE,"^",NO+6),1,68),IOELEOL
  1. Q
  1. ;
  1. RSET(CATEGORY) ; Reset the data in the REQ, REQI and REQE variables
  1. ; CATEGORY IS EQUAL TO FILE MNEMONIC (e.g. CPT, POV, PRV)
  1. D @CATEGORY
  1. Q
  1. CPT ;CPT CODES
  1. N PX124
  1. S $P(REQI,"^",3)="",$P(REQE,"^",3)="",$P(REQI,"^",8)=""
  1. S $P(REQI,"^",4)="",$P(REQE,"^",4)=""
  1. F PX124=12:1:22 S $P(REQI,"^",PX124)="",$P(REQE,"^",PX124)=""
  1. K REQ
  1. Q
  1. PRV ;PROVIDER
  1. S $P(REQI,"^",1)="",$P(REQE,"^",1)="",$P(REQI,"^",7)=""
  1. S $P(REQI,"^",2)="",$P(REQE,"^",2)=""
  1. Q
  1. POV ;PURPOSE OF VISIT
  1. S $P(REQI,"^",5)="",$P(REQE,"^",5)="",$P(REQI,"^",9)=""
  1. S $P(REQI,"^",6)="",$P(REQE,"^",6)=""
  1. Q
  1. STP ;STOPCODES
  1. S $P(REQI,"^",10)="",$P(REQE,"^",10)=""
  1. S $P(REQI,"^",11)="",$P(REQE,"^",11)=""
  1. Q
  1. ;